NASA TM-73728 


NASA TECHNICAL 

MEMORANDUM 


NASA TIV\'73728 


(NASA-TH-73728) IMPROVED COMPUTER PROGRAMS 
FOR CALCULATING POTENTIAL FLOW IN PROPULSION 
SYSTEM INLETS <NASA) 430 p HC A19/MF A01 

CSCL 21E 

G3/07 


N77-33164 


Unclas 

49485 


IMPROVFD COMPUTER PROGRAMS FOR CALCULATING POTENTIAL 
FLOW IN PROPULSION SYSTEM INLETS 


by Norbert O, Stockman and Cliaiies A. Farrell, .Tr. 
Lewis Research Center 
Cleveland, Ohio 44135 
July 1977 


■ V 




1, Report No, 2. Government Accession No, 

NASA TM-73728 

3, Recipient's Cotalog No, 

4. Title and Subtitle 

IMPROVED COMPUTER PROGRAMS FOR CALCULATING 
POTENTIAL FLOW IN PROPULSION SYSTEM INLETS 

5. Report Date 

July 1977 

6, Performing Organlmtion Code 

7. Author(t) 

Norbert 0. Stockman and Cliarles A, Farrell, Jr. 

B. Performing Organization Report No, 
E-9285 

10, Work Unit No. 

9, Performing Organbetion Name and Address 

National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 44135 

11, Controet or Grant No. j 

13, Typo of Report and Period Covered 

12, Sponsoring Agotscy Name and Address 

National Aeronautics and Space Administration 
Washington, D. C. 20546 

- . 1 

Technical Memorandum 

14. Sponsoring Agency Code 

— 1 

15, Supplementary Notes 


16, Absifact 

Computer programs to calculate tiie Incompressible potential flow corrected for compressibility 
in axisymmetric inlets at arbitrary operating conditions are presented. Included are a state- 
ment of tlie problem to be solved, a description of each of the programs and sufficient documen- 
tation, including a test case, to enable a user to rim the programs. 


17, Key Words iSupposted by «ulhor|s)) 

Inlet flow 

Propulsion system 
Computer programs 

19. Distribution Statement 

Unclassified - unlimited 
STAR Category 02 

19. Security Classif. (of this report) 
Unclassified 

20, Securiiy Classif. (of this page) 

Unclassified 

21. No. of Pages 

22, Price' 


* For sale by the National Technical Informalion Service, Springfield, Virginia 22151 























E-92&5 


IMPROVED CO^ffUTER PROGll^MS FOR CALCULATING POTENTIAL 


FLOW IN PROPULSION SYSTEM INLETS 
by Norbert 0. Stoclcman and Charles A, Farrell, Jr. 
Lewis Research Center 


INTRODUCTION 

In the course of designing inlets at the Lewis Research Center, par- 
ticularly for VTOL and STOL propulsion systems, a calculational procedure 
utilizing three computer programs evolved (refs. 1 to 4). The chief pro- 
gram is the Douglas axisymmetric potential flow program called EOD which 
calculates the Incompressible potential flow about arbitrary axisymmetric 
bodies. The other two programs, original with Lewis, are called SCIRCL 
and COMBYN. Program SCIRCL generates input for EOD from various specified 
analytical shapes or sets of coordinate points for the inlet components. 
Program COMBYN takes basic solutions output by EOD and combines them into 
solutions of interest, and applies a compressibility correction. 

These programs have been in a state of continual development over 
the past few years and in August of 1973 the then-current versions were 
published in a "Quick Release" form (ref. 5). Since that time all three 
programs have been sufficiently improved to make the versions of refer- 
ence 5 obsolete and to warrant the publication of the latest version. 

The present paper, then, is an update of reference 5 and consists of 
a statement of the problem to be solved, a description of each of the pro- 
grams and sufficient documentation including a test case to enable a user 
to run the programs. The programs themselves are available from COSMIC, 
Computer Center, Information Services, 112 Barrow Hall, University of 
Georgia, Athens, GJeorgia, 30602. (Program EOD alone is also available 
through COSMIC with identification number LEW-12387.) 


STATEMENT OF THE PROBLEM 

The basic problem to be solved is to calculate the compressible 
potential flow in an arbitrary axisymmetric inlet at any combination of 
operating conditions of inlet mass flow rate, W, free stream velocity V„, 
and inlet Incidence angle, a (fig. 1) . At nonzero incidence angle the 
flow in and around the inlet is three-dimensional. At the present time 
there is not available an exact practical compressible flow method of 
solution (computer program) capable of handling this inlet problem. 
Therefore, the problem is solved in several steps (programs) : 

(1) Geometry representation (Program SCIRCL) 

(2) Incompressible potential flow basic solutions (EOD) 
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(3) Combined soluCions v^ith compresbibility correction (COMBYN) 

Eacli step and its corresponding program will be described in the next 
section. 


DESCRIPTION OF SOLUTION STEPS AND PROGRAMS 
Geometry Representation - Program SCIRCL 

The inlet is assumed to be axis ymme trie and is represented by its 
meridional profile. This profile is broken into segments at convenient 
tangent points as shown in figure 2. Each segment may be defined by an 
analytic expressio"', or a set of points. Tlie inlet duct walls and the 
outer surface (nacelle or bellraouth) must be extended far downstr-eam 
(fig. 2) to facilitate obtaining accurate potential flow solutions in the 
inlet region of interest. The geometry program SCIRCL prepares coordinate- 
point input for efficient use of the potential flow program and also prints 
out information such as curvature, wall angles, flow area distribution, 
etc., which is useful in preliminary screening of proposed inlet shapes. 

In addition to the surface points, sets of points spanning the passage, 
like flow measuring rakes, are needed at axial locations where velocity 
profiles or streamlines are desired. At least one "rake" must be speci- 
fied for use as a control station. (The function of the control station 
is given under COMBYN.) Program SCIRCL generates the coordinates of the 
rake points for input to EOD. Program SCIRCL will also produce Calcomp 
plots of the inlet goemetry and rake points and, optionally, area dis tri- 
bution and curvature distribution (see description of SCIRCL Input). 


Incompressible Potential Flow Basic Solutions - Program EOD 

The Douglas -Neumann program EOD (refs. 6 to 8) is used for calculating 
the Incompressible potential flow. Briefly, the program utlJices a distri- 
bution of sources or sinks of initially unknown strength a to represent 
the inlet profile. This representation results in an integral equation 
(see refs, 6 to 8 for details) which is exact for a continuous distribu- 
tion of source strength. This continuous distribution is approximated by 
representing the inlet profile by a finite number of discrete elements 
characterized by a point on the element (e.g,, the midpoint) called the 
control point. Each element has the same predetermined type of source 
strength distribution (e.g., constant, linear, parabolic). This approxi- 
mation results in a set of linear algebraic equations that are solved by 
matrix methods for the source strength at the control points. Velocities 
at the control points and at specified off-body points (rake points) are 
then calculated from the source distribution. 

Method of approximation . - Two methods of approximation have been 
used as shown in figure 3: (!) the original method, called the lower 

order method, which has been in use at NASA-Lewis for several years; and 



3 


(2) elie improved mechod, called the higher order method which was recently 
put into use. 

The lower order metliod (ref. 7) uses flat (linear) surface elements 
and assumes constant source strength over each element (fig. 3(a)). To 
obtain solutions of adequate accuracy this method often requires very 
large numbers of elements and consequent long computer times. 

The higher order method (refs. 9 and 10) uses curved (parabolic) sur- 
face elements and assumes a linear variation in source strength over each 

element (fig. 3(b)). For a given accuracy this method requires fewer ele- 

ments than the lower order method with consequent savings in computer 
time. Conversely, a greater accuracy can be obtained within the element- 
number limitations of a given program-computer system with this method. 

The program was originally written for closed bodies in a free 
stream. To apply the method to inlets, the inlets are idealized by add- 
ing artificial extensions to the inlet surfaces as shown in figure 2, . 

The method of idealizing conventional inlets is given iu reference 11 and 
that for lift fan or lift engine inlets in reference 2. 

Types of basic solutions .. - The program is used to obtain three 

basic solutions which are used in linear combination (to be explained 
under "Combined Solution, Program COMBYN" below) in order to satisfy the 
prescribed operating conditions (fig. 1). T\'?o types of sets of basic 

solutions, as shown in figure 4, have been used at NASA-Lewis . The first 
is the closed-duct method (in use for several years) and the second is 
the shroud-vorticity method (recently put into use) . 

The dost ' duct method uses a combination of a closed-duct inlet 
(fig. 4(a)) and an open-duct inlet both in an axial freestream flow to 
obtain a static arbitrary mass flow. This method has some shortcomings 
as pointed out in reference 4. 

The shroud-vorticity method (fig. 4(b)) utilizes a distribution of 
unit vortices (in addition to the distribution of sources that represent 
the inlet profile) on the shroud surface to induce a static mass flow 
through the inlet. Any arbitrary static mass flow can be obtained by 
the use of a multiplicative factor. This method does not suffer the 
shortcomings of the closed-duct method. 

Possible solution procedures . - The two methods of approximation and 
the two methods of inducing static mass flow are independent o'" each other 
so that when they are used in all possible combinations there ...ults 
four different procedures for the solution: 

(1) Higher order approximation - shroud vorticity 

(2) Higher order - closed duct 
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(3) Lower order ~ shroud vorticlty 

(4) Lower order - closed duct 

In general, method (1) gives the best accuracy Lgr the fewest points and 
is therefore the recommended method. 

The choice of method of solution is input to program SCIl^ and is 
passed on to EOD, The three basic solutions chosen are output by EOD for 
use by program GOMBYN. No further description of EOD input or output will 
be given. 


Combined Solution - Program GOMBYN 


This program combines the basic solutions Vj , j =1, 2,3 from EOD 
into any number o£ solutions of interest. A- solution of interest or com- 
bined solution V is one having specified values of free stream velocity 
Voo and direction a and inlet weight flow W. The _ average axial velocity 
Vj, at the control station may be input instead of W. Clf N is input, 
it is converted to Vj, since is required by the combination schemes,) 

Temperature and pressure must also be specified if other than standard con- 
ditions are desired. These and other GOMBYN inputs are described later. 
(Note that GOMBYN requires rather tlian a where ap = a - 90.) 

The method of combination of the basic solutions is essentially that 
given in reference 2 and is illustrated in figure 5. However, the method 
of calculating the combination coefficients depends on the types of basic 
solutions, shroud-vorticiUy or closed-duct, chosen for EOD. 


The velocity obtained by combination is incompressible and is cor- 
rected for compressibility by the Lieblein-Stockman compressibility cor- 
rection (ref, 12) . 




cor 






where all the terms on the right hand side are obtained from the incom- 
pressible flow solution or the input flow conditions. This correction re- 
quires no alteration of the inlet geometry and it can handle local sonic 
and supersonic velocities. From the compressible velocity, Vqqj., other 
flow properties (Mach number, pressure ratio, stteam lines, etc.) are ob- 
tained. 

One of the "rakes” mentioned under SGIRCL is used as a control sta- 
tion by CC IBYN. The control station is the rake at which the average in- 
let axial velocity of the combined solution is specified. If there 

are several rakes any one may be used as the control station. It should 
be noted, however, that the solution is most accurate in the vicinity of 



the control station since the compressibility correction does not exactly 
satisfy continuity. 

Optional supersonic velocity correction . - Wlien the velocity on the 
inlet surface becomes locally supersonic, the agreement between theory 
and experiment is generally not as good as when the flow remains subsonic. 
To improve the agreement an optional supersonic correction based on local 
streamtube area has been incorporated into the program. This correction 
affecta only the supersonic velocities (and related quantities) on the 
surface and there will thus be some inconsistency between these corrected 
surface velocities and the rest of the local supersonic flow field. The 
supersonic correction is actuated by inputting NX as 1. 

Optional force and momentum calculations . - Subroutine INFORC, which 
is activated by inputting an NX of -1, calculates surface forces and cer- 
tain integrated quantities at the control station * (See COMBYN OUTPUT.) 
This subroutine was written for VTOL fan-in-wing and fan-in-pod inlets 
and therefore the quantities are VTOL oriented. 

Thus, under the output heading "SURFACE INTEGRAL," subheading "LIFT" 
refers to forces in the direction of the inlet axis, positive pointing 
upstream. "PRAG" refers to forces normal to the LIFT direction, positive 
in the aft direction when the inl*>.t is oriented vertically (op - 0). 

However, the quantities under the subheading "RESULTANTS" are ori- 
ented to the free scream direction and the "ANGLE OF ATTACK" is the ALFAF 
input to COMBYN. In this group "DRAG" is parallel to the free stream 
velocity vector, positive pointing downstream, and "LIFT" is perpendicular 
to the drag. 

To illustrate these orientaclons , consider a conventional inlet at 
aero angle of attack. AIjFAF is -90 “. The first group of forces under 
"LIFT" are actually drag forces and those under "DRAG" are lift forces. 
However, under RESULTANTS the "LIFT" is lift and the "DRAG" is drag. 

Ocher quantities should be adequately defined under "COMBYN OUTPUT." 

When using INFORC at least two THETA' s (0 and 180) must be input to 
COMBYN even when the flow is axisyronietric. When the flow is not axis yn- 
metric more THETA' s (say 3 or 5) are desirable. 


DESCRIPTION OF SUBROUTINES 

Figure 6 illustrates the calling relation between the main pro- 
grams and their subroutines , 



6 


(A) MAIN SCIRCL 

Straight Lines 

(B) STRAIT 
(G) I'NSTim 

(D) FRSTSH 
Ellipses 

(E) TEST 

(F) PRJilLPS 

(G) ELIPSE 

(H) SUPERC 

(I) FONIS0 

Other Curves 

(J) CUBIC 

(K) SIMQ 

(L) LEM 

(M) MIRROR 

Direct Interpolation 

(N) XYCALC 


Program SCIRCL 

Read all input, call required subroutine for each 
segment as requested, plot each segment after 
points are generated by subroutine; list points; 
plot curvature if requested; test for reviforking 
of geometry if requested, 


Generate points 
Generate points 
Generate points 


on a general straight line segment, 
on final straight segment of a body, 
on first straight segment of a shroud. 


Test superellipse input to see if mirroring about 
y-axis is required. 

Mirror superellipse input data about y-axls so that 
slope (1,2) is greater than slope (1,4). 

Obsolete (see SUPERC) 

Generate points on a general bisuperellipse. 

Iterate on input conditions to find bisuperelllpsa 
exponents . 


Fit a cubic polynomial between two nonvertical par- 
allel lines. 

Simultaneous solution of equations to obtain coeffi- 
cients of the cubic polynomial. 

Generate points on a general Lemniscate. 

Mirror the hub points to obtain the shroud; primarily 
for 2-D inlets. 


Executive routine for the following modules; purpose 
is to generate points "correctly" spaced along the 
curve defined by the list of input points. Inputs 
are used to develop double 3-point interpolating 
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(N) XYCALC (Cont.) polynomials in successive regions along curve. 

Polynomials are then used to suggest points, deriv- 
atives, etc. which can be tested for correct spacing 
as defined by standard criteria (see comments in 
SPGEN listing). 

(O) SGEN 

(P) DZTRP 

(Q) SPGEN 

(R) DNiRPC 

(S) FNTRP 

(T) FZTRP 

(U) FNTRPC 

(V) FNTRPA 

(W) TLU 

(X) LIMIT 

Special Calculations; Output to EOD 

(Y) WPUNCH Generate rake points at requested positions; plot 

rakes ; write EOD input flags . 

(Z) l-JRTXY Write remainder of EOD input flags and all X,Y 

coordinates. 

(Zl) AREAA Compute simple disk area (neglecting centerbody) and 

actual inlet area (including centerbody if any); 
plot if requested. 

Picture Plotting 

(Z2) DRAW Plot x-y meridional plane picture of each inlet seg- 

ment. 

(Z3) PLOXIS Plot frames for inlet picture or other required 

plots; label axes 

Utility 

(Z4) SINTP Lagrange 3-point interpolation. 
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(Z5) SORTXY 

System Library 
ERTRAN 

symbol‘s 
SCALE I 
LIKE > 

NUMBER 
PLOT ^ 

(A) MAIN COl-IBYN 

(B) READS 

(G) CONST 

(D) VBARIT 

(E) GETABC 
(E) INTPOL 

(G) AVEV 

(H) ONOEF 


Kuaerunge Che values in an array, x, to increase 
with increasing index (ascending order) ; sort y 
accordingly. 


Routine which gives FORTRAN access Co several UNIVAC 
1110 operating system commands. Can be eliminated 
by defining unit 25 before execution. 


Standard CALCOMP routines needed for all plotting 


Program COMYN 

Executive calls to READS, GETABC, AVEV and, for each 
clock position, a call to ONOFF; write mass flow, 
station velocity and circumferential position on 
uni t , 

Read input parameters from unit (^ . Read EQD output 
coordinates and velocities for the selection of 
basic flows solved. Plot any 3-D streamlines if 
required . 

Calculate most constants and intermediate parameters; 
list results; write on unit (^. 

Calculate average density ratio for compressibility 
correction. 

Compute linear combination coefficients A, B, C to 
satisfy input flow conditions. 

Interpolate velocities and y-positions at end points 
of a rake, i.e., where rakes would intercept hub 
and shroud. 

Calculate local velocities and densities at all body 
and rake points. Correct for compressibility; write 
basic velocities on unit and combined velocities 
on unit . 

Call ONBODY and OFFBDY. 
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(I) ONBOD'f Use velocities and densities to; calculate pressure 

ratios, Mach number, flow angles. List all these 
for onbody points, plot pressure ratio if desired, 

(J) SRTNE Calculate distance along body surface as function 

of X. 

(K) BEFOUG Find all points on hub and shroud that are upstream 

of XTEST and below YWING. Write x, y, s, pressure 
ratios and velocities of these points on unit 
for force calculations. 

(L) OFFBDY Same as ONBODY for rakes. Also, calculate weight 

flows for various stream tube heights, 

(M) VAROFF Calculate pressure ratios, Mach number, and flow 

angles for the rake endpoints found in INTPOL. 

(N) NOEPTS Determine number of rake points and endpoints that 

need tc be interpolated by INTPOL to reach body. 

(O) STRML Calculate y-position at each rake for a group of 

streamllnesi separated by weight flow increments 
of DELQ* 

OFFORC (Entry point in BEFORG) Parallel to BEFORC for all off 

body points on the control station rake at XTEST. 

(P) INFRCE Integrate pressure ratios along body curves and over 

all circumferential positions to find lift, drag, 
and moments. 

(Q) LGRNGE Lagrange interpolation for certain onbody variables 

at the exact YWING and XTEST positions. 

(R) TRAP Trapezoidal integration 

(S) SINTP See SCIRCL subroutines (duplicate) 

(T) SORTXY See SCIRCL subroutines (duplicate) 

(U) PLOXIS See SCIRCL subroutines (duplicate) 


INPUT/OUTPUT UNITS 

SCIRCL: 5 " standard card input 

6 - standard output list 
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SCIRCL (Cone.) 


EOD: 


COMBYN : 


h - temporary storage, IC flag J or E is 1, input 
to direct interpolation routines is written 
here. 

17 - Saved. If; flag A is 0 , input £or EOD consisting 
of X, Y points is written here (6E13.8), 

5 - input (= 17 from SCIRCL) 

6 - standard output list 

7 - Saved. Input for COMBYN is written here (4E13.8) 

X, Y, Vj,, Vy, etc. 

1-A 

Temporary storage 

5 - standard card input; flow conditions, etc. 

6 - Standard output list 

4 - t'mplracy storage. If NX = -1, data for force 
no tculations are written here. 

7 - input (from EOD 7 above) 

2,3 - temporary storage 


description of input and output 


SCIRCL Input 


Card 

no. 


Format 

Col. 

no. 

FORTRAN name 

Description 

9A6 

1-54 

ARE 

= title for area plots. "CROSS- 
SECTIONAL AREA, SQ. IN." 

9A6 

1-54 

EX 

= title for x-axis. "AXIAL POSI- 
TION, IN." 

9A6 

1-54 

CURVO 

= title for curvature plots. 
"CURVATURE ON SHROUD" 

9A6 

1-54 

SURF AG 

= title for x-axis with surface 
distance plots. "DISTANCE ALONG 
SURFACE FROM DOWNSTREAM END OF 
SHROUD, IN." 


These first four cards above will be; unchanged for all runs and can 
be made a part of the execution setup deck, or replaced with data state- 
ments. . 
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Card 

no. 

Format 

Col. 

no. 

FORTRAN name 

Description 

1 

9A6 

1-54 

TITLE 

Description of case 



FOR CALCOm’ PLOTTING 

OF INLET PICTURES 

2 

6F10.2 

1-10 

XX 

Length, in plot-inches , of X-axis 
required 



11-20 

XMIN 

Value, in data-inches , of far left 
X-point 




EXEP 

Data-inch per plot-inch along X-axis 



31-40 

YY 

Length in plot-inches, of Y-axis 
required. 



41-50 

YMIN 

Valiie, in data-inches, of bottom 
Y'-ppint. 



51-60 

ORD 

Data-inch per plot-inch along Y- 
axis (usually equal to EXEP) 



FOR IRFOI^MATION TO BE PASSED ON TO EOD: 

3 

4I1,10X,I1 

1 

IGEOMF 

"Use flat elements (1) , use curved 
(0)" 



2 

ISIGF 

"Use constant (2), linear (1), or 
parabolic (0) source densities" 



3 

rCURVN 

"Read in curvature values (1)"; 
"EOD will compute curvatures (0)" 



4 

NONEWF 

"Use, old velocity formulae (1)"; 
"New formulae (0) " 



13 

IVORT 

"Perform axisymmetric, closed-duct 
soln, (1)"; perform strip vortex 
soin. (0). 



FOR INFORMATION 

USED BY SCIRCL: 

4 

2A6, 14, 

1-6 

IDENT 

6-characrer tag for case, I.D. 


211 , 212 , 

lOX, II, 7-12 PROG EOD 

9X, 311, 

212 
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Card Format 

no. 

Col. 

no. 

FORTRAN 

name 

Descrip tlon 

4 

13-16 

H06 


1 for basic EOD data only 
0 for full EOD solution 

(FLAG 'A') 

17 

LPNCHO 


1, Do not save the output for EOD 
on unit 17 

'■ B 

18 

IFLOTA 


Plot inlet area against X position 

" C 

19-20 

IPLOTC 


-1, Plot curvature against X 
+1, Plot curvature against S 

ALL FLAGS " D 

are -on' when 
=1, unless other- 
wise noted. (Either 
E or J or neither 
can be on, but not 
both) 

21-22 

IlUiAD 


0 (obsolete) 

" J 

33 

lAB 


Redo geometry from point (XAA, YAA) 
to (XBB, YBB) 

" E 

43 

IREDON 

(1) 

Redo entire geometry via direct 
interpolation. 

" F 

44 

IRE DON 

(2) 

LPNCHO for any redo. 

" G 

45 

IREDON 

(3) 

IPLOTA for any redo. 

" H 

46-47 

IREDON 

(4) 

IPLOTC for any redo. 

" I 

48-49 

IMDON 

(5) 

I READ for any redo. 

Skip card 5 if J=0 





5 4F12.5 

1-12 

XAA 


X position of starting point for 
partial redo. 


13-24 

YAA 


Y position of starting point for 
partial redo. 


25-36 

XBB 


X position of ending point for 
partial redo. 


37-48 

YBB 


Y position of ending point for 
partial redo . 
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Card 

no. 

Format 

Col. 

no, 

FORTllAN name 

Description 

6 

5F10.2 

1~10 

AMBDYS 

Number of bodies (can handle 3) 
=1.0 shroud only 
=2.0 hub and shroud 



11-20 

DELS 

Spacing between points in region 
of interest 



21-30 

DELSMX 

Maximum spacing far from region of 
interest 



31-40 

XRI 

Axial distance at which surface dis- 
tance equals zero. 

7 

14 

1-4 

NRAKES 

Number of axial locations at which 
data across the passp.ge is de- 
sired, must be at least one (for 
the control station) , cannot be 
greater than 25. 

8 

3F8.5.I3 

H 

1 

00 

XRAK 

Axial location of rake 
(XRAKi ^ XRAK^4.]_) . 



9-16 

YLO 

Y value of first point on the rake 
at XRAK. If YLO = 0.0, the pro- 
gram will calculate a reasonable 
value for YLO provided the slope 
of nearby surface is not >45“. 



17-24 

YHI 

Y value of last point on the rake 
at XRAK. If YHI = 0.0, the pro- 
gram will calculate a reasonable 
value for YHI provided the slope 
of nearby surface is not >45“. 



25-27 

NY 

Number of points in rake at XRAK,. 
Restriction, SNY ^ 200 





YHI - YLO 
■ NY 





Rake points are equally spaced, AY, 
between YHI and YLO. 

9 

2F10.2 

1-10 

TYPBDY 

=1.0 for hub 


=2.0 for shroud 

=0.0 if shroud is to be mirror 
image of hub 
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Card Fotmat Col. FORTRAN name Description 

no. no. 


NOTE: A hub-only case (no shroud) 

can be handled by breaking the hub 
into at least two segments and in^ 
puting the first segment as a hub 
and the remaining segments as a 
shroud. This will go through 
SCIRLE and EOD but not through 
COMBYN. Examples that might use 
this option are Windmill or turbo- 
prop hubs. 

11-20 ANSEG = Number of segments for the partic- 

ular body 

= Y centerline used for mirroring 
if TYBDY=0 

= 0 for direct interpolation option 
over the entire body (see cards 
11a and 12a input instructions) 

10 3F10.2 1-10 ENEEED Code indicating type of curve to be 

fitted through given points. 

0,, for bisuperellipses. See table 
I and figure 7 for available options. 
Input 4,5, or 6 (XIN, YIN) points 
as directed, 

= 1000. , same as =0. but with finer 
point spacing near one end of seg- 
ment (2 such segments required). 
Usually used to give finer spacing 
at the highlight. The superellipse 
going into the highlight and the 
one on the topside of the highlight 
should have this flag. 

For bisuperellipses where the '1000' 
option is to be used, the rate at 
which the point spacing, ds, changes 
near one ei\d ds^ - ds^.l - (rate) • 
(dsi_i) can be specified on input. 

The rate (internal name ~ PAGE) is 
entered as the fractional part of 
ENREED for each such segment. For 
example, if ENREED were input as 
1000.06, the spacing for consecu- 
tive points would be evaluated as 
follows : 

DS^ = DS^_ - (0.06) if seg- 

ment is to go from large-to-small 
spacing. 
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Card Format 
no. 


Col. FORTRAN name 
no. 


Description 


DSi - DSi„x + 1,5 (0.06) DSi_i if 
segment is to go from small-to- 
lar gc spacing. 

If PACE is entered as zero, (i.e,, 
ENREED= 10Q0.) The default value, 
PACE=.05, will be used. 

(PACE i 0.133) 

*The first '1000' super ellipse ON A 
BODY reduces the point spacing as 
far as possible, down to a limit of 
2 percent of the ds value at the be- 
ginning of the segment. 

All subsequent '1000' superellipses 
input will increase ds as far as 
possible up to the input value DELS. 

■H 

Any number or types of segments may be 
input between the first and subse- 
quent '1000' blsuperellipses , with 
the exception of a normal bisuper- 
ellipse (ENREED = 0.) . 

= 1, is a straight line, input 2 coor- 
dinates (XIN(l), y:.,|( 1), XIN(2), 
YIN(2)). (fig. 8(a)) 

The last straight line on the hub 
and the first and last straight 
lines on the shroud will automati- 
cally have their spacing increased 
from approximately DELS near the 
region of interest to approximately 
DELSMX away from the region of 
interest. 

The first straight line on the shroud 
must be equal in axial length to 
the last straight segment on the 
hub. (If the actual straight lines 
are not equal in length, the longer 
should be input as two segments.) 
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Card format Col. FORTRAN name Description 

no. ao. 

«= 10, special straight line used for 

closed bodies (example - airfoils). 
This straight line starts with large 
spacing (DliLSMX) and ends with the 
small spacing (DELS), Input 2 coor- 
dinates. (fig. 8(b)). 

= -1, fits a lemniscate between a 

straight line and a point. Input 
is 3 coordinates (fig. 8(c)) 

o -3, fits a cubic between 2 straight 
lines, input 4 coordinates 
(fig. 8(d)) 

5= 99. for direct interpolation option 
over one segment (see input in- 
structions for card 12, 11a) 




11-20 

REEDEN(l) 

(See table I) Input exponent of .X- 
term in bisuperellipse equation. 
Blank for all other segment types. 



21-30 

REEDEN(2) 

(See table I) Input exponent for 
Y-term of bisuperellipse. 

11 

6F12.5 

1-72 

XIN(I) 

1=1, 2, 3, 6, 4. 5 

X-coordlnates of specified points. 

12 

6F12.5 

i-7;z 

YIN (I) 

1=1, 2, 3, 6,4, 5 

Y-coordinates of specified points . 





NOTE; If ENIUiED=99.: instead of 

using cards 11 and 12, input the 
following cards , 

11a 

Namelist/$BODYIN/ 

Z(I) 

2 is a complex array containing the 




1=1 , up tO- 
300 

X value (in the real part) and Y 
value (imaginary part) of each given 


point along the segment. The name- 
list will normally be longer than 
one card. 


12a Namelist/ $ AUXIN/ DONE = a logical variable which should be 

input as = .TRUE. 

NOTE: If ANSEG=0 and TYPBDY 0, 

skip card No. 10, and substitute 
11a for 11 and 12a for 12. 
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Input deck structure . - 
Catd no. 


1 

2 

3 

4 

5 

6 
7 

s' 


(only if flag J > 0) 


Number of *8' cards = NUAKES 


8 

V 


10 

11 

12 


10 

11 

12 

9 

10 

11 

12 


/* 


/ 


umber of '10-11-12' groups for each '9' card = ANSEG 

If ENREED =99, on card #10, use #lla Instead of 11 and #12a 
instead of 12. 

If AUSEG = 0, and TYPE DV 0 , on card #9 , skip //lO and sub- 

stitute //11a for 11, and //12a for 12. 


Number of '9' cards = ANIiDYS 


Figure 9 shows a SCIRGL input form, reflecting the above 
instructions . 


SCIRGL Output 

Printed output . - 

Input file dump (a list of input cards) 

Case number and title 

Input card number 3 (EOD flags) 

Input card number 4 (case I.D. and SCIRGL flags) 

Input card number 6 (number of bodies, DELS, DELSMX, and XRI) 
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Total number of points for all bodies should not exceed 400. 

Total for any one segment of a body should not exceed 200. An 
error message will indicate if these limits have been passed. 
Total number of off-body points must not exceed 200. 

Hub segment data, followed by shroud segments. For each segment: 

ENREED (as input) and type of segment 

Data depending on type of segment 

Straight line 

X X(l) X(2) 

Y Y(l) y(2) 

Vf 

Last point data 
Bisuperellipse 


Exponents 


p 

as read in 

X 

X(l) 

X(2) 

X(3) 

X(6) 

x(4-)' 

X(5) 

Q 

as read in 

Y 

Y(l) 

Y(2) 

Y(3) 

Y(6) 

Y(4) 

Y(5) 

P 

as used 

A 

XO 






Q 

as used 

B 

YO 

OMEGA 






where A & B ■= Semimajor and minor axes of the transformed superellipse 

XO El YO = Center of the transformed superellipse 

OMEGA = The difference (in radians) between the slopes of the 
end point slope lines nanus tr/2 (i.e., OMEGA is a 
measure of the nonperpendicularity of the slope lines). 

Nuniser of iterations 
Iteration data*** 

Last point data* 

'Magic triangle' massages refer to the triangle formed l5y extending the 
superellipses' slope lines toward each ocher and drawing a chordline be- 
tween input points number (X 2 ,Y 2 ) and (X^.Y^), Input points (X 3 ,Y 3 ) and 
(XgjYg) must lie within this triangle, or, for certain special cases, may 
lie in a similar triangle on Che opposite side of the chordline. 

If input points (X 3 ,Y 3 ) and/or (Xg/Yg) fall outside the magic, triangle, 
the following message (or messages) is printed; 

"Tliis point is below the magic triangle . . . " 
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or: 

"'Hils point is outside the magic triangle ..." 

Cubic 

X X(l) X(2) X(3) X(4) 

Y Y(l) Y(2) YC3) Y(4) 

A B C D 

where A, B, C, and D are the coefficients for the cubic 

AX^ + BX^ + CX = y 

, ■kit 

Number of iterations 

Iteration data*’^* 

Last point data 

Lemi^iscate 

X X(l) X(2) X(3) 

y Y(i) y(2) Y(3) 

TIIETWX CALC ACALC 

where 

THETMX CALC = angle between line 1-3 and line 1-2 

2 2 

ACALC from equation R = 2A sin 20 where A = ACALC, 

e = THETMX and = (XIN(3) - XIN(2))^ -f (YlN(3) - YIN(2))^. 

Number of iterations** 

Iteration data*** 

Last point data* 

*Last point data. This is the coordinate point data for the last 
point of the segment. It is presented here because it is oven^ritten by 
the first point of the following segment and therefore does not appear in 
the point-by-point array below. 

**Number of iterations is the number of iterations required to achieve 
a satisfactory point spacing for EOD and have the calculated last point of 
the segment coincide with the input endpoint (to within a prescribed toler- 
ance of 0.1 DELS). If this satisfactory spacing and end-point-matching is 
not achieved within 150 iterations , the following message is printed out 
above the number of iterations : 

This set of data exceeded 150 iterations. Calculations stopped XBRK YBRK. 
X(l), Y(l), X(2), Y(2), X(3) , Y(3) , X(4) , Y(4) , X(5) , Y(5) 
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IteraCion data 


DELS. IN 
DELS 

DELS OUT 


DSTEST 


FINAL PACE 


INPUT FOR THE COMBINE PROGRAM NT(1) = N'f(2) = NHUEMX = NP = 

(See COMBYN input section) 

Body coordinates (a separate set for each body; body 3 has only point 
number and X and Y) 

Point number 
X - axial distance 
Y - radial distance 
KAPPA - curvature 
DY/DX - slope 

ALPHA - slope angle in degrees 

S - surface distance measured from the first point of each body 
(same as SUMDS in EOD output) 

S-S(2) - surface distance measured from SRI (same as S in COMBYN output) 
DELTAS - distance between points 

Rake Information 

XRAK - Axial location of rake 

YLO - Y value of first location, on rake (either read in or computed value) 
YHI - Y value of last location on rake (either read in or computed value) 
NDY - Number of Y points on the rake, as input 

Area Output List 

1 - point number of each shroud point 
XON “ axial location of shroud point 
YON - Y value of shroud point 

YONH - interpolated Y value on the hub at X = XON 


value of ds at end of previous segment 

value used to start final iteration for this segment 

value of ds at end of this segment, to be passed on 
to next segment 

distance from last calculated point to input segment 
endpoint (should be less than .1*DELS; otherwise the 
"exceeds 150 iterations" message is printed) 

the value of PACE at the conclusion (or termination) of 
the point-spacing iteration for bisuperellipses with 
ENREED ^ 1000 . 
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AiySA - Annular area between hub and aUroud (if Lhete is no hub, ARdi 
is the disk area) 

DISC A!IEA - area as if there were no hub 

ENSUBK - local curvature parameter « 

./TT'yonh 

File output . - The output file (UNIT //17) , written by SCIRCL , is 
used directly as input to EOD, either as cards or from a mass storage file, 
depending on how the user has set up UNIT //17. The file is primarily in 
6E13.8 format, consisting of the on-body point coordinates and rake points. 

Graphic output . - Standard Calcomp paper copies can be produced for 
each geometry run as follows: 

(1) For all cases: an x-y^ meridional ’picture’ of the inlet with 

SCIRCL -generated on-body points denoted by the ’+' symbol, and connected 
with straight lines; off-body rake points are denoted by a small square 
symbol; segment end points have a large octagonal symbol, 

(2) For cases with IPLOTA =1: a graph of cross-sectional area (both 

disk and annular) against axial distance, X, 

(3) For cases with IPLOTC ^0: a graph of shroud body curvature 

against axial position (IPLOTC = -1) or against distance along shroud. (+1) 



COMBYN Input 


English engineering units are used throughout the program. 

Length - inches 
Velocities — ft /sec 
Angles — degrees ^ 

Pressures — lb / f t" 

Temperature - degrees R 
Densities - slug/ft^ 

Force - lbs 

Weight floxi; - lbs /sec 


Card 

Format 

Col. no. 

FORTRAN 

Description 

no. 



flame 


1 

12A6 

1-72 

TITLE 

Title card (columns 13-66 are transferred to pressure 
plots) 

2 

814 

1-4 

NT(1) 

Number of on-body points for the closed-end solution. 



5-8 

NP(1) 

Total number of off-body points. 



9-12 

NT (2) 

Number of on-body points for the open-end solution 
(eliminate the last body) , 



13-16 

NP(2) 

Total number of off-body points 



■ 21-24 

KSKIP 

-0 for first case of COMBYN 

=1 for successive cases using the same EOD output. 

3 

10F8.5 

1-8 

VC 

Average axial velocity at the control station. Based 


on live floi-f area, i.e. , the flow area minus the area 
associated with the boundary layer displacement thick- 
ness. IE WDOT ^ 0, the program x^ill interpret this 
as a code to ignore the input VC and will calculate 
VC from l^DOT. (To run a case with VC actually equal 
to zero sec TOOT =0,0 and VC = 0.0.) If ICTLPT 
(card § 5 ) is not zero, VC is interpreted as the sped- 



Card Format Col. no. FORTRAN 
no. name 

3 

(Gont. ) 

9 “16 VINF 

17-24 ALFAF 

25-32 TTOTAL 

33-40 ELND 

41-48 YtJING 

49-56 UTIP 

57-64 VA 

65-72 FT 


Description 


fied pressure ratio (PS/P^) at a ’control point’ rather 
than a velocity. NOTE: all 3 inputs, WDOT, ICTLPT and 

VC, must be nonzero when the 'control point' calculation 
is desired. 

Free— stream velocity 

Angle of attack, 0.0 for free-stream perpendicular to 
inlet axis. Note that up = a - 90'’. 

For "control point" cases only, ALFAF will be calculated 
when ALFAF is input as = 999.0. 

Total temperature, if PSTAT and TSTAT are read in (to be 

explained later) , the program will calculate TTOTAL. ^ 

If TTOTAL = 0 and PSTAT and TSTAT = 0, then 
TTOTAL = 518.67 will be used. 

ELND is the arbitrary length used for scaling or normalizing 
Refer to KND input, card number 5. See also CUTOFF input 
below . 

Upper limit of integration for surface forces (used in sub- 
routine INFRCE) . 

Rotor tip speed. Need not be input unless relative rotor 
inlet quantities are desired. (See COMBYN OUTPUT.) 

Bulk velocity at control station, i.e. , average inlet axial 
velocity based on geometric area. If VA = 0.0, the pro- 
gram will interpret this as a code and set VA = VC- 

Total pressure. If PT = 0.0 and PSTAT = 0.0, the program 
will set PT = 2116. If PT = 0.0 and PSTAT f 0.0, PT is 
calculated. 



Col. no 


KIRTRAN 

name 


Card Pormat 
np. 

3 73-80 CUTOFF 

(Cont. ) 


4 10F8.5 1-S PSTAT 

9-16 TSTAT 

17-24 ITDOT 

25-32 DELQ 

5 814 1-4 NTHETA 


5-8 NCLO 


9-12 


NCHI 


Description. 


If CUTOFF f Q, the pressure ratio on the shroud 

will he plotted (on Calcomp) against dimensionless sur- 
face distance S/ELND starting at X=XRI and proceeding 
in both directions along the surface for a distance of 
S = CUTOFF- Length of plot in paper inches is 10 * 
(CUTOFF/ELND) . There is one plot for each circumfer- 
ential angle THETA. 

Static pressure 

Static temperature. (If PSTAT and TSTAT are not 0.0, 
total pressure (PT) and total temperature (TTOTAL) vTill 
be calculated using PSTAT and TSTAT. 

Weight flow — required unless VC 0 and concurrently 
ICTLPT = 0. 

Increment in mass flow fraction for spacing of calculated 
streamlines. NOTE; Default Value =0.1, if DJ’’Q is 
input as 0. 

Number of THETA’ s where THETA is the circumferential coor- 
dinate. If NTHETA =0, one THETA (THETA :< 70 “) will be 
read in and used as the initial angle for the start of 
3 -dimensional, on-body streamlines. For this op -Ion, 
THETA will vary as the streamline is followed up the 
shroud instead of remaining a constant on one meridian. 
NOTE: No INFRCE (force) calculations or pressure plots 

can be requested when NTHETA =0. 

One rake must be chosen as the control station. NCLO is 
the number of the first point on this rake. 

The number of the last point on the control station rake. 



Card Format Col. no. FORTRAN 

no . 

5 13-16 NX 

(Cont.) 


17-20 KND 


21-24 NOTHET 


Description 


If NX = -1, inlet total forc' calculations are obtained 
(Subr. INFRCE) . If NX = +1, a supersonic velocity 
correction is activated- At those on-aody points where 
local supersonic flow is detected, velocities and pres- 
sure ratios are readjusted based on local Kach nunfoers 
and the rate of change of the local velocities, (Since 
off-body points having supersonic velocity are not cor- 
rected, there will be an inconsistency between the cor- 
rected on-body points and adjacent off-body points.) 

Flag for scaling variables before velocity and pressure 
calculations and also for nondimensionalizing after cal- 
culations and just before printout; 

Scaling: All input lengths and coordinates are divided by 

ELND iinraediately after being input, and NDOT is set to m 
T- roOT/ELND^. If KND = -1, ELND = YIESTS 

0, ELND = 1.0 (no scaling) 

+1, ELND = YTESTS - YTESTH 
+2, ELND = the read-in value 
from card v3 

Nondimensionalizing: 

If KND = 8, the surface distance, S, will be divided 
by the read-in ELND just prior to printout. 

If KND = the on-body X and Y coordinates will be 
divided by the read-in ELND just prior to printout. 

NOTE: If CUTOFF is nonzero, surface distance will 

automatically be normalized by ELND before printout. 

If = 1, XvfDOT and VC will be left constant, as input, for 
all values of THETA (neglecting crossflow term) . 

If = Q/blank, l^DOT and VC will be corrected for crossflow 
and will vary with THETA. 



Card 

no. 

Format 

Col. no. 

FORTRAN name 

Description 

5 

(Cont. ) 


25-28 

ICTLPT 

Index number (from EOD output) of the desired 
'control point’ where a known pressure ratio 
is to be input in lieu of a control station 
velocity. See VC. 



29-32 

ISWIRL 

(Required when NTHETA =0) Index number of 
point on shroud where 3-D, on-body stream- 
line calculation will begin; preferably near 
the fan face. 

6 

10ES.5 

1-80 

(THETA (I), 
1=1 .NTHETA) 
HTHETA < 10 

Circumferential coordinate in degrees 

(number of THETA' s read in depends on NTHETA) 

7 

8E10.5 

1-iO 

XTEST 

Axial location of control station rake. Must 
be compatible with NCLO and NCHI. 



11-20 

YTESTH 

Y on the hub at XTEST (control station) 



21-30 

YTESTS 

Y on the shroud at XTEST (control station) 

8 

3E10.5.I4 

1-10 

XRI 

Value of X at which the surface distance is 
zero . 



11-20 

YRIHUB 

Y on the hub at XRI, 



21-30 

YRISHR 

Y on the shroud at XRI. 



31-34 

NHUBNX 

The number of the last point on the hub (this 
can be found in the printed output of SCIRCL) . 


Figure 10 shows a COMBYN input form reflecting the above instructions. 
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COMBYN Output 


Printed output . - 

TITLE - CObn?RESSIBLE COMBYN APPROACH 5 followed by title on title card. 

INLET GEOMETRY I.D, as carried fon^ard from SCIRCLE input. 

A list of the basic flow types obtained from EOD, followed by the 
values of several solution flags used by EOD. 

In the table that follows, several functions of three different velocities 
are given. The velocities are; 

Control; VC, Average axial velocity at the control station. (See 
Input) (The control station is determined by NCLO and NCHI.) 

Bulk; VA, bulk velocity at the control station. (See Input) 

Free stream, V^, free stream velocity. 

Tile rest of the table is self-explanatory except perhaps the terms INC 
and COMP. INC means calculated from Incompressible flow equations and 
COMP means calculated from compressible flow equations. 

The rest of the output will be defined by the output name: 

ALPHAF 

VINF/VC 
VINF/VA 
VC/VA 
VSONIG 
VSONICC 
WDOTCR 
TSTAT 
PS TAT 
PSTATC 
AS TAT 


Angle of attack of wing containing VTOL inlet (i.e., the angle 
between the free stream velocity and a line perpendicular to 
the inlet axis) 

V /V 

oo' C 

V /V 
oo' a 

V /V 
c' a 

Critical velocity uncorrected for compressibility 
Critical velocity at control station 
Corrected weight flow = 


DEL 


Free stream static temperature 
Free stream incompressible static pressure 
Free stream compressible static pressure 
Free stream static speed of sound 
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RHOSTAT 

WDOT 

VIC 

TTOTAL 

PTOT 

PTOTC 

ATOT 

RIIOTOT 

THET 

DEL 

INDEX 

PRESS. RATIO 

VCP 

VBAR 

RHOCCP 

XRI 

YRIHUB 

YRISHR 

HUB-TIP RATIO 
LND 

XTEST 

YWING 

NT 


Free stream static density 
Input mass flow 

Incompressible average vleocity at the control station 

Free stream total temperature 

Free stream total pressure incompressible 

Free stream total pressure compressible 

Free stream stagnation speed of sound 

Free stream stagnation density 


TTOTAL/518.67 
PTOTC/ 2 11 6. 2 2 




Index of input control point where 
is specified 

The input value of P /P at the control 
point ® ^ 

Compressible velocity at the control 
point (calculated from P /P ) 

Average axial velocity at the control 
point station (calculated from WDOT) 


. Appears only 
) if ICTPLT > 0 


Compressible density at control point 
Input 


J 


Input 

Input 


YRIHUB /YRISHR 

Length used for normalizing or scaling (see ELND input 
instructions) 

Input 


Input 


1 Input 

2 Inpu t 
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NP 

NCLO 

NCHI 

NHUBMX 

NX 

KND 

KSKIP 

NOTHET 

ISWIRL 

VI 

V2 

, C 
VINEP 

TIU2TA 

WDOTT 

VICT 

V3 


1 & 2 , Input: 

Input 
Input 
Input 
Input 
Input 
Input 
Input 
Inpu t 

Average (over Y and THETA, where YTESTH i Y ^ YTESTS 
and 0 <. THETA ^ 360) axial velocity at the control 
station for basic EOD solution #1, if ICTPLT = 0. 

If ICTPLT > 0, VI is the resultant velocity at the 
control point for basic solution itl. 

Same as VI except for basic EOD solution //2. 

Coefficients of combination 

Incompressible free stream velocity "uncorrected” for 
compressibility from the input compressible value, 

Input 

Local weight flow at the circumferential station given 
by THETA (weight flow that would be obtained if the 
entire circumferential extent had the same properties 
as at the local THETA position) 

Local ViC at given THETA (average axial velocity that 
would result from IVDOTT) 

Local average (over Y where YTESTH < Y < YTESTS) 
control station, velocity of crossflow basic solution 
#3 at the given value of THETA, if ICTPLT =0. If 
ICTPLT > 0, V3 is the meridional velocity component 
at THETA for basic solution #3. Note that in either 
case, V3 is not like VI and V2. 
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OTHER ^^i:SSAGES; 


HUB OR SHROUD 

ON-BODY POINTS 

I 

X 

Y 

VP 

VTHETA 

VRES 

VBARI 

BETA 

S 

n 


"VRESON = IS GREATER THAN VMAX. VCONC = 

The velocicy at a certain on-bocly point exceeds the 
allowable value for the local expansion condition so 
that the isentropic ratio term: 1. - VCONC is less than 

Y - 1 /vlUiSON 

zero. Where, VCONC = -i-— — 1 

’ 2 V , 

\ tot 

"I EXCEEDS 20 ITERATIONS FOR lUWBAR, VBAR >= , 

VCOMP = , RHOBAR = . VBAR HAS BEEN 1U3DUCED TO 

VC0^1P * RHOBAR/ lUlOTOT" Subroutine VBARIT attempts to 
find the average density at each axial location using 
the isentropic density ratio, the stagnation density 
(RHOTOT) and the average incompressible VBAR (based on 
weight flow and the cross section) . It has failed. VC0^iP 
is the 20th attempt at finding the compressible velocity 
and has been used to compute the RHOBAR that will be re- 
turned. The normally unchanged VBAR is adjusted to agree 
with these abbreviated results. 

For NX = -rl, supersonic velocity correction is operating 
and a message to that effect v^ill appear each time a 
region of local supersonic flow is encountered on the 
body, and also when it ends. The body point number where 
these transitions occur will also be printed. 



The index number of each on-body point 
Axial distance 
Radial distance 

Velocity component tangent to body profile in an X,Y 
plane (meridional velocity) 


Circumferential velocity component 

/ 2 

Resultant velocity (^VP + VTHETA ^ ) 


Average incompressible velocity at a given axial location 
(X) if ISWIllL = 0. If ISWIIH. 0, VBARI is replaced 
with the local value of THETA along the 3-D streamline. 

Flow angle = tan"^( VTHETA/ VP) 


Surface distance from XRl 
Mach number 



31 


RB/RT 

PSOPTC 


p^/Pj. at axial location (X) 

Static to total pressure ratio, compressible = 

^ 3.5 


1 - 0.2 


V 


21 


t/ J 


OFF-BODY POINTS (RAKES) 
(First Set of Rake Data) 
I 


X 

Y 

VX 

vy 

vz 

VRES 

VM 

VAFT 

VSPAN 

RHOBR 

PSOPTC 


Number of the off-body point (points without numbers in 
I column are interpolated points on hub or shroud) 

Axial distance - for each rake 

Radial distance 

Axial velocity component V 

Radial velocity component 

Circumferential velocity component V 


Resultant velocity 


‘4 


2 2 2 
V + V + V = V 
X yz res 


Meridional velocity component 

Velocity component in aft direction = V sin 0 + V cos 6 
(VTOL inlet orientation) ^ 

Velocity component in spanwise direction 

= Vy sin 0 - V^ cos 6 (VTOL inlet orientation) 

Pressure ratio-compressible 


Second Set of Rake Data 


I 
X 
Y 

VBRI 

M 

ALPHA 


Same as above 

Average incompressible velocity at a given axial location X 
Mach number 

Meridional flow angle = tan ^(V /V ), inlet oriented, 
cylindrical coordinate system. 
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BETA Flow angle “ tan“^(Vjj/Vj^) == sin"^ (V^/V^gg) , Inlet 

oriented, cylindrical coordinate system 

ETA Undertuming angle « tan'^CVaft*) /Vj^) , wxng oriented 

rectangular coordinate system for VTOL inlet. 

ZETA Spanwise flow angle = tan“^(Vgpg^/Vjj) , wing ori- 

ented, rectangular coordinate system for VTOL 
idle t 

PHI Swirl angle = tan“^(V^/Vjj) , inlet oriented, cylin- 

drical coordinate system 

QFRACT Local (at a given x-station) cumulative weight flow 

between hub or axis and point in question divided 
by total weight flow at that x-station. If x- 
station is outside of inlet, control station 
V\/eight flow is used for total weight flow. (Equiv- 
alent to stream function when flow is axisymmetric. ) 

RELATIVE ROTOR INLET DATA 


X 

UTIP 

Y 

U 


Equal to XTEST 

Rotor tip speed 

Local radius at X = XTEST 

UTIP * Y 

Local rotor speed = " y Y e ' sTS ~ ^ 


The follot^ing quantities relative to a rotor rotating at tip speed = UTIP 
are calculated at circumferential location THETA. 


VZPRIME 

VP RIM 

MPRIME 

BETAPR 


Circumferential velocity component relative to 
rotor = SIGN * VZ - U where SIGN = SIGN of sin 0 

Relative velocity VM/cos S' 

Relative Mach number = (V' /a^.) / [l.O - 0 .2(V^gg/a(-)^3^'*^^ 
Relative flow angle = ATAN(V^/V^P 


Tl:e following are the same as above, but calculated at circumferential lo- 
cation 360 -theta. 


VZPRST 

VPRST 

MPRS 

BETAPS 
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RAKE I^EIGHT FLOW DATA (based on conditions at the local THETA but using 

the full circumferential area. Therefore, if 
VINF i 0 and ALFAF i -90 , these are not the 
correct integrated values. The correct integrated 
value can be obtained by running several THETA’ s 
and properly averaging the 'results , ) 

I The number of each rake 


X 


Axial location of the rake 


Q(I)-QBAR 

QBAR 


QSTOT 


Weight flow disparity parameter where Q(I) is 
integrated weight flow at rake #1 and QBAR is 
Integrated weight flow at control station 

Total weight flow for each rake 


QFR Obsolete 

QSTOTCR/ARAKE Corrected rake weight flow divided by the flow 

area at the rake station 


^ffiAR 

QWALL 


One-dimensional Mach nuirfser at rake station based 
on QSTOTCR/ARAKE 

One-dimensional weight flow at rake station based 
on conditions at the outer wall (shroud) . 


QSTQT/QWALL 


Flow coefficient, QSTOT 4- QWALL 


STREAMLINES (See comments above under RAKE WEIGHT FLOW DATA.) 


Tliere are streamline data for every r ’"e position, X 


QSTRM 

Value of stream function (increment between stream' 
lines is DELQ) 

YSTRM 

Corresponding y value 

Output 

for optional subroutine INFORC: 

CASE 

Inlet geometry I.D., as carried forward from 
S CIRCLE input. 

YTESTH 

Input 

YTESTS 

Input 

YWING 

Input 
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VC 

VINF 

ALFAF 

TTOTAL 

RHOT 

PA 

PAG 

MINF 

MC 

NTHETA 


SURFACE INTEGRALS 

In general, the surface integral quantities are numerical integrals 
of the local surface static pressure minus the free stream static pressure 
(PAG), Integration is carried out over from 0 to 180. (Symmetry is 

assumed about the & = 0 - 180 plane,* e.g., conditions of = 270 are 

the same as at 'i'' = 90.) Hub integrals go from the control station (XTEST, 
YTESTH) upstreaiTi to the axis; shroud integrals go from the control station 
(XTEST, YTESTS) upstream to the input value YWING. 

TOTAL FORCE, LIFT, and DRAG differ in the area element used in the 
integration: TOTAL FORCE uses the actual surface area element; LIFT FORCE 

uses the component (or projection) of that element normal to the lift direc- 
tion (see section "Optional Force and Moment Calculations"); DRAG FORCE uses 
the area component normal to the drag direction. LIFT and DRAG MOMENT'S are 
the integral of the appropriate differential force (lift or drag) times the 
distance from the area element to the origin. MOM. ARM is the moment arm, 
i.e,, the distance from the center of moments (origin) to the point where 
the entire lift or drag force would act to produce the given moment, 

AREA is the integrated area over which the force integrations are car- 
ried out. 

RESULTANTS are the force components in a coordinate system where the 
lift direction is perpendicular to the free stream velocity vector and the 
drag direction is parallel to the free stream. 

ANGLE OF ATTACK is the ALFAF input. 


Input 

Input 

Input 

Same as TTOT, input 

Free stream static density as computed from VINF 
Obsolete 

Same as PSTATC input 
Mach number based on VINF 
Mach number based on VC 
Input 
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MEASURING STATION INTEGRALS 
X = XTEST input 

These integrals are carried out over the flow area at the control station, 
AREA 

INT Numerically integrated annular area between hub and 

shroud over which the various quantities are inte- 
grated . 

EXACT Annular area between hub and shroud calculated from 

hub and shroud radii. (Used as a check on the 
accuracy of the numerical integration.) 

FORCE DUE Integral of local static pressure at control station 

TO PRESSURE minus free stream static, 

TOIGHT FLOW Integrated weight flow 

MOMENTUM FLUX Integrated momentum flux 

MOblENT OF Integrated moment of momentum flux about the inlet 

MOMENTUM FLUX axis 

DRAG FLUX Integrated aft-directed momentum flux. (May be clari- 

fied by definition of AVERAGE VAFT following.) 

AVERAGE VAFT Integrated average of the local VAFT at the control 

station. Obtained from DRAG FLUX divided by WEIGHT 
FLOW. 

VINF/VC VINF divided by VC. 

(VINF - VAFTAV)/VC Obsolete 

(VINF - VAFTAO/VC (VINF - AVERAGE VAFT) divided by VC 
D/L Obsolete 

DC/LC RESULTANT DRAG divided by RESULTANT LIFT 

MISALIGNMENT PARAMETERS 
DELV Obsolete 

DELVC arctan (AVERAGE VAFT divided by VC) 

DELM Obsolete 

arctan (DRAG FLUX divided by MOMENTUM FLUX) 


DELMC 
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COMPARISONS 

The two lines 
obsolete. 

of output listed 

. 1 

under this heading ate 

LIFT 

Obsolete 

i 


LIFTC 

[weight n.ow . 

\ g 

^ FORCE DUE\ 

^ " TO PRESS / 

X cos ALFAF 

DRAGP 

Obsolete 



DRAGPC 

WEIGHT FLOW FORCE DUE , 

(VC sin ALFAF + VINF) - PRESS ALFAF 

DRAG 

Obsolete 



DRAGG 

DRAGPC ~ DIUG 

FLUX cos ALFAF 



Gcaphlc output . - Standard Calcomp plots can be produced for a COMBYN 
case/run as follows: 

Cl) For each case with CUTOFF f Q , a. plot of onbody static pressure 
ratio, ^s/Pt> against normalised surface distance on shroud, S/ELND (see 
CUTOFF, card //3) . Tt^'o curves appear on each plot, one for points upstream 
from S = 0 and one for those downstream, toward fan. If S = 0 at the 
highlight, then one curve gives the internal pressure distribution and the 
other gives the external. One plot will be produced for each value of 
THETA read in from card #6. 

or: 


(2) (Not compatible with (1)) For each run (i.e. , 1 or more cases, 
back to back), whose last case has set NTHETA = 0, a plot of the now- 
dependent variable THETA against axial position along a 3-D streamline. 
One curve is shoxm for each separate case of 'NTHETA = O' included in 
the run. 

NOTE: The highlight of the shroud should be at X = 0, in order to 

use this option. For purposes of display only, points on exterior of 
shroud (past highlight) are plotted with negative X positions. 

REFERENCES 

1. Stockman, Norbert O.i and Lieblein, Seymour; Theoretical Analysis of 

Flow in VTOL Lift Fan Inlets Without Crossflow. NASA TN D-5065, 
1969. 

2. Stockman, Norbert 0.: Potential Flow Solutions for Inlets of VTOL 

Lift Fans and Engines . Analytical Methods in Aircraft Aerodynamics . 
NASA SP-228, 1970, pp. 659-681. 

3. Albers, J. A,; and Stockman, Norbert 0.: Calculation Procedures for 

Potential and Viscous Flow Solutions for Engine Inlets. J. Eng. 
Power, vol. 97, ser. A, no. 1, Jan, 1975, pp. 1-10, 
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h, Stoclcman, Norbert 0. * Potential and Viscous Flow in VIOL, STOL or 
CTOL Propulsion System Inlets. AIAA Paper 75-1186, 1975. 

5. Stockman, NorberU O.j and Button, Susan L.: Computer Programs for 

Calculating Potential Flow in Propulsion System Inlets. NASA TM 
.X-68278, 1973. 

6. Smith, Apollo M, 0.; and Pierce, Jesse: Exact Solution of the 

Neumann Problem. Calculation of Non-Circulator, y Plane and Axially 
Symmetric Flows About or Within Arbitrary Boundaries. ES-26988, 

Douglas Aircraft Co., 1958. 

7. Hess, John L.j and Smith, Apollo M. 0.: Calculation of Potential 

Flow About Arbitrary Bodies. Progress in Aeronautical Sciencies, 
vol. 8, D. Kuchemann, ed., Pergamon Press, 1967, pp. 1-138. 

8. Hess, John L.: Calculation of Potential Flow About Bodies of 

Revolution Having Axes Perpendicular to the Free-Stream Direction, 

J, Aerosp. Sci,, vol. 29, no. 6, June 1962, pp. 726-742. 

9. Hess, John L.,* and Martin, Robert P. Jr.: Improved Solution for 

Potential Flow About Arbitrary Axisymmetric Bodies by the Use of a 
Higher-Order Surface Source Method. Part I. Theory and Results — 
the Parabolic-element Linear Source Method, (MDC-J6627-01, Douglas 
.Aircraft Co. , Inc.j NASA Contract NAS3-18018.) NASA CR- 134694, 1974. 

10. Friedman, Douglas M. : Improved Solution for Potential Flow About 

Arbitrary Axisymmetric Bodies by the Use of a Higher-Order Surface 
Source Method. Part II. User's Manual for Computer Program. (MDC- 
J6627-02, Douglas Aircraft Co., Inc.; NASA Contract NAS3-1801S.) 

NASA CR 134695, 1974. 

11. Hess, John L.; and Smith, Apollo M. 0.: A General Method for Calcu- 

lating Low Speed Flow About Inlets, Aerodynamics of Power Plant 
Installation. AGARDograph 103, Part 1, 1965, pp . 345-371. 

12. Lieblein, Seymour; and Stockman, Norbert 0.: Compressibility Correction 

for Internal Flow Solutions. J. Aircr. , vol. 9, no. 4, Apr. 1972, 
pp, 312-313. 



TABLE I, - BISUPEEELLIPSE INPUT OPTIONS 


[To fit a 'bisuperelilpse, (X/A) -»■ (Y/B)^ = 1 between two given points (XINC2), YIN(2)) and 

(XINC4), YIN(4)), tangent (except case f) to the specified endlines (lines i -*■ 2 and 4 5)*, 

and satisfying the additional listed conditions, set the input as indicated. (Do not Input 
P, Q, or N as 1.0.)] 


Fig. 7 

Given condition (s ) : 

I, 

Input the following; j 

EEEDEN 

XEN(3) 

YIN (3) 

XIN(6) 

YIN(6) 

(1) 

(2) 

a 

One point (X^, Y^) (Superellipse) 



S 

^3 



b 

One exponent, N (P = Q = N) (Superellipse) 

N 

N 





b 

IVo exponents , P and Q 

P 

Q 





c 

One exponent P and one point (X^, Y^) 

P 


X3 

^3 



c 

One exponent Q and one point (X^, Y^) 


Q 

.X3 

^3 



d 

Two points (X^, Y^) and (Xg, Yg) 



% 

^3 


^6 

e 

One point (3^, Y^) and its slope (dy/dx)^ 




^3 

, (dy/dx)^ 

-100. 

f 

X-location of inflection point X- and its Irpe 
(dy/dx)** 




+100. 

(dy/dx) 3 

-100. 

g 

Curvature CAP at an endpoint (Xg, Yg) where (Xg, Yg) 
may be either (XIN(2), YIN(2)) or (XIN(4) , YIN(4).*** 





CAP 

200. 

h 

Curvature at end point (XIN(2), YIN(2)) is Co be set 
equal to curvature at last point of previous segment*** 


■ 

XIN(2) 

YIN (2) 

999. 

200. 


In general, lines 1 2 and 4-^-5 need not be orthogonal (fig. 7). If they are not, th' bisupetellipse equation is 




Y' = Y and 


X' = X + Y tan w and w is the angle of deviation from orthogonality. 

The angle w may be positive or negative depending on whether the angle g (fig. 7(a)) between lines 1 2 and 4 -t 5 is 

acute or obtuse, respectively (w = 90 - P). 


For this option; (1) no shear transformation is allowed, i.e. , the endlines 1-^2 and 4 5 must be orthogonal; 

(2) one endline must be horizontal; (3) only one endline is tangent to the curve; the other endline is orthogonal to the 
curve. See figure 7(f) for detailed restrictions. In general, a bisuperellipse will have aO: inflection if either P or 
Q is less than 1 and the other is greater than 1. 


For curvature options: (1) no shear transformations are allowed; (2) desired curvature, whether via input CAP (g) 

or previous segment (h) , cannot be zero or infinite; (3) for curvature matching option (h) the slope angle at the curva- 
ture match endpoint cannot be 90“ unless the previous segment is also a bisuperelilpse. 


37 d. 
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LISTING OF PROGRAMS 




Program SCIRCL 



35 

MAY 77 

1 3 

l.C 


PREPARE INPUT DATA FOR DOUGLAS POTENTIAL FLOW PROGRAMS E OD AND 

?2VA 

ccoo 

2.C 



A 

CQ 10 

3.C 


SECOND VERSION - SPACING SPECIFIED 

A 

3320 

4.C 


• 

A 

DC30 

S. 


DIMENSION REEDENI?) ,ARC(9) ,EXT9l,CURV0C9),SURFAr{9I 

A 

0040 

6. 


UIMENSION CAPPERI’D:! ,0 IS 1 1 200 I ,K A Y T 4 J , TTP ( 4 » . I REDON f4» 

A 

00 5C 

7. 


DIMENSION SDTSCOt, S(52P», NYI25) 

A 

OObO 

8. 


COMMON /SPREP/ KPREP.NIN 

A 

C070 

9. 


COMMON ^HNSo/ NNSO.NSODDYtIO) 

A 

3 3 82 

10. 


COMMON /NHIGH/ N SPHG , NL A ST , XLAST 1 5 0C» . YL AS Tt SCO > 

A 

0090 

11. 


COMMON /HWRTE/ 1 FLA G . ND Y4 , PROG , T I TL C 1 9 > , BOD I E S ( 4 ) , ID ENT , YLO 1 2 5 ) 

, YHA 

310C 

12. 


11(251 ,NOY<25> ,XRAK(25 I ,NBO?IS ( S T .NOb.NRAKES 

A 

Cl 1C 

13. 


COMMON /F0R3SS/IC .DELS, XBK ( 23 ) ,YOK (23 ) .XON ( 53 3 ) , Y ON ( FFO 1 .DYDXO (50'J A 

3120 

H. 


1 1 , alpha ( SCO 1 .CAPPA(5CC» ,S0N(50D» .PIOIBD 

A 

C13C 

13. 


COMMON /FpREOn/ I OE OM F , I SI GF , I CUR V N .NONE UF , I VORT 

A 

3140 

18. 


COMMON /SUPF/ IFLO 

■oi 

msMM 

17. 


COMMON /SEGNO/NSEG.J 



id. 


COMMON /main/ XINllO) .YINUCI ,DELSMX,PI02,DFLS1,1 hub 

A 

0170 

19. 


COMMON /SS/ NBDY1,NB00V2,TYPBDY,NBDY5 

A 

D1 BO 

20. cum i THE GENERAL PLOTTING VARIABLES 

A 

3190 

21. 


COMMON/ LOT/XMIN.VMIN ,ORD,EXEP,XX,YY,LPNCHO,IPLOTA,MM 

A 

0200 

22. 


COMMON/TITL/ TTITL(9,b> 

■ A 

D21Q 

23. 


COMMON/TOL/BAGS( 15),DAGX(15),ZAP(15J,NZAP(I5» 

A 

02 20 

29 . 


C'TiHON /SENSE/ X ( 21 , Y (2 ) ,A ,D 

A 

3230 

25. 


COHMON/PAC/ PACE.PELSHL 

A 

0240 

26. 


GAIA BLANM/bH / 

A 

0250 

27. 


DATA FODFF/fcHCNOOFF/ 

A 

0260 

■ 28. 


LATA REDONE /.jHREOONE/ 

A 

0270 

29. 


PI=3. 141 59265 

A 

3280 

30. 


f'loldf-sf’l/idb. 

A 

0290 

31. 


PI02=PI/2. 

A 

0300 

32. C 



A 

3310 

33. C 


WHEN N06 = 1. A FLAG IN CARD COLUMN 6 IS PUNCHED FOR 53D 

A 

032C 

34. C 



A 

0330 

35. C 



A 

0340 

3b. 


CALL PLOTID 

A 

0350 

37.C((tH( READ AXIS LABELS FOR THE MOST POPULAR PLOTTED VARIABLES 

A 

3360 

38. 


READ (5,50D> ARE 

A 

0370 

39. 


READ (5,S03)EX 

A 

3380 

40. 


READ (S,500)CURV0 

A 

C39C 

41. 


READ (5,50D)SURFAC 

A 

3400 

42. 


CALL ECHO 

A 

□ 4 10 

43. 

ID 

NIN=2S 

A 

□ 4 20 

44, 


READ (25,50D,EN0=b3D»TITLE 

A 

34 30 

45. 


7F <FLD(0,3b,TITLC(n ).EQ.FL0(O,3b,EODFFn GO TO 63D 

A 

04 40 

46. 


REWIND 4 

A 

34 50 

47. 


LOWERrO 

A 

0460 

48.CU(<I( READ GENERAL PLOTTING VARIABLES 

A 

04 70 

49. 


READ (2S,555>XX,XmM.EXEP,YY,YMIN,ORD 

A 

3 4 80 

50. 

15 

f0RMAT(4Jl,10X,Il J * 

A 

04 90 

51. 


READ (25. !5> IGEOMF.ISTGF.ICURVN.NONEWF.IVORT 

A 

3500 

52. 

20 

READ (NIN,490)IDENT ,PflOG,MOb,LPNCHO,IPLOTA,IPLOTC ,IREAD, lAP, (IREDOA 

0510 . 

53. 


2N(I > ,1=1 ,5) 

A 

0S2D 

54, 


lpduh=lpncho 

A 

0530 

55. 


IF(lPDUM.EO.O)LPNrHO=l 

A 

0540 

56. 


1F(LPDUM.EQ.1>LPNCH0=C 

. A 

0550 












rr-j-nrirT=3 

JSTOP=C 

*’ — pTtrr='r. 

IF Uftn.LFtCl CO TO 3C 
— 'T7rA’o~(WTJTb^ryynrrrro-7X^ 
1PUMB=C 




yin|i2ni|nm^ 


L C0NT;HN THr value of N at the MlGHLTGHr. NeiDLO TO SPA 
.C(C<Ht THE CURVATUPE VS, X PLOTS INTO INTERNAL AND EXTERNAL PORTIONS A 

rcTTTni' mh'coiInts t'me no. oT segments on s'hroud as plotting proceeds 
. 3C hh=o a 


CUtm LOAD AXIS LABELS INTO COMMON 

rrTNTKTroTr)~cTJ'nso~rc 

DO 35 1=1,9 

rTTrrTT7iT=Trrcrrrr'^ 

niTLa,2!=RLflNK 


WRITE tb,RSn rTEOHF,IS i r.F,ICURVN,NONEWF« IVORr 
IDO FLAGS/IH .RH.IOX.IU* 

rr-nrvoTT T7ro ,rr g'o -to~k — — 

1V0RT=0 


50 rvORT=l 




NCH, plot, RCA 

A 


111*1=1,5) 


MM I PLOT THE AXES NEEDED FOR THE INLET PICTURE, AND LABEL THE CASE 


I tf • t a U ■ I f 4 A ' A' 


CALL SYMBOLT-. 








V « •> f » C-V t 


, .25,T0ENT,0. ,6) 


I » u • , 

IFiNiN.EO.mCALL SVME OL f XX/ 2 . , Y Y - , 5 , . 25 ,REOONE ,D , , 


5 



TOO ,C 


102. C 


10N*C 


1C6.C 


108, C 


1D9.C 

UO.C 


in.c 

112. C 


iNPcrr crrmy-T 

CASE HE) 

TirrsuTOyrr 

5DER CARO - 

UTfCr" A 

^ NO, OF BODIES, CASE NO . .DEL 5,DELS«X A 

D980 

D990 

: — NRAXFS = 

NUMBER OF 

A 

RAKES nOTAL NUMBER CANNOT EXCEED 25» A 

non 

IDIO 


: X OF THE RAKE, 


ABOUT OS LESS THAN Y ON SHROUD 













im.c 

ns. 


1 16* 

lia. 

119. 


r<rAD <N TN «S55 . CN QZ63C lAMBpYStDELS .DriSHX ,XR1 ,A NNSO 
READ (NTN,485»NRAKrS ' 

bead (NT N 1 5^ E H K R ftW (I J , YLO tl > . VHH It .NY m . ! = 1 , N P A K E T. t 


WRITE <6,48 0 ANBOYS, DELS, DEtSHX.XR I 
DO 70 1 = 1 .BRAKES 



132. C 

133. C 
134’.C‘ 
135. 

‘i36;' 

137. 
•T3r.‘r 

139. C 
*1*40 . C* 

l“42 . 
143, 

— i-^irrc'- 

145. C 

T4‘6VC'" 

147.C 
1'48"."C'" 
149 . C 

151. C 

153_* 

rs4. 

155. 


NDY<1 t= NV«I )- l 

NLAYt:C 

NSPH5=C 

dsave'VdTl s 

DELS2=D ELS 
DELSnoTLS 
NEPYS^ANBOVS 
NNSD=ANNSD * 


K = COUNTER FOR THE NIJKBER OF ONBODY POINTS GFNFRA7E0 

IjnjR r 0, WH EN THEB E I S ONLY ONE BODY — IF T HEBE IS 0^ BODY 

"IT huTt be t~he shpoue". 

IFLAC = a, IF THERE IS MORE THAN ONE BODY 


_K :C 
IHUPrC 
1FLA0:0 


Ji7 LOOP IS FOR THF NUPBCR OF aOPJfS 

DO 225 Nr=l .NPDYS 

ffCoi'c ■ ■ ‘ 

IF tN2.GE.2> IHIIB=1 


~X'^E7~ 

ISV. 

‘IS*/!™- 

159, 

'r6r.”' 

161. 

Te2T~ 

163. C 
T6T-. “* 
165. C 


1 FO'? HUP TVPRDY - 2 F OR SHROUD 

lYPBQY^l FOR HUB 9 TYPDnv = ^FOR FJ^OH_ S PL I T T CR * =3 FO^ SHROUD 

9«9*9TL0W SPLITYF'R PROGKAVhIVG TS MOT'COKPLFtrrTHRCiirGII CONBYN^**** 
OR 

“"I'rTHC mITH rs T"6 re h"IRr6rE6 , Vet tYPBDY~FOR THE SHRODO = C.C 

■"PTA'D“< N I nV5 5*5 TT'Y'P'I-D yTANEE G ' * ^ ^ ' 

IF rlAB.GT.St WRITE I 4, 555 t T YPBCiY , ANSEC 
NSCC-A'NS’E*G *■* "■ 

IF <NPDYS.Ea.2.AND.N2,EQ.2.AN0.TYPB0V.NE.2.Ct TYPBDV-3.a 
fr'fNfi'liYs.EQ. l.ANP.TYPBDY.EQ.2.0 t IFL« G = 1 I 

IF tTYPBDY.EQ.l.T WRITE I6,59t>_ __ 

■*Tr (T Y'PB D yVEQ .3 .'E^OR .TYPB'h Y . ET."P ."F . OR*. NR D.YS rE’D*. IT" WR 1 TE '( 6.5951' * 
IF tTVPSDY.EO.C.Ot GO TO 215 

I'F rTYP*BDYTF0.2. C.AW.NRDYS.G'T.rr W'RTTE (T.63T) 

K±K»1 

SONIKl'ri.p 

“]‘rTV7 ;.C'6VV0DTNSrG::f5VE"6 ’ ' 

SrOHENT LOOP 


A 

A 

A 

A 

A 

Jl 

“a 

A 

A 

A 

A 

A, 

a' 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A* 

A 

A 

A 

«A 

A_ 

"a 

_A 

A 

_J( 

a' 

A 


166. C 

167. DO 20C J=1,NSEG 
T63.C(<T<T(* DT??rcT INTFR*P0LATI0N FLAG-^ 

16 9. 8.0 I F TNSCG.FO.D ) GO _15J ^ 

TTD . RFAD TNrN,5 5 5TENR"rED, IRE'EOEN 1 1 » , I = 1 , 2 1 


113C 
114C 
11 5D 
116: 

1 1 7E 

neo 

1190 

12 DC 
1213 
1220 
12 30 
1240 
1250 
12 6E 
12 7D 
12 80 

12 90 
1 3CC 

13 10 
132- 
13 30 
1 34C 
13 SC 
13 60 
1370 

13 8- 
1390 

14 CD 
14 ID 
142D 
14 3C 
1440 
14 50 
14 60 
14 70 
14 8C 

T4"90 

150C 

Tsic 

1520 

TTno' 

154D 


15 5D 
1560 
1570 
iseo 

159C 

_16C0 

16 l o" 
1620 
1630, 
1640 
16 50 
1 6 60 

Tr7'c" 
16 80 
16 90 



iTiV 


IF <CNRCED.E0.2. .OR.FNRrEO,Gr,932. 1 WRITE (6,85lENRCrO 

A 

17DC 

172. 

85 

rORMATTlH .SMFNRCFOr ,F9.2) 

A 

1710 

173. 


IF < lAB.GT.: > WRITE TC^'SSs ifNRtTo , TFEFDTrTfn , I = 1 , 2 > ' 

A 

1720 

17<< . 


IF <ENRCCn,CQ.99. > GO TO 155 

A 

1730 

ns.' 


RCaD (Nrhf,62SH)!lN(l» ,T = n3 > ,)TlNtr) .(XINul ,1 = 8 ,5 » 

A 

1740 

176. 


RE AO (NIN.625 KYINTI ) ,I = l,3»,YrNi6»,(YlN(l ) ,I=l4,5» 

A 

175C 

I‘77 . ’* 


ir~T,TAB.6T.r> WRTTE <i(,6l5MXlNn ),T = 1,3>,KIN(6>.TXINCI»,I=6,5) 

A 

17 6C 

178. 


ir TIAB.GT.2l WRITE « M , 625 M V I N T 1 J . T = 1 , 3 1 , Y I N T 6 1 , T Y I N Tit , 1 -6 , 5 ) 

A 

1770 

179. 

9' 

KSV = K 

A 

17 80 

ISO. 


CAPPATKim.C 

A 

1790 

181. 


IF Tfc.WREEO.NE.1.2 .AND.ENRrCO.NE.i: .» GO TO 105 

a"' 

■'Taco ' 

182. 


XCN(K»=XINm 

A 

IBID 

1 i • 


'YONrK):Y'rNm“ 

A 

~l8 20 

1814. 


WRITE t6,572 1 CNRLED, T XINTn ,irl,2) , (YINd >,1 = 1 ,2) 

A 

18 30 

185. Cl 

(MM KK= FIRST POINT ON CURRENT SCCHENT TO BE PLOTTEr 

A 

ra’4D 

186. 


KK = K 

A 

1850 

1 b / fe 


IF (T YPPDY.GE .2.2 1 GO TO '12C '■ 

A 

1S6C 

188. 


ir (CNREEn.EQ.l.O.ANO .J.EO.NSFG) CALL FNSTRH (K> 

A 

1870 

189. 


IF (EtJREEO.EO.1.2 .ANU.J.NCVnSEO CALL STRAIT TK.O.O) 

A 

laeo 

19G. 



A 

1690 

191 . 



A 

1902 

192. 


IF TCMREEn.EO.lCi. ) CALL FR5TSH TK) 

A 

19 10 

193. 

9? 

OVDXOTKSV> = DYDXO (VSV* 1> ’ ‘ ~ 

A 

1920 

198. 


ALPHA TKSV) = ALPHA t KSV« 11 

A 

1930 

195.CCC(nu KR= TOTAL NO. OF POINTS TO BE^LOTTED FOR^TflS^S^E GMEN T 

A 

19 40 

196. 


KR=.K“KK 

A 

1950 

l9/.C(Cflli PLOT rUPRCNT 5EFHENT 

A 

1 9 B'E 

198. 


CALL ORAWTKR.KKt 

A 

19 70 

199. 


GO TO 160 . ■ 

A 

20To““ 

220. 

ICO 

IF TJ.EO.l) GALL FR5TSH IKl 

A 

2P3C 

221. '■ 


TF (J'.EO.NSEG) CAtr rNfrT'R'H " (T) 

A 

2D40 

2C2. 


IF T J.NE.'i.ANP.J.NE.NSEF.) CALL STR ATT (K ,2 . G) 

A 

2050 

2G 5 • 


GO TO 95 ' ' - . . - 

A 

20 60 

2CI4. 

1C5 

IF (ENRrCri.LT.-2. •') GO TO 150 

A 

20 70 

2 25. 


TF rENprEP.LT.-l 'GO T'O T<4 3* 

A 

20 8'D 

2C6. 



A 

2 0 90 

207 « 


rr^'f ENTTE E p' . rrro . j 1 ■ “G’O'nr'o'nrTS" 

A 

2100 

2 2 8 . C 



A 

2110 

229. 



yr“ 

2'12C 

212. C 


SET-UP SUPER ELLIPSE 

A 

2130 

211 .C 



A 

"zTrg 

212'. 


KPREP-D 

A 

2150 

"“2Tr; ‘ 


■D/RD=rNT}CCD-i"!rrcr; 

A 

2160 

21M . 


IF (CNRO.LT.C .2) '0 TO IIP 

A 

2170 

215. 


PACE=ENREED-1 2CC, 

A 

2182 

216. 


IFTPACE.LE.D, >PACF=.05 

A 

2190 

217. 


EKRE'En = 0'i ■ ' • ' ■ ' ■■ 

A 

2200 

218. 


irLO = TFLt)*l 

A 

2210 



00T0115 

A 

2 2 20 

220. 

1 12 

1FLD=C 

A 

2230 

221 . 

115 

WRITE TEMSTS'JREEDrNT 1 >,TxmnTr='lTf>Tx^Nl6», ( XW^^ ,1=9 ,5) ,RFEDENA 

■■■y2 4c 

222. 


112>.IYIN(I) ,1=1,3 ),YIKT&1,TYIS(TJ,I=4,5) 

A 

2250 

223. 


CALL TEST <5* 

A 

2260 

229. 


1ETART=X 

A 

227C 

2TT. 


kl=K 

A 

2280 

226. 


kk=n 

A 

2290 

227. 


call 50PERCTX1N,¥IN,REEOEN,DCLST;i'S7''ART> ' • *" 

A 

2300 




GO TO 12S 



K=i0-1 

ir «N7.ro.i I 

kK'Kk=K-i 

UP_i2n JC=rSJARTjJ<KKK 
iV u6Nrjr>.Tc'^ioN«j£:«i'M go to isd 

iFMD YD)( o<jr>-r‘/oyo< JC»m/ixoN<ji: >-xoMt ji:*h>»ca pp» cxt •lt.Oi 
iPAlJCIs-CAPPM'jCf' ■ * ’ 

120 CONTINUC 

125‘k2=K ■ 

inuM=c 

■ ir iKPPCF^EQ'.O) Go TO 130 ■' 

CALL PRCLPS UDUM,l,S,Kl,K2» 

X (T=k-' k k ' ■ " " ' ■ ' " ' ■ ^ 

CALL PRAkf<Xf},KKI 

i n AG s < X ON ( k k > -X A A ♦ TO NT Kk ) -fA A )7 l c V iTe - 7 > js t a r T :K k 
ir«ADS(XON<K» -XnP»YOM«XI -Y03».LC.l,r-7»JST0P=K 
IFtJSTARt.ECl ,kMMBD:Nr' 

GO TO l&D 


SET-UP LEMNl SCATC 


URlTf, T6,SBC»rNRCrD,«XIN«I»,r;:l,3»,(YlNm,I = l,3» 

KK=K ■“ ■ ' 

CALL LEM (K» 

IT^V'i • - — . 

KR:K-KK 

CALL" ORrwVkR^Xkl' . — 

?r*A^^rONIKKI-YAA I.LE. 1 .E-71 JSTART = KK 

1 tr J i h C t iT Lr 1 _w n n A w rv I'u b* ' ' ur* n * i i> ' • r^‘" •• a « k 7 ‘ 


1 M A il S t X ON « k ) ' -X f) r ♦ V 0 N T X V 
ir(JSTART,EO.KK»MPO=N? 


-VBG J.LE . l.E-7 » JSTDP=K 


A 

A 

A 

A 

A 

ICAPA 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

'a 

A 
A 
A 
• A 
A 
A 
A 
A 
A 
A 
A 


2310 

2320 

2330 

23*10 

23 50 

2360 

2370 

23BD 

23 90 

29 CD 

29 10 

29 20 

29 3C 

2990 

2950 

29 60 

29 7C 

29 BC 

29 90 

2500 

2510 

252C 

25 30 

2590 

2 5 SC 

2560 

257C 

2500 

259C 


258. 


GO TO 16 0 ’ “ 


A 

261C 

259. C 




A 

2620 

2^0 .'C 


stt-up ellipse ■ ■ 


A 

263C 

261. C 




A 

269 C 

“ ibf7 

190 

'URTTE (6,5B5IENRErD,(XiNn »,I=1,91 , T YINU t , I = 1 , 9T 


A 

2650 

263. 


KPRCP=0 


A 

2660 

“269." 


‘CALL’'TEST T9 I'"'"""" * 

■ ’ 

A : 

2670 

265. 


KI=K 


A 

26B0 

266. 


'kk^k 


A 

269C 

267. 


CALL ELTPSC CKJ 


A 

2 7 CO 

268 * 


k=k+i 


A 

27 ID 

269, 

■ 


K2=K 


A 

2 7 20 



IDfiRsC • "■ - ‘ - 


A 

2730 

271. 


ir TKPREP.EQ.01 00 TO 195 


A 

2 7 90 

— if72; “ 


"call 'PRELPS' T IOUH , 1,9 ,Ki,k2t * ' ' 


A 

2 7 5C. 

273. 

195 

KP=k-KK 


A 

2760 

2797'" 


"cKl'TiRAwiKRtkki ■ V ' 


A 

27 7C 

275, 


IFCABSCXONTKK 1 -X A A« YONT KK) -Y A A 1 .LF . 1 , E -7 US T A R 7 =K K 


A 

2 7flC 

2767" 


irTABSiXONTKl -X Q P«y ONt K 1 VB3 1 .LE V 1 , E"7 US TOP = K 


A 

2 7 90 

277, 


irfjSTART.CO.KKIMRD=NZ 


A 

2800 

27fl7' 


"Gd"fd"'l6D — ' - 


A 

2810 

279, C 




A 

2B20 

280. C 


SET-UP CUftlC “ 


A 

28 3C 

2B1.C 


, 


A 

28 90 

282. 

1W 

"WRfTE <6 ,60 5 lENREEb,< XINTi r,l = f,9» , f YI N(i 1 , I = i ,'9 1 


A 

2ft 50 

283. 


KK=K 


A 

20 60 

“2'89. 


CALL CUBIC TKl 


A 

287D 



265. 

K=K»1 

A 

2860 

286. 

KR=K-KK 

A 

2890 

TB7. 

CULL nRAUlKRiKK) 

A 

2900 

288. 

IfMBSIXONtKK t-XA«*VON(KKt-VAA I.LC.1.E:-T>JSTART=KK 

A 

2910 

28^'," 

ImaOSiToTiIkI -X 0 fT* Y 013X0"= YBTiTtC .1,E-7IJS10P=« 

A 

2920 

290, 

iriJSTART,E0.8K»mJD=N2 

A 

2930 

291. 

GO to IbO 

A 

29 40 

292. 

cmtu NEW LINEAR INTEGRATION OPTION, BODY OR FULL INLET 

A 

2950 

‘293. 

"T55' RWiK ■ 

A 

2960 

294. 

KSV=K 

A 

2970 

yysT 

C APPA no -"0 . JT 

A 

2980 

296, 

iriNSEG.EO.DIOELSlzDELSHX 

A 

2990 

”29T. 

CKT~xvirArirTK7tf!r7firfri 

A 

3000 

298. 

K=K2 

A 

30 10 - 

299. ■ 

‘ KR=1(=KK‘ ' 


3020 

300. 

CALL r)RAW(KR,KK) 

A 

30 30 

lOl . 

- FFO ir~llAti.LE.OI eo TO'2bO 

A 

30 40 

302. 

IF f IJSTART*JSTOPI.EO .O.OR. USTOP.GI.O.AND.K. GT . JSTOP >1 

GO TO 200 A 

3050 

jor: 

“iro^rfi's "fr97i 73““ 


30 60 

304. 

165 BACKSPACE 4 

A 

3070 

“305. 

IF (4i^yARf■^jE*KKI GO TO 16Q 

A 

3080 

306. 

WRITE (4,n0» 

A 

30 90 

3 □ 7 « 

ITff rORHAH3X;3H9'9.,T?5n 


3 1 Ob 

308. 

WRITE <4,445tX0NIKK) ,YON(KKI 


3110 

J09T 

Torr-KKvi 

A 

3120 

310. 

DO 175 K9=KKI,K 

A 

31 30 

3 1 1 » 

175 Tif RITE 1 4 , 4 5 0 1 X 0 ff( f( 91 TTWT K‘9T~ 

A 

31 40 

312. 

BACKSPACE 4 

A 

3150 

■ ht; 

Tr~05TO'P.TJE7»m;'0"'TiriTo“ ’ 


3160 

314. 

WRITE (4,455IX0NtKl,V0N»K) 

A 

3170 

Alb* 

C0~T'0”'2D'0'^ 

A 

JTlo 

316. 

180 IF IJSTOP.NC.KI GO TO 190 


3190 

317; 

" LOWER -LOWER-t-1 “ 


3200 

318. 

KN1=K-1 


3210 

719; 

’ D0'Tff5"K9T:7ir;KflT" 


3220 

320. 

185 WRITE (4,450IXON(K9I , Y0NTK9I 

A 

32 30 

“3217 

WR.tT t 1 4 ,4 55 7'AON TKI , VON 1 K 1 



322. 

GO TO 200 

A 

3250 

"72j: 

790 7F' osTART.Eirnnrr*Rirr55rop.EO.o» go to 200 


3260 

324, 

L0WER=L0WER»1 

A 

3270 

* 

"XMTrK-r~“ 


32 80 

326. 

DO 195 K9=KK,KH1 

A 

3290 

T77T 

r9S~tfRiTF 7 47*357)1X0)3 ( k9I , VON 1 K91 


3300 

328. 

200 write «6i20SIK,XON(XI ,YONTKl,CAPPAlKl,DYOXOn(),ALPHA«K) 


3310 

A if V * 


=,E12.5,7H,A 

3320 

330. 

lKApPAr,Ei?,5,7H,DY/DXr,E12.5,7H,ALPHA=. E12.51 


3330 

3 J1 * 

C“ 

A 

3340 

332. 

C END OF SEGMENT LOOP 


3350 

3 3 A • 

L 

A 

TTSB 

334. 

210 GO in 220 

A 

33 70 

-3T51 

215 K K r 1 



336. 

CALL MIRROR (K,ANSEG> 

A 

3380 

3 3 7* 

Tnr=R=inr~ 



338. 

CALL ORAWIKR.KKI 





A 

33 90 

340. 

ND0V1=NBDPTST 11 

A 

34 00 


BOOOY2=NffOPTS (2 > 

A 

3410 

















12 . 

313. 


11. : 
315. C 


31b, C 
317, C 


3ie. 

319. 


350. 

351. 


,C9 
353.C 


355. C 


356. C 
‘.357. C 


35B.C 

359.C 


ITOP12=K 

inirLAG.CQ.llNB0nV2=IT0P12 


0ei.SND =0CLS 
ir (iFUG.EO.n NDOvi=a 


CO-0RnlNATE5 OF POUTS ON D0MNSTRE1M CLOSURE 


STRAIGHT SECTION OETUFEN HUB AND SHROUD OR SPLITTER 



60. 

IF INBDYl.EO.OI GO TO 230 


bl. 

YNBDYl=YONINDDYn 



Y1SAWE=YON(NBOY1 » 


63, 

Y5SAWE;:YON<NBOYl* 1» 



379. 
"3FQ7“- 
3S1 . 


382. 

3B3.C 


381, C 
385, C 


y6SAVF=T0NlND00V2l 

»7SA1E=rONINBODy2>lI 

E'frTTT'JT 

230 VHBDVI=0.d 


riSAVE=3.0 

235 HOYir i Y 0N<NB0VI*1 >-YNB0Yl>»1.5/0EL SHX 
ENOY1=SrOYl 
NPTSrNDVm 

frECPTSINBnYStl)=NPTS*NfinPTStNBDYSJ 
DY1=IY0N(NBDYI+1 » -YM0 DY 1 I/EN0Y1 
21'G i^zl.NPTS 
AYEM=I-1 

■’ rpNHT*f” 

XON<IPN1=XONINUDV 1*1 ) 


YON< lPNI=YNB0Vl*flYEM#0Y4 
210 CONTINUE 
JHr"lT0PT1=m 

I T0PT5=I T0PT1-»N0Y1 


IF <NBDYS.LE.2» go to 255 


STRAIGHT SECTION BETWEEN FLOW SPLITTER AND SHROUD 




387. C 


388. 

389. 



YNBDY2=Y6SAVE 
N0Y5=«Y7SAVr-Y6SAVC)11.5/DELSHX 


ENDYSrNOYB 

NPTS = NDYS*1 

■ N BDP T S « N B 0 Y S ♦ 2 1 = N P T S ♦ NB DpT s t N B D Y S ♦ 1 > ' 
OY5:<Y7SAVE-V6SAVn GENOVS 


DO 250 T=l,NPTS 
AYEM=1-1 


1PN=J»IT0PT5 

XONCI PN ) =XON ( NBOD Y2 M > _ 

YONIIPN1"ynB0Y2'» AYEM«DY5“"' ' 










-rw:'— 

•lUD. 

■Tnrr~ 

•102. C 

" Co i . c"' 


0 CONTINUE 

1T0PT6=IT0PT5+1 
— rTBPTT=TrOT>'Trs 


JR0UT7 NE 


ro AND PUNCH CARDS 



406. ir <NBDVS.GT*2| GO TO 2GC 

~ror; prrnnrToFT 

40a. NTZ=«-2 

-iroT?-;; — — jrcrro-zissr ^ 

mo. 260 NTUIT0PT7-5 

“flTT' RTTmOPTS^Jj— 

4J2. NT3=K-3 

"<iT3 “nTFC ffr:N b'od V 2 -2 __ 

•114, 265 NMUBNX=NBDV1-1 

—^T5 ; NR=Cf 

416. DO 270 I ::1.NR«KE:S 

— sT^rnjTTTTrn 

416. 270 continue 

-HTr, fj'HBrtiro =WHTiim X — — 

420, IF <NBPTS .LE.2I GO TO 275 

422. GO TO 265 * * ' * 

■”i(T3;* •ZTS'TfniNRUTMic.Gt.O* r,0 To 2a6 

424. NHunMy=NHUBKX*l 

—425; NTi=Nri"n"' 

426. NT2=NT2*1 

“ ¥27 . “2CT' ffme r6T5?a> n 1 1 . Nt s , nfiwn x ;np — 

42B.C 

—4 29 ;c aucaoTTN G hub stjr r a c i m r sTyMCc 

430. C 

¥31 ‘ 2 P5 ■ c7LL:-srNTF"TypR7ST5N7frTOyrt5fRi;"S2i 
432. NRITE (6,505) 

-■¥337 — ^TryTrLT(Tr.TTrrri'TrrrT0“zy5 

434. SDEL=D.3 


432. 

■ ~ TJ!!: 

4 34. 

435“ 

436. 

4 37 : * 

4 38. 

ijlTT" 

440. C 


UU J - i , N(JL>T1 

IF (l.NE.n SDEL = S0H(I l-SONH-l I 

-■■SP (D'rSffNTTT^Z — 

29C iilMTE (6,SZD)I,XON(n ,YON(n,CAPPA(I),OYOXO(ll,ALPH4 

— Trr7soTr' 


* 4 3 00 

A 4310 ‘ 
A 4320 
■“X — ^IcT" 
A 4340 


(I) ,S0N(I 1 ,S0(A 4360 

A'" 4 3 90 

A 4400 






456, S«1I = S2?-s6n(Y» 

457, 315 URIU < 6 , 520 1 ,XONU 1 , YONU > , CAPP A Cl 1 , DVDX 0 U ) ^ AL PHA (U , 

458, I'j.s'DEL '■ ' " 

457, IF INBOrS.LC ,2> CO TO 34D 

4'60Vc'” ■ *' . • - - •• 

4j6 1 . C CALCIIUTTNG FLO U .S PL lTTCff UPPER f.tJ RFACE 

4^3, J^J*1 _ _ 

Uf?lft*l6 ,S3C 

465, _ CALL SINTP -tXON(JJl,SONfJJI,N"ODV7-.lJ,XI?3,S23) 

"M667 - ' *S0I:l=O0’ - ' ■' 

467. 00 32P J=JJ,NnonV2 

2T68, IF*(I .NC ,JJ1 SDEL^SONff r-SONri-Tl " 

469. Stn = S0N<lJ^-S23 

4 To ' 5 2 6 ■ i Pi f t ' i 6 ; 5 2 c n , X b M f T ) , vb N i 1 1 , c a p p a ( i > , d y bx o a » , a l ph a n » , 

^^Tl. 1»,S0EL_ _ . 

4 72tic" " " *■ ' " 

473 . C ^ ,.P.*LCUL An NC SHROUQ 6T A CE DI SJ A C H F_ jA FLOW 

475. NDPl=NnODY2 + l 

uTr." DO 32 5 r=N'Bpr,lfbP12 

477. JJ=T 

478. IF" (XONt ll.LT.XbNPni >»' 00 TO 330 

479. 325 COMTINUC 

400. 3 30 CAtL sYnT'P ( XONiN»P‘l r.SONtNPP I I , Jj-NbdflY2 , XPI .573 1 “ " 

481. URITC (6,535) 

■*Tb'2. SfitL=0 .b' ' - ' " " ' 

4 83, I=JNBP1 ,1T0P12 

484. if (r.NElNBPlV'sbFL'=SbNTl)*-SON(I 

465. Sm = S33-S0Nm 

486. TST’TIirrTr' ('E75'2in r ,"X ON'n I VYOii t il ,'CAPP a 1 n ; DYOX 0 n ) Valpha ( I) 

487. n,SDEL 

itSbTc * ■* 

489, 343 hDDSV-NPOYS 

”T9ir, IT (■NNSbTYb.Cl'Gb' to '350 ' " ■" 

491. NS=1 

ir?rr;”-T4r — ■ * 

493. 1N5D=I*NSDBDY (NS ) 

if^7' "rtiNSOrl+l ■ ■ ■■ ■ • ■ - 

495. URITE (6,61C)TBD 

ilTIT E ( 6,615 ) ("I , X ON ( I ) , Y ON ( it , C A P P A ( 1 ) , n Y D X 0 (I ) .""A (IP M A (I) 

497. 1IBNSD,INSD) 

— -fR=NS»i — ~ 

499. IF (NS.LE.NNSt!) CO TO 345 

SW." — — ' 

SOl.C 

502VC ““ UPITE OUT CLOSURE' COORDINATrS - - - - 

5D3.C 

iW~. 35r“Trb“HNPDvrri — 

505. URITE (6 ,515 )TBD, (I,XON( I) ,YON(T ) , I = IT0PT4 ,1T0PT5 ) 

506. ”■ IF (NPbSV.NEri) CTTo 355 ' 

507. 1RD=ICD« 1 _ 

508. WRITE (6,515)TDDrrl'rxONTnTYb‘Nn r,l=lTTpT67no>f7l 

509. 355 URITE (6 , 54 5 I ( XR AK U I ,YLO ( 1 1 , Y KI ( 1 » ,N Y 1 1 » , I = 1 ,NR A kES ) 

510. CALL AREAA " ' ' ~ ~ " ■■■-" 

51 1. C 

si 2 .c( niTi ((( ( ( (( ( ( ( ( ( H ( ('((T( (M (TdiTi (T( (*( u (T( ( ■( ( ( i ( ( V (H ('(( i 


S0N(I»iS(1A 

A 

. A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

sown ) ,’s(iA 

A 

A 

SI LT ITER) A 

' ■ ^ ' A 

A 

A 

A 

*A 

A 

A 

A 

A 

A 

•' A 

A 

SON (I ) ,’S(IA 
A 
A 

__ _ A 

A 

„ A 

■' A 

A 

A 

A 

, 5bN('l ) ,t=A 
A 

""a 

A 

A 

A 

'a' 

__ A 

a" 

A 

A 

A 

A 

A 

a' 

A 

((((((((( I A 


45 62 
4 5 70 
4580 
4590 
4 6CI? 
461C 
4 6 20 
4 6 30 
4640 
4 6 5C 
4660 
4670 
4 6 80 
4690 
4700 

47 IG 
4 7 20 
4730 
4740 
4 7 50 
4760 
4770 
47BG 
4790 
4800 
4Q1C 
4 8 2C 
4B3C 
4B40 
4 8 5C 
4 8 60 
4 8 70 
4680 

48 9-. 
49C0 
4 9 10 
4 9 20 
4 9 3C 
4940 
4 9 50 
496C 
4 9 7D 
4980 
4990 
5 D 00 
5010 
53 20 
503C 

'50 4 : 
5C50 
S3 60 
5070 
5D8C 
5090 
5100 
51 10 
51 2w 




520i 1FIIPL0TC,LT.D> LrL = <( 

"srn crftr 

522«Cflim LCA = LAST PT. ON SHROUD 

~FTT, cnr=n'{jpTJ»~i~' 

524. LL^l 


526.C(((M< 2» BEFORE OR AFTER HIGHLIGHT 

-527Trn-m~( sr finite- cwva 

528, 36D LrE=LL*NBOPTSm 

T2T; Tf fXONTLFEI.CT. « yXtEXEP + KHlNI > GO TO 375 

530. IF »XONfLEEI.LT.XONTLEE«II.AND.LEE.tr.LCEHII GO TO 365 


0.99999,1 GO TO 375 

532. LE=LE*1 


JS3EDHIHH_ 


CAPPERILE>= CAPPA<LEE I 


Mtacu 


536. IF (XONILEEI .GT.X0N«LEE*1II 60 TO 370 


,u I . 

S38.CIU(M USE ABSOLUTE WALUE OF CURVATURE ON EXTERIOR OF SHROUD 



544. 375 Lt=LL* l 

546. 380 CALL PL OKXX tP. i - 3> 

S4B. CI HM ( generate new scale factors, use THOSE OF THE INTERNAL PLOT. 
550. CALL CsCALE(CAPpER,VViLE,l,JOtEXMIN,DEEX> 

“55I"V 3B5-C APP ER ( CmTxrXHTN 

552. CAPPERCLE+2»=DEEX 

"5T3T' TF—IlTE.TrTTTElHI 7in<0. 1PL0 TC.lt. 01 go TO 393 — — - 

554. CALL CsCALEIDIST .TV « LE . 1 , IO.EXMIND.DEEX D I 


L-iiBi>A.-«AAaa 


556. D1S|(LE*2»=DEEXD A 

557T““ “TFtTITnsrCTLTTIVl-imTITE ♦1' ) E' * H I N — — » 

558, 1FIIPL0TC.lt. □> DlSTtLE^2»- EXEP A 

559TCTTrrn — ~DiniirATfrs~rffft~tTrRTnn¥Prc-PCffi 

560. CALL PL0XISIXX,rV.0TST»LE^2>,CAPPERILE*2>,DlST«LE*i) ,CAPPERILE*1J,A 


1 ..:9t U.U.UtL. 3 *1 tii I A 

562, CALL LINE<OIST,CAPPER ,LE , I , 1, 3 ,01 S T iLE ♦! » ,D1ST < LE *2 I .CAPPER «LE* 1 ), A 

— — 5 6T3:: ixAPP z iri cn 2 ti r 

564.CftH(l DRAW SEGMENT HARKERS A 


ucmin 


5480 

54 90" 

55 00 


lUHTai.'iin 


568. 


1FUPL0TC.lt .01 BAGSIMEMI=BASXIHEM1 


N0,NTAP<MEH7.GT.LEEH1 I ZAPtMEHI=-Z 
ir<ZAP<MEN». EO, 99999. 1 2AP ( HEH I-TT *CAPPER ( LE* 2 I • CAPPER(LE*1» 
T|-lLTET(fr;iCFHl'."AF0TTPrf!'rnX;'t3T'‘GO to 








612 

613 

'~SVi 

" 616 
617 


eACS(HCni=<BAGSIHCHI-l 

ZAPIHCHI=(2AP«HCM»-CAI 


irtlPLOTC.GT.O.AND. N 

395 IF IIPLOTC.LT.O.AND.B 
imN7*IMMEM» .LE .LEEH 


ID.LEE.Nr.ltCHTn CALL 
9 CO CONTINUE 


IF ILL.GT.IITOPT4-1-N 
ILFAM GO TO 9C5 


Lr=o 

CALL STNDOLTXK-.B.Yy- 


GO TO 375 
C 


CM ((( (Ml 1 1 M If I II M((IM ( 
C 


Cl Mill ADVANCE THE PLOT 0 
905 CALL PLOTIXX ■□.•-31 


Cl Mil I IF THE CASE IS NOT 
IF I1AB.LE.DI GO TO 9 
KEHIND 9 
NIN=9 


dels =dsave 

GO TO 20 

910 If riREbONI 1 I .LO . 01 G 
REWIND 9 


LPNCHO- IRED0NI21 
I PLOT A = IRED0NI3> 
IPLOTCi IRCD0NI9I 
IREAO = 1RED0NI5I 
IREDONII*)- IRCD'ONIU 
Cl nil I WRITE THE ORIGINAL 
C ffniTREtT 1 NTT RPOL A T 10 N 
WRITE 19 ,975)IDENT,PR 


21t9l 

D0_925 T-UNBDyS 

rf I nTsTr o . 2 . an d . i . e" 

IF ll.EO.ll GO TO 915 


= KAy|I-ll+2 
GO TO 920 


9 15 KA=2 

920 WRITE (9,990»TVPIT» 


KAVm-1 

_ KAC = M-1 

“wMTE r9 i9'V5 MONIRABl 
WRITE <9 ,952 » IXONUI , 

KC=KAYin ’ 

WRITE l9i955 IX0Nf KCI , 


925 CONTINUE 

IF INN SP.EQ .CI GO TO 

'WRITE 19, 960 I DEL 5 NO "■ 
NT0T=0 


DO 930 N=1,NNSD 
NKAl-KAY INBDVSM NTOT 


NTOT= NTOTf NSDBDYCN) 
„ WPXTE 19 ,9 65 TX ONINKAl 
■"'NA =NKAi'«V 


D1STILE»1 M/D15TILE«2I 
PPERILE*II» /CAPPERILE+ri 


7APIHEMI.LT.LEEHH CALL SYHBOLl BAGS IHEH) ,7AP I A 

(L 

AGSIHEM|.GT.|XX*EXEP*XMIN»» DO "f 0 9 DO ' A 
I.AND.LEE.EO.LEEHl > .OR . I N7AP INE P I.GE.LFEMl • AN A 


SVND0LIBACSIHEH>,7APIHEN) ,.2,1 ,0. ,>1» 


BOPTSIIM.OR.LEE.CT.LEEHI.OR.XONILEEI.EO.XONIA 


.5 , .3 , 52, D . ,~ 1 1 


II Ml 1 1 1 1 I II 1 1 1 1 Ml 1 1 I H I M I II I MM 1 1 Ml II M (A 


RIGIN FOR THE NEXT CASE 


TO BE REWORKED WlA FESSLERp BEGIN NEXT JOB t\ 
JO * 

a” 


0 TO 10 


CASEOUmjT ON U NIT 9 F OR ACCEPTAN CE AS INPUT! 
' OTStIONIXVCALc'.FCSSLCR') ' - • - ^ 

OG,N06,LPNCHO,IPLOTA,1PLOTC,IAP. , (IREDONII I,I = < 


0.21 TYPII 1=2. 


tYQNIKAG) 

YONIJ ) ,J=KA , KB > 

YONIKC) 


), YON INK A I I 





6<»<».C FORMATS 


6<l6.C A 

btll CED'TWHXr “<TiHn3",TirxrtTR^^ BODIES = ,FZ7!)'i5)( ,7HbELS - ,F6. J , 5X , 9HO E A 
bHfl, ILSHX = tF6.3 ,5X,6HXR1 = .F10.6) A 

sli?';; >TEE*ToRM7rT T2um 
650. 490 FOPMATI 2 A6, I 4 . 2T1 .ZI2, lOX r 1 1 .9X i 311 1 ZI 2 I A 


MmniRKi 


5D0 FORMAT 19*61 A 

TC^'TOTfflTT rixV'l’X'ZiHBODT I CO-ORDTNATES - XI 2X 1 HT 1 0X5HH A f’f’A 1 UX'SHOY /OX 1 A 
1DX5HALPHA5X1HSSX6M5-S (21,ax,6HDFLTA5/lX) A 


2 CO^OlNATES - X12X1HTT0X5HKAPPA10X5MDT/DX1A 
10X5HAIPHA5X1HS,QX ,7HS '‘(2t-S,ax,6H0ELTAS/lX) A 


FORMAT nX/lX5HflOIl¥ lltlTH CO-ORDINATES - X 1 2 X lHY/1 X / T9X It , 3Xei 2 . 5 A 
1,E13.51I A 


nSra 






660. 525 FORMAT (6H1CASC A 6, 1 0X,9A6/ IX 1 


Dill. runnni i mu i 

662. 53S FORMAT ( IX/1 X ,23HB0D Y 3 CO-ORDINATES - X , 12X . 1 HY , IDX »5HX APPA , lOX ,5 A 

E:Fr; iwy? d x7njTr7BH’itn»n a js’VTi h 5 rffVT , fi X , 6 h D tm s / 1 xi r 

664. 540 FORMAT l/10X,3CH INPUT FOR THE COMBINE PR05RAM.7H NTU1 = ,I4,7H NTTA 

FES*; rrr=*,'Tr,a*H 'NHOBHiriF.-iT) , tirNPr ,i 4 / 1 r 

666. 545 FORMAT I 1 X , 4HXR AK ,1 DX ,3HVL0 , 1 1 X ,3H YHI, 16X , 3HND V // , I 3 E 14 . 5 , 5X , I 3 M A 

ETST; 5 5Q rOWAT'TTF e . 5 , 1 31 “ ' r 

668. 555 FORMAT T8F10.21 A 

— E-so' -niRwi7i“n!j .j,i!jr7.4/f> :s';rr. 3 1 r 

670. 565 FORMAT I/5X,3DH INPUT FOR THE COMBINE PROGRAM, 7H NTI11=,I4,7H NT(2A 

67T.' rrS“,Tli,7H Nl(3» = ,I4,aM NHU5 mx = ,14,$H N5PLMX=,14 ,4H NP = ,I4/1 V 

672. 570 FORMAT « IHO , I OX , 6HCMR EED , 1 OX, 1 3HSTRA IGHT L 1 N£ / 1 1 X ,F6 . 3, 5 X , 1 MX , IP 2C A 

— -E 7 T7 — xi s: xm X , 1 iiY ’, I P2 £ *i5: '4 r* * ■' a 

674, 575 F0RMATnHD,7X,9KEXPDNFNTS, lOX, 12HSUPERELLIPSE/7X,4HP = ,F6.3,5X,1HA 

— ~B7s^ nr7iT^nrT4*?rr,Ti-flr~t>T6rsT^ , ihy , iPbOTTri a 

6 76. 5 80 FORMAT K IHO , 1 CX, 6HENR EED ,1 OX, 10MLFMN7SCAT E /1 1 X ,r 6 .3 , 5 X, I HX , IP 3E1 5. A 

677.-"- 14722X,lHV',lP'3F15;Ti> *7 *A' 

678. ses FORMAT ( 1 HO , 1 OX , 6HEN R EED ,1 0 X, 7HELL IPSF /1 1 X , F6 . 3 , 5X , 1 HX, 1 P4 E 1 5 . 4 /22 A 

‘6’79. rxVTHV.TPTrr^nTi"*"-' A‘ 

680, 590 FORMAT I IHD , 2 X * I 8 9 HUB **««9999*j A 

6ftT.‘' 5'95“FOR'MA T ' (THfl , 2 X ‘irSTW* 9 * S'hrquS 9*9999» “ . • 


6620 
’"STbTo" 
6640 
66150 
66 60 

66 70 
66B0 
6690 
6700 

67 10 
6720 

■"6'7 3D' 

y 40 

6 7 50 ■ 
6760 

■ '67 70 
6780 

■ '67 90' 

68 00 
""6810" 


6SZ. 600 FORMAT T IHO , 2 X , 1 811*99 9 SPLITTER **-**»__^ _ „ _ * *>®20 

'683. '60S "FORMAT f lTfB',3 IPX , 6HENRIT0', I OX , SllCU'n i c/iTx^p'V. 3 , ST? , IHX'^lPt'ErsVt /22X , A 68*30 





604 . 

68S. 


ITHYiipTE: l b". 4 > ' 


610 


A 

MA 


6040 

6053 


666. 

i0X~,5Hb'V/tixVl6x,5HALPHA,5)(, IMS i BX ^6HS-S ( 2 1 , BX 6HDCLI A S /I X ) 

A 

6660 

667. 

615 FORMAT « 9X , 14 ,3X , T12 . 5, SEl 3 .5 1 . _ _ 

A 

6670 

666. 

620 rORHAT«2nb.7'l 

A 

6660 

669. 

625 r0RMAT16F12.5f 

A 

609D 

690. 

630 CAir>tOTn.,0.,-3| 

A 

6900 

691 . 

CALL PLOTID 

A 

691C 

692. 

sfop 

A 

6920 

693. 

CNO 

A 

693C 





■iii.Jkhtk 


' " D7 

OCT 76 

14 

t. 


SUnROUTINE AREAA 

21 

DDDO 

z. 


COMMON /SS/ NBOV 1 ,NBoby2,typBnv,NBDys 

21 

0010 

3. 


COMMON /rOR3S5/lO,DElS.XBKt2at ,yBK(20) .X0N(5Q0I ,yON( 5C0I .0yDX0(5002I 

0020 



11 ,ALPHA( 50D1.CAPPAI50D) .SONCBOOI ,PI0160 

21 

0030 

s. 


COMMON /MNS07 NNSD.NSDQDy UO » 

21 

0040 

6 • 


COMMON/ Lbf/XMlN.ylirN .ORb.E'xEPiTx.yyVLPNCM'b.IPLOTAfMM 

21 

0050 

7. 


DIMENSION JMAXi20), JMIN(20I, AREAS(2Q>, yAR(20>Zl 

0060 

B. 


1,KXA(20D» . DISC(2D0>,ANULUS<200T 

21 

00 70 

9. 


PI=3. 14159265 

21 

00 80 

id. 


JPLA=0 

2] 

DD90 

11. 


NBPl=NEDyi*l 

21 

0100 

ir.“ 


“bo lb" j=Nnpi',NB 0 Dy 2 

21 

0110 

13. 


JJ=J 

21 

0120 

“ IB^cl • ill « *.LT. CHANGED TO LE . TO AVOID AREA PLOTS FROM GOING UP VSTOL 

HPZl 

01 30 

15. 


IF <X0N<JI.LE.X0N1J«in GO TO 15 

21 

0140 

1'6, 

io 

CONTINUE 

21 

0150 

17, 

15 

WRITE 16.751 

21 

0160 

rs . ■' 


if I'NNso.Eo.di CO TO '4ir ' 

21 

0170 

19. C 



21 

0180 

- ' iio.if 


SEARCH FOR MINIHU'M AND MAXIMUM X ON EACH NSO ISPLITTERI 

21 

0190 

El.C 



21 

02 00 

™ " '2Z. 


NB=NBOOy2+l 

21 

0210 

23. 


NE=NB0Dy2*NSDCDy 1 1» 

21 

0220 

24.' 

.. 

■'bb’ 35 i=i .nnSd ■“ 

21 

02 30 

25. 


XHIN=XON»NtU 

21 

0240 

26. 


jMiNiii=NB 

21 

02 50 

27. 


XMAX=XONINB) 

21 

0 2 60 

’ ' 28, 


JMAXITI^ND 

21 

0270 

29. 


NFM1=NE“1 

21 

D2BQ 

3q; 


bo 3fi J=ND,NEMi ..... 

21 

0290 

31 . 


IF IXONf Jl.GT.XMAX) CO TO 20 

21 

0300 

32. 


ir IXONI JT.LT.XMINI GO TO 25 

21 

03 10 

33. 


00 TO 30 

21 

0320 

34. 

22 

XHAX=X0NIJ1 

21 

0330 

35, 


JMAXin=J 

21 

0 3 40 

“’" '36. 


Ob To id ‘ 

21 

0350 

37. 

25 

XMIN=XON IJI 

21 

0 3 60 

38. 


JMlNlTl=a 

21 

0370 

39. 

30 

CONTINUE 

21 

0 3 80 

4d. 


NB=NC+1 

21 

0390 

<41. 


NE=NE*NSDBDYn«l > 

21 

0400 

"■ ’ 42.' ■ 


WRITE 16.80iXMiN.XMAX iJHlNill .UMAX (I ) 

21 

04 10 

43. 

35 

continue 

21 

0420 

■ ' ' ”'4*4 . 

4£l 

bo 65 JrNBPl.UJ 

21 

0430 

*45, 


1A = 1 

21 

04 40 

46. 


CALL SINTP IXON, VON.NBOyi.XONl Ji.VARM Alt 

21 

04 50 

47. 


ir 1NNSD.E0.0I GO TO 50 

21 

0460 

'48. ‘ 


jrNb=NBbby2 ' " " ~ 

21 

04 70 

*49. 


DO 45 1=1,NNSD 

21 

0480 

5‘d. 


JMI=JMlNil) 

21 

0490 

51. 


jMA=JMAXm 

21 

0500 

52. 


JEND=NSOBOy ii MJE Nb 

21 

0510 

53. 


IF IXONIJT.GT.XONIJHA i. OR.XON1 JJ.lt. XONIJHTII GO TO 45 

21 

0520 

' b ~ h 7 


lA::iA*i ' '' 

21 

0530 

55. 


CALL SINTP IXONIJMA),yONljNAI.JMI-JMA+l,XONlJI,YARllAI| 

21 

0 5 40 

56. 


1 A=IA*i 

Z1 

0550 



57. 

cliCC SiSfP «XONIJMil,ydN|jHll,jrNO-JHi*l,XoS«Jf,YARilA)» 

21 

05 60 

58. 

45 CONTINUE \ 

Zl 

0570 

rvT 

5'&- "IA=!A*1 ■ ■ ■ ' ’ 

21 

0580 

60. 

VAR(lAt=VON(J) 

21 

0590 



" I'SsCi ' ■ ■ 

21 

0600 

62. 

AREA=C.O 

21 

0610 

63 * 

0®"55 1:1,1a,? ” 

21 

0620 

69. 

isri5*l 

21 

06 30 



' • WESsTlS » = L7ARTii i)**2-VARITi**2')*Pi 

21 

0640 

66 * 

ARtA = AREA«^AREASt ZSI 

21 

0650 

■ 

55 CONtiNUE ' - . , 

21 

D66D 

68. 

ARCAD:ARCA*VARm9*2*PI 

21 

06 70 

' fe-f;' 

EN5ueK=cAPpAn»‘*jvo¥fjr-virrtrftf/sdi»T(i'.*fARni7v6Nij») 

• 21 

0680 

70. 

jriCAPPAt Jt . GT. 90000. 1ENSUB«:99999. 

21 

0690 

— 71 ; 

IF iNNSD.Cd.Cll' GO TO 60 

21 

07 OD 

. 72. 

WRITE l6,85l(ARCASm ,1 = 1,1SI 

21 

0710 

73. 

60 WRitE IG,90}J,X0NiJI ,V0N(J»,VAR(1I ,ARCA,AREAO.CNSUBK 

21 

0720 

74. 

WRITE 16,951 

71 

0730 

fsT*' - -“iT' IXONi J».CTitXX9E'XEP*XMfNlV GO TO 65 

Zl 

0740 

76. 

JPLA: JPL A+1 

21 

0750 


XXAIJPLA»=XONiJ» 

21 

07 60 

78. 

ANULUSiJPLAIzAREA 

21 

0770 

"79, 

DISCi JPLA>=AREAO 

21 

0 7 80 

SO. 

65 CONTINUE 

Zl 

0790 

— ei. 

Ciliiii IF AREA PLOT IS NOT REOUIrCI), GO TO 25 

Zl 

0800 

62. 

IF f IPLOTA.LE.OI GO TO 70 

21 

0810 


CALL CSCALE(DISC,YY,JPLA,1,10,CXNTN,DEEX) 

Zl 

0620 

84. 

CALL CSCALE(ANULUS,YY,JPLA,1,1D,EXHIN,DEEX) 

21 

08 30 

8 5 • 

OlSCi JPl AM1=CXH1N 

21 

D840 

86. 

OISCiJPLA* 2»=DEEX 

Zl 

08 50 

er. 

CALL PL'OTiXX ,0.,-3i 

Zl 

0660 

88. 

CALL PL0XlSiXX,YV,CXCP,niSCIJPLA-»2»,XMIN,DlSC«JPLA*M,.25,.?5 

,D,D,Z1 

0870 


89. lit, 3, 0,01 71 0880 

90. C<Mt<« PLOT Tttr OTSC ARC# VS. X • Z1 D89D 

91 . CALL LIME«XXA,DISC,JPLA,l,l,3,X«IN,EXi;P,()rSC(JPLA<ai ,PISCIJPLA*2nZl 09 00 

92. CMMM PLOT THE ANNULUS AREA VS. X Zl 0910 

' 93. CALL LlNE<Xi(A,ANULUS,JPLA, 1,1,3, XK1N,EXEP,D1SCCJPLA*1>,D15C(JPLA+2Z1 0920 


94. 

1 1 ) 


2 1 

09 30 

95. 

7Q RETURN 


21 

0940 

96. C 



21 

0950 

97. 

75 FORMAT 

( 1H1//9X, IMI ,14X,3HX0N,18X , 3ltY0N,16X 

,4HY0NH, 1 2X,4HAREA , 14X,Z1 

0960 

98. 

1 9H01SC 

AREA,lGX,6ftENSUBHl 

21 

09 70 

99, 

eo format 

L1HI:,5X,7HXMIN = ,1PE14.5,5X,7HXMAX 

= ,1PE14. 5,5X ,7HJHIN = 21 

0 9 80 

IDQ. 

1 , 16, 5X 

fTHJMAX : ,161 

21 

0990 

ioi . 

85 FORMAT 

I74X,1PE19.4» 

21 

1000 

102. 

90 FORMAT 

{8X,13,1P6EI9.4I 

21 

lOiO 

103. 

95 FORMAT 

UHC 1 

21 

10 20 

104. 

END 


Zl 

10 30 



"5D;i(UB IC 

. 

•“07 OCT 76 

13 

1. 

SUBROUITNC CUBIC (Ml , 

J 

oood 

■' 2iC 



J 

00 10 

3.C 

fll A CUBIC BCTWETN 2 STRAIGHT LINES — RESTRICTION -- THE STRAIGMJ 

0020 

4.C 

LINES CANNOT BE «RTICAC 

J 

0030 

5.C 


li 

-- 

00 90 

• 

ijiMCNsioN ATHTiT'rf;^ ■ — ' “ 


0050 

7. 

COMMON /MAIN/ XINdOl ,VINUai,0rLSMK,P102,0CL51,IHUB 

J 

00 60 


t oHMON / FOR 3 S SVl 0 ,D'CL s;iifCTi!T20 > t YBKT 2fi f, X ON'I SOD ) V ON t 5*C0 i 

,nYDxo(5oa,t 

0070 

9 . 

1 1 tALPHAI 500 1 fCAPP Also Dl .SON (5QOI«PIOlBQ 

j 

00 SO 

’lo. ■ 

COHNoN /SS/ NBOT 1 ,N0OOv2,tYPB6y,NB'OVS 

j 

0090 

a. 

- 

DELSINtDELSI 

J 

0100 


‘'■0ELS=DELS1 ■'" “ “■ ■ 

Ij 

OilQ 

I3„ 

K0UNT=0 

J 

01 20 

r<i. ■ 

K=M-1 ■ 

J 

01 30 

15. 

M5TART=M 

J 

0190 

’ 16. 

X2-XIN(21 ' . „ - 

J 

0150 

17, 

X3=XIN(3 » 

J' 

0160 

'"•’Tfii. " 

■ v2=YlNi2'(' * - ‘ - . - - ■. 

J 

D 1 70 

19. 

V3=VIN<3l 

J 

OIBO 

2D, 

SLOP2 = (YINI9 ) -Y3 » /(XIN(9 1-X3J 

J 

019D 

21. C 


' J 

0200 

22. C 

setup 9 X 9 MATRIX Op COEFFICIENTS 

J 

0210 

23. C 


J 

0220 


AAd.i 1=1,0 * ^ ■* ■ 


0230 

2S. 

AA«1,2)=X2 

J 

D29D 

26. 

AAn,3l = X2«‘x2 

J 

0250 

27, 

AA(1,9)=X29«3 

J 

0 2 60 

2b. 

AAt2, 11=0.0 

J 

0270 

29. 

AA(2,2U] .0 

J 

0260 

' 30. 

AAI2,3I=2.0*X2 ' - 

j 

0290 

31. 

AA(2.9)=3.D*X2*'»2 

J 

0300 

'32. 

A A<3, 11 = 1.0 ' 

J 

0310 

33. 

AA(3,21=X3 

J 

0 320 

3*». 

AA(3,3i=X3**2 

J 

0330 

35. 

AA(3,91=X3«*3 

J 

0 3 90 

36 * 

'■ 'AAI9, 11=0.0 ■■ .. 

J 

0350 

37. 

AAI9, 21=1.0 

J 

0360 

■ 36. 

99(9,31=2.00X3 ‘ ' ' 

J 

0370 

39. 

AA(9,91=3.D*X3#92 

J 

0 3 80 

•lO. 

DO 10 11=1,9 . . - 

J 

□ 390 

<(1, 

1C CONTINUE 

J 

0900 

92. C 


J 

09 ID 

93.C 

SETUP vector of ORIGINAL CONSTANTS — DB 

J 

0920 

<!<1 .C 


J 

0930 

<ts. 

BB<1)=V2 

J 

Q9 9 0 

96. 

BP(2»=(Y2-YlN(a 1/<X2“XIN(1I| 

J 

0450 

97. 

BB(31=Y3 

J 

09 60 

- 98, 

BB(9 1 = 1YIN(9 1-Y31 /rXIN(<il-X31 

J 

0970 

99 . 

NSIH=9 

J 

09 ao 

50. 

KSTM=E 

J 

09 90 

51. 

CALL SIMQ <AA,BP,,NSTM,KS1H1 

J 

0500 

52, 

D=BB(a. 

J 

□510 

53. 

C=BB» 21 

J 

0520 

59. 

A=BB(9 1 


0530 

. 55. 

C=6B< 2> 

• ••• • \ « 

0 590 

56. 

e=BB( 31 


V15 50 



'57'."' ■ 

■'l5. 

Krt-START 

J 

0560 

58. 


KOUNT=KOUNT4 1 

J 

CS7C 

59. 


X0N<K+U=XIM(2) 

J 

0580 

60. 


Y0NtK<ll=YlN<2> 

J 

DS9D 

61. 


DYOXO ft<4 1 t=3.C*A<rX0N ( K+1 >6*2*2 .09B9XON <K ♦ U *C 

J 

0600 

62. 


CAPPA (K» n = (6 .0«A7X0N (K ♦ 1 » *2 . 3*B 1 / It 1 .3 ♦ DYOXO ( K ♦ 1) 2 ><>■» 1 ,5 1 

J 

0610 




Al.PHAtK*n=ATAK(DYDXO (K + ljl 

J 

□ d2D 

64 . 


0£=0ELS/( l.C* .2*Tf.NH< ABSI'IAPPA l*(+l »J H 

J 

0 6 30 

bS. 

20 

«=K+1 

J 

□ 640 

66. 


DXKPlrOS/lSQRTtl .'.♦DYBXO<iK Ml 

J 

0650 

^67 . ■ 


ir <X1N<3».LT.XINI2) 1 D'XKP 1 =-OXHP 1 

J 

□ 6 60 

68. 


X0N<K-*1)=X0N(K) + 0XKP1 

J 

06 70 

“ 


■ YOMtK+1) =A*XON(X ♦ 1M*3+5*X0NIHY ll»92*C*X0Nl K*1 ) *D 

J 

0680 

70. 


DYDXOtK+1 (rS.C^A^XONlK+l 2*2 .P*B 9X0N < K ♦ 1 ) ♦C 

J 

0 6 90 

71. 


CAPPA (K'*l)=i6.0«A‘IX0N (K ♦! M2. 0*0 »/< (1 .Q + DYDXOlK + 1 »«■» 2 1 . 5 1 

J 

07 00 

72, 


DS=OrLS/( 1 .0* .2’»T ANHl ACS fCAPPA (H*l MM 

J 

0 710 

73. 


AtPHAlK* n = AT AN 1 DYOXO (K+IM 

J 

0720 

74 . 


5(lN(K*n=SONlKMSORT< ( XON< K ♦ 1 J -XON I H M **2* 1 YON ( K + 1 ) - YON ( K M**2 1 

J 

0 7 30 

' ' 757 


IF (SL0P2.CT. 1.01 GO TO 25 

J 

074D 

76. 


IF IXIN(4).GF.X3.ANO.XON1K*11.GT,X3> CO TO 30 

J 

0 7 5C 

77. ' 


IF (XIN141.lt. X 3.AK0,XONlK4il.LF.X31 GO TO 30 

J 

0760 

78. 


CO TO 20 

J 

0 7 70 

'79'. 

25 

IF ■<YTN(4I.GE.Y3.AND.Y0N(K-»1MGT.y'3I G0‘ TO 3D 

‘ J 

0780 

80. 


IF (YTN(41.LT.Y3.ANtl.YONIK*JI.LE.Y3l GO TO 30 

J 

0790 

81. 


GO TO 20 

J 

0800 

82. 

3C 

IF (KOUNT.GT. IGO 1 60 TO 55 

J 

D8 1C 

~ 8 3.“ 


DELSS=DELS 

J 

0820 

84. 


DSTEST=( (X0N18 + 1 1 -XI N 13 I M*2+ 1 YON 1 K ♦ 1 1 -Y1 N ( 3 M «^2 .5 

J 

0830 

as. 


IF (ARS(DS-DSTEST).LT ..Oi*DS) GO TO 35 

J 

08 4 0 

86. 


IF (DSTEST.LT..01*DS) go to 40 

J 

D8 5C 

'8'7. 


“If idstest-'. 5<<ds i so, 45,45 

J 

0860 

88. 

35 

JCK-l 

J 

0870 

’ 89. ' 

"40 

X0N(K*11=XIN(3J 

J 

0800 

90. 


Y0N(K+1»=TIN(3) 

J 

3890 

91, 


■ GO TO 55 

J 

0900 

92. 

45 

DELS=D£LS*(05-DSTEST 1 /FLOA T (K-l-KS TART J 

J 

0910 

93. 

• 

IF (KOUNT.GE.IOI DELS=(OELS*OELSS) /2.0 

J 

0920 

94. 


GO TO 15 

J 

□ 9 30 

■” ■93-.: 'SO 

"'DTLS=DEL'S-DSTESTVFLOAT(K-KSfARt» ' 

J 

0940 

96. 


IF (KOUNT.GE.IOI DEL S =( DELS ♦DELSS 1 /2 . 0 

J 

0950 

97. 


GO TO 15 

J 

0 9 6C 

98, 

55 

DELS1=DS«1.2 

J 

0970 

99. 


i'F ( D E LS 1 . G T . DEL S J D E LS 1 =DEL S 

J 

0980 

100.: 


WRITE (6,6S)K0UNT ,A,B ,C,D 

J 

0990 

101. 


WRITE (6,7Q»DELSIN,DELS,OELS1,OS'TEST 

J 

10 00 

102. 


KFN0=K«1 

J 

1010 

10 3. 


kstart=kstart+i 

J 

1020 

104. 


DO 60 1=KSTART,KEND 

J 

ID 30 

105. 


ALPHA (It rALPHAd 1 /Pro 180 

J 

1040 

106. 

60 

CONTINUE 

J 

1050 

10"7. 


RETURN 

J 

1060 

103.C 



J 

1070 

109. C 



J 

10 80 

110. 

65 

FORMAT ( 1H0,2X,14 ,2X, 10HITERATI0NS.2X.4HA r , IPE 1 2 , 5 . 2x , 4HB = ,IPFJ 

10 90 

111. 


112.5, 2X,4HC= ,JPE12.5,2X,4HD = ,1PE12.5» 

J 

1100 

112. 

70 

FORMAT (3X.10HDEL5 IN = ,F8 .5 ,3X ,7M0ELS = ,FB .5 .3 X, 1 1 HOELS OUT = 


1110 

113. 


1F8.5,3X,9H0STEST = ,F8.51 

J 

1120 



~1 T**'."'*'" END ■ 



J 11 3D 



SO.NTRPDC 


C7 

OCT 76 

1 4 

1. 


SUUROUTTNt; dNTRPC 

R 

GOOD 

2 • C • * 

• • 1 

► t*Lcui„*TioN or c coErnrirNTs for ofrivativcs or nouoLE 

R 

GO 10 

3 «C« • 

• • I 

.3-POlNT INTCRPOLATJON. 

R 

OD Zu 

*»♦ 


COMMON /NTRPCl/ L ,I , A 1 1 , A1 2 , A 1 3 , A 1 4 , A2 2 , A2 3 , A 24 , A 33 , A 29 , A9 4 

R 

CD 30. 

5. 


COMMON /NTRPC3/ 1 1 , 1 2 |C 1 t C2 ,C 3 , C4 

R 

OD40 

... 


IF a.LF.M GO TO 25 

R 

DC5C 

7. 


IF IL-3T 20,15,10 

R 

00 6C 

6 • C • • 

• • ' 

.FOR DOUBLE 3-POINT IN TERPOL AT T ON , 

R 

GOTO 

9, 

1C 

Cl=»« A22*A3 3*A22 ► /A23 9A 33/A J2/ A 1 3 

R 

DO0C 

Id. 


C4:-» «33*A22»A33 I/A239A22/A34/A24 

R 

CG9C 

11. 


P=A23 9A2 3 

R 

0 IOC 

12. * 


C2=-UA1 1+A3 3 + A11 >*A3 3/A12* tA3 39A4 4»A22«A44«A22«A33» /A24 >/P 

R 

01 10 

13. 


C2-*i »A44*A22*A44t*A22/A34*(A229A 11 *A 3 39 A 1 1 ♦ A3 3# A 22 » /A13 1/P 

R 

01 ZD 

1'9. 


eo TO 30 

R 

Cl 3D 

15. C., 

» 9 

.FOR SIMPLE 3-POINT INTERPOLATION. 

P 

0140 

16. 

15 

Cl=*( A33+A22 1/A12/A13 

R 

DISC 

17. 


C2=-l A33+A11 ) /A12/A23 

R 

C16C 

19. 


C3=*(A22«A1 1 j /A13/A23 

R 

D17D 

19. 


GO TO 30 

R 

0180 

20 . C. . 

« O. 

•for 2-POlNT interpolation. 

R 

01 9D 

21 . 

20 

Cl=l .C/AIZ 

R 

0200 

"22.' 


C2=-CI 

R 

C21C 

23. 


GO TO 30 

R 

022C 

Z4 « C fl ■ 

' • ■. 

.ONLY ONE TABLE VALUE GIVEN. 

R 

C23C 

25. 

25 

CUD ,C 

R 

G24C 

26. 

3C 

11 = 1 

ff 

D25C 

27. 


12=I+L-1 

P 

C26G 

28. 


RETURN 

R 

02 7G 

29. 


END 

R 

0280 



S9- 


FIG 
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14 

1. 

SUDROUTTNE D(?AW<KR,KK > 




22 

DDOO 

2.CMH(l SUDR0U7INC ADDED TO DPAU PICTIIRC OF INLET 

VIA CALCOMP 

PLOTTER, 22 

DO 10 

3.C(<(M( CALLED ONCE FOR EACH SCCHENT 




22 

0020 

tt.C 





22 

0030 

5. 

OIHENSTQN XT2CCI , Y«2Dr.> 




22 

0040 

(i • 

COMMON /SS/ NOOYl,NDOnV2,TrPBOV.MaDyS 




22 

0050 

7. 

COMMON /fOR3SS/I0,DCLS,XBK<2D»tYBKC2DI .XONtSDDI ,YON< 5CD» 

,DVDXO<50D22 

0060 

S. 

1 » .ALPHA I5D0 » ,CAPPAI5DD> ,SON«5DO I.P1O10O 




22 

0070 

9. 

COMMON/ LOT/XHIN , VMIN ,ORD , EXEP-, XX , V Y.LPNCHO , 

IPLOT A,HM 



22 

OOSO 

ID . 

COMM0N/TOL/DArS( 1 5 » , 0 AGX • 1 5 1 , 2 AP <1 5 » ,NZ AP 1 15) 



22 

□ 090 

11 . 

KL=KR*1 




22 

0100 

12. 

I1=D 




22 

01 10 

13. 

DO 20 1=1, KL 




22 

0120 

14. 

N"«K+I-1 




22 

0130 

15. 

IF (I 1 .GC.22D.0R .N.GT .500) GO TO 30 




22 

0140 

Ib.Ct 

IM(( TEST FACH <X,Y) PT. EXCLUDE THOSE BEYOND 

«XX«CXEP’XMIN) 

INCHESZ2 

0150 

17. 

IF (X0N(N)-XX#CXEP-XHIN) 10,10,20 




22 

0160 

IB. 

ID IF (YONtN)-vy«ORD-YMl N) 15, IS, 2D 




22 

0 1 70 

19. 

15 11=11+1 




22 

0160 

2D . 

X(II)=XON(N> 




22 

0190 

21. 

V ni )=VON(N) 




22 

0200 

22. 

IF IIT.NE.l .OP.TYPBOY.EO.l. ) GO TO 20 




22 

0210 

23.C((nM STORE CURVATURE VALUES OF SEGMENT’S FIRST 

PT. FOR USE 

WITH 

22 

0220 

24. C 

SUESEOUCNT CURVATURE PLOTS. 




22 

0230 

25. 

MM=MM*1 




22 

0240 

26. 

BAGXU1H)-X0NIN) 




22 

02 50 

27. 

bAGS(MM)=SONlN) 




22 

02 60 

26. 

ZAP(MH)=CAPPA (NI 




22 

0270 

29. 

N2AP(Mrt)=N . . 




22 

0280 

3D. 

20 CONTINUE 




22 

0 2 90 

31.Ct<H(( DRAW A SEGHENT MARKER AT FIRST PT. OF SEGMENT 



22 

03 00 

32. 

IF (XON<KK) .GT.< XX*EXEP+XMlN».OR.YON«KK),GT . 

<YY*ORD+ YMIN ) ) 

GO 

TO 222 

□ 3 10 

33. 

*5 . 




22 

03 20 

34. 

XSYM= (X(l)--XHtN)/FXFP 




22 

03 30 

35. 

YSYM = «Vn )-YMIN)/ORD 




22 

0340 

36. 

CALL SYMB0UXSYM,YSYM,.2,1,0.,-1) ' 




22 

0 3 50 

37. 

25 CALL LINEfX , Y ,II , l,l , 3,XMIN,FXEP,YH1N,0RD) 




22 

□ 3 60 

36. 

RETURN 




22 

0370 

39. 

30 URITE (6, 35)11, N 




22 

0380 

40. 

35 fORHATtlHO,* SCIRCLE ERROR EXIT - DATA POINTS EXCEED 2DD 

ON 

A 

SEG 22 

0 3 90 

41 . 

lOP EXCEED 500 ON TOTAL TNLET - • /2TB) 




22 

04 00 

42. 

STOP 




22 

04 ID 

43. 

END 




22 

0420 
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' 76 

13 

1. 

5IJBB0UTINC C! IPSE «K» 




G 

0000 

2.C 





G 

0010 

3.C 

THIS subroutine flTS A 5C6HCNT OP AN ELLIPSE TO 

TUO 

ARBI TRARILV 

El 

D020 

<1.0 

ORIENTED STRAIGHT LINES NOT MORE THAN 90 

DEGREES 

APART 

G 

30 30 

5.C 

COMMON /MAIN/ XINIIO r,YINUO‘» f‘0*CL5*Mx7Pl0*rVDELSl 




G 

0040 

' 6. 

,1HUU 



G 

00 5D 

7, 

COMMON /r0R3SS/ia.0ELS.XQKI20l tYBKI20) .XONtSOO) 

,VONC 

5 CDl tOVDXOCSOOG 

0060 

a. 

1 I .ALPHATSOOJ ,CAPP AISOO ,SONJ500»,PIdiaO 




G 

30 70 

9. 

COMMON /SS/ NBDYl ,NS0Dr2.TypBDV,NB0yS 




C 

0080 

10. c 





G 

0090 

11. c 

TRANSLATE INPUT BREAK POINTS SO THAT POINT NO, 

2 BEC 

ONES 


G 

0100 

1'2.C "* 

THE ORIGIN 




C 

01 10 

13. C 





G 

0120 

14. 

DFLSIN=DELS1 




G 

01 30 

15. 

K0UNT=0 




6 

0140 

16. 

DELS=DELS1 




G 

0150 

17. 

Pl=3, 141592653 




G 

0160 

le. 

K-K-1 




C 

0170 

19. 

KSTART=K 




C 

01 80 ' 

20. 

X2::XIN«2) 




G 

0190 

21. 

V2=YIN»2» 




G 

0200 

22. 

DO 10 1=1,4 ' - 




G 

0210 

23. 

XINU >=XINin-X2 




G 

02 20 

24. ■ 1C 

YlNrn=YINII >“VT' 




G 

02 '30 

25. C 





G 

3240 

26. C 

ROTATE THE TRANSLATED BREAK POINTS SO THAT tHE 

SLOPE 

CF THE 


G 

0250 

27. C 

FIRST STRAIGHT LINE IS ZERO 




G 

0260 

28. C 

• * - 




G 

C2 70 

29. 

IF <XlN(2).NE,XIN(i) > GO TO 15 




G 

□ 280 

30. 

SL0PE=99999. 




G 

0290 

31. 

PHI=-P102 




G 

0300 

32, 

IF (VTNm.DT.VI N(2H PHI=Pi02 




G 

03 10 

33. 

CO TO 20 




G 

0320 

34. 15 

SL0PE = CYIN(2t-YINm » /tXlNl2r-XlNlt if) 




G 

0330. 

35. 

PHI=ATAN(SLOPE> 




G 

0340 

36. 

IF (XlNll).LT.XlN(2lt PHI=P1*ATAN<SL0PEI 




G 

0350 

37. 20 

DO 25 1=1,4 




G 

0 3 60 

' 38. 

XA=XIN(I ) 




6 

0370 

39. 

XJN(I >=XA*COS <PHI »*YIN« IJOSINIPMIl 




G 

0 3 80 

40. 25 

VIN(n=-XA*SIN;PHf MYlNm^COSIPHIl 




G 

03 90 

41 .C 





G 

0 400 

42. C 

DETERMINE THE ELLIPSE 




G 

04 10 

43. C 





C 

04 20 

44 . 

If <XIN(4).NE.XINm> GO TC 30 




G 

04 30 

45. 

B=YINT31 




G 

□ 4 40 

46, 

A=ABStXlN(3) ) 




G 

0 4 50 

47. 

PHIAB=PI02 




G 

□ 460 

48. 

GO TO 35 




G 

04 70 

49. 30 

SL0P2=1YIN(4 »-YIN<3) ) /( XIN ( 4 ) -X IN 1 3 > ) 




G 

04 80 

5D. 

IF (SL0P2.LE.2.0*YIN( 3)/XINt3l » GO TO 135 




G 

0490 

51. 

C3=XINI3I*SL0P2/VINI3 1 




G 

0500 . 

52. 

PHIAB = 2.Q*ATAN«S0RT( < c’3-2iQl/C3n 




G 

0510 

53. 

A=-XIN(31/SIN(PHI AB) 




6 

0 5 20 

54. 

13=YIN<3)/(1 .O-COSIPHIABII 




C 

□ 530 

55, 35 

THETMX=PHIAB“P102 





as4o,„ 

56. 

THTMX0=THETMX/PI0 180 




6 

0550 





57. 


WRITE (6,140) ft, C ,* INI 1 ) ,V IN ( 1 ) ,PH1 , THT MXD 

G 

0660 

58. C 



G 

35 70 

59. C 


1NIT1ALI7F THE EIPST POINT ON TME CtLlPSC 

G 

0580 

60. C 



G 

0590 

61. 

40 

K=KST ART 

G 

0600 

62. 


XON(K«n=XIN(.?) 

6 

0610 

63. 


Y0N)K+1)=YIN(2) 

G 

0620 

69 . 


CftPPA (K+l ) = -ri/(A##2) 

C 

06 30 

65. 


ALPHATR* 1 )=C .C 

G 

0640 

66. 


OYOXO (K+I ) = 0. r 

G' 

0650 

67, 


KOUNT=KOUNT+ 1 

G 

0660 

6B. 


THfT=-PI02 

G 

0670 

69, 


DSSAVC=0CL5 

G 

0680 

70. 


DS=DELS/( l.O* .OPTflNN) A0S(CAPPA 1 II » ) » 

G 

06 90 

71 , 


DTHET=DS/ABS( A) 

G 

07 00 

72. 


THET=rHET+OTHET 

G 

0710 

73. C 



G 

0720 

76. C 


GENERATE THE POINTS OH THE EtllPSE 

G 

0730 

75. C 



G 

0 7 40 

76. 

45 

K=«*l 

G. 

0750 

77. 

£'■ 

XONtK+ll =-A#C05(THET ) 

0 

0760 

78. 


Y0N(K4l)-B*t 1 .04STN(THET 1) 

r, 

37 70 

79. 


SON(K+1I=50N IK) + S0RT ( ( XON( K ♦ 1 » -XON ( K ) I *>»2 ♦ ( YON ( « + 1 1 - YON OU ) 6*2 ) 

G 

0730 

BO. 


IE (At'S(SPN(K4l)-50N(Kn.GT.1.05*OS) GO TO 55 

G 

0 7 90 

81 . 


IE (AP5(S0N(K+1)-S0N(K)).LT. .95*05) GO TO 60 

G 

OBOO 

S3. 


00 TO 65 - 

G 

08 10 

83. 

55 

THEt=THET-.02*0THrT 

G 

08 20 

84, 


GO TQ 50 

r. 

0830 

85, 


THET = THET4,C,?*nTHET 

G 

0 8 40 

86. 


GO TO 50 

G 

0850 

S7 , 

65 

IF (THET .EO.C .C ) GO TO 7D 

6 

0860 

BS , 


DYDXQ (K+1)=B*C0TAN(THET)/A 

G 

0870 

89, 


ALPHA (K+l ) = ATAN.( OYOXO (K + 1) ) 

G 

OBBG 

90. 


GO TO 75 

G 

0890 

91 , 

T 

DYDXO (K*l )=99°99 . 

G 

0900 

92, 


ALPHA (Ktl ):P102 

G 

09 10 

93. 

75 

CAPPA (K+ 1 )r-A*B/ ( F #E#C0S(TMET )**2+ A*A*S1N( THET )**2)*« 1.5 

G 

09 20 

94. 


DS^DEl S/ < l.G+.2*T ANH( ABS ( CAPPA ( I » ) ) ) 

G 

0930 

95. 


IF ( APS( DS-DEI. 5J .GT. . 2G90ELS) D S=DEL S + STGN ( .23 *PELS , D S-D ELS » 

G 

0940 

96. 


OSSAVF=nS 

C 

0950 

97. 

EG 

DTHET =nS/50RT (B#F1*C0S (THET)**2 4-A*A *SIN(THET )#*2) 

G 

09 60 

93. 


DTS=DTHFT 

G 

0970 

99. 


THET = THET+0THET/2 .0 

G 

09 8D 

100. 


D THE T=DS /SORT (E*B*CDS (T HET > **?♦ A* A *S1N ( T HE T ) ** 2 ) 

C 

0990 

101 . 


ir (APS(OTHET-DTS I.LT..C01*0TS» GO -TO 85 

G 

1000 

102. 


GO TO 80 

G 

1010 

103. 

P5 

IF (THET .LL,T)IETMX-DTriET/2,C) GO TO «5 

G 

1020 

1 G4 . 


IE (KOUNT.GT. ICO) GO TO 115 

G 

10 30 

105. 


OELESrDFLS 

G 

104G 

1C6. 


D5TCSTr( (X0N(K*1 ) -XIM3) )**24 I YON ( H-* 1 ) -Y IN ( 3 ) ) **2 ) ** . 5 

6 

1050 

1C7. 


IF (APS(BS-r)STEST I.LT 1*0S) GO TO 93 

G 

1060 

108. 


IE (DSTEST.OT.DS ) GO TO 110 , 

G 

10 70 

109, 


IF (DSTEST. LI. .01*05) GO TO 95 

G 

10 30 

110. 


IF ((1STEST-,5*DS) 105,90,100 

6 

1090 

111. 

<r. 

k::K*1 

6 

11 CO 

112. 

95 

X0N(K+I)rxINl3) 

G 

11 10 

113. 


yONIK-*l)=YIN(3) 

G 

1120 



- 6 ,/ 


lu. 


GO TO 115 

G 

1 1 3D 

115. 

irr 

DCLS: iFLOniKM-K ST AR7)»DCLS*DSTEST 1/FLO ATtK«2-K START » C 

1 1 4D 

116. 


IF IKOUNl.GC.lC) DELS=<DFLS*DCLSS1 /2.0 

G 

USD 

1 17. 


CO TO 40 

6 

1160 

115. 

ir? 

Dt'LS = 0tL£+t1STEST/FL0ATlK»?-KSTART 1 

G 

1170 

119. 


IF tKOUNT.OC.luJ' nELS=<DCLS*OFLSSl/?.0 

G 

1 1 50 

12D . 


GO TO 4D 

C 

1190 

121. 

1 10 

DCLS-.e«DCLS 

G 

1200 

122. 


GO TO 4C 

G 

1213 

123. 

115 

prLSl=DS»l,2 

G 

1220 

12t). 


IT (nFLSl .CT .nCLSI nELSl=DELS 

C 

12 30 

125. 


URITC <6,145JKOUNT 

G 

1240 

126. 


write (6,155)DELSTN.0n.S,PCLSl,DSTEST 

G 

12 50 

127. 


KENOrW+l 

G 

1260 

125. 


KSTaRT=KSTAR T*1 

0 

1270 

129. C 



G 

12 80 

130 .C 


ROTATE ANO TRANSLATE BACK 

G 

1290 

131 ,C 



G 

1300 

132. 


PO 130 KROT=KSTART,KENO 

G 

1310 

133. 


XA=X0NCKR0T1 

G 

1320 

nn . 


XONlKROT » = XA'*C0S<PH1 1 -YON f KROT ) #51 N <PHI MX2 

u 

13 30 

135. 


yON(KROT)=XAOSIN(PHl ) ♦ YONTKROT 1 «C0 S (PH 1 > *Y2 

G 

13 40 

136. 


ALPHA (KROT)=ALPHA (KROT)-»PHI 

G 

13 50 

1 37. 


IF tALPHA(KR0Tl.E0.P102» CO TO 120 

G 

1360 

136. 


DYDXO (KPOT ) =T AN ( ALPHA IKROTH 

C 

13 7C 

1 39. 


GO TO 125 

0 

138D 

litO . 

12: 

DYDXO 1KP0TI=99999 . 

0 

1390 

Ill . 

125 

ALPHA (KROTI = ALPHA (KR 0 T 1 /PIO ISO 

G 

1400 

142, 

130 

CONTI fiur 

G 

14 10 

143, 


RETURN 

G 

1420 

149 . 

1 35 

WRITE (6 , ISC )SLOP?,XIN( 3» ,YINt 31 

C 

14 30 

145. 


STOP 

G 

14 40 

146.C 



C 

14 50 

147.C 



G 

14 60 

145. 

14.C 

FORMAT UH0,ir.X,4HA 1 PE ID . 3 » 5X . 4HB - .1PE10.3.5X 

,5HXD = .IPEIO.G 

14 70 

149 . 


13,5X,7HYC = ,1PE10.3/9X,7HPHI - , IPE 1 C. 3 , SX , 9HTHC TPX = t1PF10.3G 

14 80 

15D . 


21 

a 

14°0 

151 . 

145 

FORMAT t 11X,I3,2X ,13H1TFRATI0N5 ) 

G 

15 00 

152. 

ISO 

FORMAT 11HD,1DX,42HC0M[3TNATI0N OF SLOPE, X , V NOT 

C0PPATIBLE/5X.96 

ISTD 

153. 


1HSL0PE2 = ,F7.3,3X^9HX1H<3I = ,F7 . 3 ,3X ,9HYTH t 3 ! = . 

F7.3I G 

15 20 

154. 

155 

FORMAT (IlX.lCHDELS IN = ,F 8. 5 , 3X , 7HDELS = ,FB.5,3X 

, 1 IHOELS OUT = G 

1530 

155. 


1 ,F6.5,3X ,9MD5TEST = .Fe.51 

G 

15 40 

156. 


END 

G 

15 5G 



“SO.'FN'SHP" 24 NOV 76 16 


1. 

SUBROUTINT FNSTRH (K) 

C 

DOOO 

2.C 


C 

ctnt 

3.C 

final straight scbment on the hub and shroud 

c 

CD 20 

4.C 

. 

c 

C,J30 

5, 

COHHON /MAIN/ XINtlOI ,YTNUD»,DELSMX,PI02.DELS1 ,IHUB 

c 

3<3 4C 

6. ' 

COMMON /FOR3SS/IO ,DELS,XBK120»,VBK t20) .XONISDO) »YON< SCOJ .DVDXOISO 

cc 

TiCSO 

7. 

1 J ,ALPHA(6DO> ,CAPPA<5 0CJ ,SON(5tl01,PT01RO 

c 

^0 60 

8. 

COMMON /SS/ NPDVl ,NBOD¥2.TYPDOV ,NPDYS 

c 

00 70 

9. 

COMMON /FNST/.NFIRST 

c 

ooeo 

■ 'ID." 

NF1RST=K 

c 

0090 

11. 

DS=DELS1 

L 

0100 

■■ rzr ■ 

tl’EtSTpsDELSHX 

c 

01 10 

13. 

VTEST=Y1N(2)-Y1N< 1) 

c 

0120 


XTEST=XIN<2»-XIN«1) 

c 

01 30 

15. 

ASIGN = 1. D 

c 

0140 

16. 

IF UTEST.lt .E.Q ) ASIGN=-l.r 

c 

0150 

17. 

ISTAR=0 

c 

0160 

18. 

SSEC = S0RTUTEST4^2-*YTCSTo«.2 1 

c 

0170 

19. 

IF (XTCST .EQ .C.O» GO TO 1C 

c 

0180 

■'Td". " 

IF (VTCST.EO.C.O ) GO TO 15 

c 

Cl 90 

21. 

QYDXC=YTEST/XTEST 

c 

0200 

“ "■■22V“ 

ALPHAC=ATANt Y TEST /X TEST! 

c ■ 

0210 

23. 

S1NAL=SIN< ALPHAC ) 

c 

02 20 

2-4— 

C'OSAt.'=CbS< ALPHAC)' ■ 

c 

0230 

25. 

GO TO 2D 

c 

0240 

S6V 

‘1C 'bV0XC=SI0N(99999. lYTESTl' 

c 

02 50 

27. 

ALPHAC=SlGN(PI02,YTrSTI 

c 

02 6C 


S1NAL=1.0 ’ ' ‘ 

c 

0270 

29. 

cosal=o.c 

c 

0 280 

J 0 • 

G'o~ro"To'‘ ~ ■ ■■ ‘ 

c 

0290 

31. 

15 DYDXC=C.C 

c 

0300 

32V 

* ■ "alphac^o.d 

c 

0310 

33. 

SINAL=0.0 

c 

0320 

— 34T 

"cobAl^i.c' “ ■ ' ■ 

c 

□ 330 

35. 

20 0YDX0»K*1»=0Y0XC 

c 

0340 

36. 

ALPHAU+ 1 J = ALPHAC 

c 

0350 

37, 

3F C0S.GT.DEL5MX) GO TO 25 

c 

0360 


Gb~fO 45 ' ' ■ 

c 

0370 

39. 

25 ir (ISTAR.NE.Dl GO TO 45 

c 

0380 

90. 

bSLAST=DS 

c 

0390 

41. 

X0N(K+1)=X0N<K) 

c 

0400 

4^7“ 

YONU + l) =YONUJ 

c 

04 10 

43. 

ICOUNT=D 

c 

0 4 20 

44. 

'30 XSAVE=XON(K + n-XIN(U 

c 

□ 4 30 

45. 

YSAVE=YON(K+l)-YrN<l) 

c 

0440 

46 

S S T A R =Sb R'T ( X S A VE »'*2 ♦ Y S aVE<'*2 » 

c 

04 50 

47. 

ASTAR={5SEG-SSTAR l/OELSTR 

c 

04 60 

48. 

ATEST^ASTAR-FLOATUFIXCASTARI » 

c 

04 70 

49. 

IF T ATEST.GT. .51 AS T A R=A STAR+l .0 

c 

0 4 80 

5Q. 

NSTAR=IFIX( A5TAR T 

c 

0490 

51. 

rSTAR=l 

c 

□ 500 

52, 

IF (NSTAR.EO.D) GO TO 35 

c 

0510 

53. 

OSi:(SSEG-SSTAR)/FLOAT (NSTAR » 

c 

0520 

54. 

IF (DS.GT.QSL AST > GO TO 35 

c 

0530 

55. 

IF nCOUNT.GT.OI K=K 1 

c 

0540 

56. 

GO TO 45 

d 

0550 



“■sTV — 5^~k5K^r"”" . 

56. ir IK ,C7 .NFIWSI> CO TO *(0 

59';’ " ' KrWFIRST 

60_. UU. 

62 ! 00 TO 50 

‘'63*. 4ff”0‘SCA*STrS'0'RreTX0«Y«^T) -liON C K lT^THWlTf )*J .2 ' 

6H. OCLSTRrOSLAST 

65. ' rCOUNtrICOUNT*! ' 

66. CO TO 3D 

67. XONiK*l>=XONTKl#ASIGN*DS*COSAL' * “ ' 

68j V0NTK*1»=V0NCK»»ASIGN«DS*S1NAL 

■ 69 , ■ ' ~S ONTr^TTiWN rK'TVVO'Rl'rT X*ON lT*T)“T0>r I'xYT^Vz ♦ TTOnY V ON T K H ♦* 2 1 

7D, CAPPA<K*1»=0.0 

71. “IF <ABSrXONFK*i)-XINr2Vt.LE.Vbbi*DS:AND.Xt5:s‘T.Nt.O,Q ) 60 TO 50 

72. IF (ABSTTON(K*l»-YlN(2H.LE..DDl*OS.AND.XTeST.eO.D.O I GO TO 50 

■' 73.C ■“ 

TR.CTMHt IS THF CURRENT POINT PAST THE NEAREST ENDPOINT OF SEGMENT 

’“75TCTTrrrrvTo'us-TcsTs“urftE'“o¥cv~roR’nfBminTT’R-MwrT"r"Tb“E'frb'w^^^^ 



76. 

IF tABSIVONIK>lI-YlN( 11 1 .CT .ABS ( YTEST ) > 

GO TO 

50 


77.” 

IF tABS('X6Nl‘K*i'l-xrNriTr,GT;A¥SIX7ESf^^^^^^ 

“GO TO” 

50 . 


78. 

K=K*1 



C 

79'. 

ir''4TSTA’ft'.E0.¥) DS=DS*172' ' ' 

~ ■* — •“» 


c 

80. 

GO TO 20 



c 

y I * 

5TT OCLTr=tJCL'Sr~ ' 



“ " * c 

82. 

X0NfM*n=XIN(2» 



c 

“8T.“ 

“ Y0NfK + lT=TrrN(2l~ ' 



■ ' c 

84. 

NBDYl=X+l 



c 

8 5 • 

K=K*1 - 



c 

86. 

DO 55 KAL=NFIRST ,4 



c 

' 87. 

“T5“A CP¥A fk A L > = A CPH A f l<7nrr>PY tfYB a 



' c 

as. 

RETURN 



c 

“89, 

ENO 



c 


DS 60 
0 5 70 
0580 
0590 
0600 
06 10 
06 20 

06 30 
0640 
0650 
0660 
0670 
0660 
0690 
0700 
0710 
0720 
0730 
0740 

C 

C 

07 ID 
0‘7BD 
0790 

08 00 
OBIO 
08 20 
0830 
0840 
□ 8 50 
08 60 
0870 
0880 


075 

076 





'"STJTNTPPr “ 


1. FUNCflON FNTRP IA,F,V,N*t 

2. C. . ...riINCTION rVALUATlflN FOR DOUflLE '5-POJNT,. INTERPOLATION. 

3» REAL FtNAT 

<♦. COMMON /NlftPC?/ n.IS.CfM 

FIRST EVALUATE FUNCTION COEFFICIENTS. 

^67 C>Lr~TNTRPA FA.X.NAT " 

7. CALL FNTRPC 

“'0.C.....THEN EVALUATE FUNCTION VALUE. 

9, ENTRY FNTRPl <F> 

"IQ." FNTRP-0.0 

H. J=C 

"IT. *‘D0 10 1 = 11, T2 

13. . J=J«1 

14. ID FNTRP=FNTRP*C<JI*r(I I 

15. RETURN 

16. L'NO 


07 OCT 76 14 

S 0000 

5 coin 

S 00 20 
S 0030 
S 0040 
S COSO 
S 0060 
S 0070 
S 00 80 
S 0090 
S 0 100 
5 0110 

S 0120 
S 0130 
S 0140 
S 0 1 50 



- £j>5~~ 


NTRPr* 



07 OCT 76 

IN 

u 


SUBROUUNr TNIRPA (A.X.HAl 

V 

0000' 

2 • C « • 

* » 

.COMMOH SUPKOUriNi: EVALUATTS A COC'r r ICI EN 7S IN OOUPLE 

V 

00 10 

3 * C • t 

« • 

,3-POlNT interpolations. 

V 

C020 



L=HP, or POINTS IN THE FIT 

V 

0030 

5.C 


l=lNDrx TO FIRST POINT 

V 

OONO 



REAL AINAl 

V 

0050 

7. 


COMMON /NTRPCl/ L ,I , A 1 1 , A 1 2 t A 1 3 . A 1 « ,A2 2 , A2 3 , A29 , A33 , A29 » ANN 

V 

00 60 

6 f C * • 

• • 

.tn 1 AND L 8Y TAPLE LOOK-UP. 

V 

00 70 

9, 


LrtlHIT (1,NA,3» 

V 

Ooao 

10. 


HsHAXrn ,NA-2 ) 

V 

0090 

11. 


CALL TLII (A, X.NA.Jt 

V 

0100 

12. 


IF tJ.E0.LJHIT(2, J,MI 1 L*N 

V 

01 1C 

13. 


I:LIMTT(1,J-1 ,H» 

V 

01 20 

19. C. . 

• • 

.calculate A-ARRAY. 

V 

01 30 

15. 


A u = A m 

V 

01 NO 

16. 


A22 = AU*1 1 

u 

G15Q 

17. 


A23=:A (I*?) 

V 

016C 

18. 


IF IL.NE.NI IF (L-2> 20.15,10 

V 

017C 

19. 


ANN=A (J+3 1 

V 

01 SO 

20. 


A1N=A1 1-ANN 

V 

0190 

21 . 


A29=A22-ANM 

V 

Q2GD 

22. 


A3- 5A33-A9N 

V 

0210 

23. 


A- -X-ANN 

V 

0220 

29. 

10 

A13=AJ1-A33 

V 

02 30 

25. 


A23=A?2-A33 

V 

02N0 

26. 


A33=X-A33 

V 

Q25C 

27. 

15 

A12=A11-A22 

V 

0260 

28, 


A22rX -A22 

V 

0270 

29. 


A11 = X-A1 1 

V 

0280 

3C. 

20 

RFTURN 

V 

0 2 9C 

31 . 


END 

M 

0300 





SO.NTRPrC 



07 OCT 76 

IM' 

1. 


SUUROllTINr rNTRPC 

U 

CDCD 

2 « C • « 

* t ft 

CALCULATION OF C COFFnciENTS FOR FUNCTION VALUFS BY POUBIC 

U 

no ID 

3 •Cf * 


3-POINT INTERPOLATION. 

u 

0D20 

<4 t 


COMMON /NTOPCl/L ,1,A1 1 , A 12 , A 1 3 f AIM . A22 , A 23 , AOK. , A 3 3t A S'*. A4R 

u 

00 3G 

5. 


COMMON /NTRPC?/ I 1 , T 2 « C 1 ,C2 ,C3 , CM 

u 

OOMO 

6. 


IF it .LE. 11 GO TO 25 

u 

0D5D 

7. 


IF TL-31 20. 15, 1C 

u 

0D6C 

8.C. . 

• ^ « 

FOR DOUBLE 3-POlNT 1 N TCPPOL ATI ON, 

u 

D07C 

9. 

ID 

C1=*A33/A23FA22/A 12AA 33/A13 

u 

DOPO 

10. 


CM=-A22/A23#A33/A3M*A22/A2M 

u 

DQ9D 

n. 


P?=A33/A23#An/A23 

u 

OlOC 

12. 


P3=A22/A23*AMM/A23 

u 

DIIC 

13. 


C2=-A33« (P2/ A12*P3/A2M » 

u 

D1 2D 

. 


C3=»A22*<P3/A3M+P2/A 1 31 

u 

01 3D 

15. 


GO TO 3C 

u 

OIMD 

1 6 1 C • ft 

ft ft ft 

FOR SIMPLE 3-POlNT INTERPOLATION. 

u 

0150 

17. 

15 

C1=*A22/A12*A33/A 13 

u 

Cl 6C 

18. 


C?=-A11/AI20a33/A23 

u 

D17D 

19. 


C3z*A11/A13#A22/A23 

u 

0 1 PC 

20. 


GO TO 3D 

u 

Cl 90 

21. C. . 

f * ■ 

TOR 2-POINT INTERPOLATION. 

tJ 

02 00 

22. 

20 

C1=+A22/A12 

u 

C21.C 

23. 


C2=-A 1 1/A12 

u 

D2 20 

2<<. 


CO TO 3D 

u 

D23u 

25. C. . 

ft ft « 

ONLY ONE TABLE VALUE GIVEN. 

u 

02*10 

26. 

25 

Cl=l .C 

u 

0250 

27. 

30 

M=1 

u 

C2 6C 

2fi, 


I2=ML-1 

u 

C270 

29. 


RETURN 

u 

0 2 80 

30. 


FND 

u 

0290 



r . 




Kr ^ if.. IT. .. - k. . . 

D7' OCT 76 

13! 

1. 


StIBROUlINr F0N1S0IP,0,LLI 

1 

DODD 

2.Ct <(U 

3.C 

:< (H ( M in HMI Mi 1 1 (1 1 M ( (1 1 MM il(< (( ( t < CM (11 (l( HH ( MM tllMI 

1 

0010 
□ D2D 

" ■ H , C 
S.C 


FOR TM2 Bl-SUPCREUiPSE, FCP.Ol = IX/AI64P ♦ ir/GI**0 - 

1 = D* 1 

I 

00 30 
0040 

6 « C 

■ ♦ • 

If' tL 'i 8Nb GIVEN FIND 

I 

DD5D 

7.C 


I 0,X1,T1 P 

1 

0060 

d.c 


2 PtXltVl 0 

1 

0070 

9.C 


3 Xl,yi»X?,Y2 P AND Q 

I 

DO 60 

io.c 


4 X1,V 1 p = 0 z N 

I 

0090 

11. c 


5 XI, VI, SLOPE ftMXlfVlJ p *ND Q 

1 

0100 

12. C 


6 (XI, l=INFLECtlbN Pi, P,0,*ND VI 

1 

01 ID 

13. C 


PL'tS SLOPE AT 1X1, 1 

I 

0120 

lii.C 



I 

0130 

IS. 


REAL LQGXOA,L06VOP 

I 

0140 

16. 


DIMENSION 0X(2),0V(2| 

I 

0150 

17. 


COMMON/TRVFIT/KOUNT 

I 

31 60 

* T6. " 


CbMHO'N /MAIN/ Xii5(i’0‘» ,YTN(10»,bELSMXiPlpZ,DELSl,IMUB 

I 

0170 

19. 


COMHON/SOPN/ X0A(2} ,V0n*2» .LOCXOACZItLOGVObCni 

1 

018D 

■ 20. 


CdHHON/SENSE/ X ( 2 » , V (2 > , A , D , I NFLC C 

I 

0190 

. 21. 


DATA 70L/.1E-6/ 

1 

0200 

22'. 


Vi=vi 11 

I 

0210 

23. 


Xl-X(l» 

1 

0220 

“ 26 . ■ 


0XiU= X1N(3> ■ ' ' 

I 

0230 

2S. 


ox (2 1=X1N(6 > 

I 

D240 

"26. 


OY(il= yiNI3» 

I 

0250 

27. 


0Y(2I=Y1NI61 


D2 6D 

2Q . 


DO 20 1=1,2 

I 

0270 

29. 


IF (KOUNT.CT, 1) CO TO 2C 

T 

0280 

"^0. ■ ■ 

• • • •* 

IF u .Eo , 2 . a'nd.ll.nc. ir Gb TO 20 


0290 

31. 


OAz xOA(I» 

'JI 

13pf* 

32, 


OB= YOBtU 

* 

03 >0 

33. 


IF ( (OB»OR» .LE.l .01 GO TO 1C 

1 

3 3 20 

3M . 


IF tOe.GT.l.b.OR.bA.GEiil.b) Go TO 15 

1 

0330 

35. 


GO TO 20 

1 

D3 40 

“ 36. 

10 

'WRITE i6,90ibyiYi ,TSV(ii 

I 

□ 350 

37. 


GO VO 20 

I 

0360 

36. 

15 

WRITE (6,8510X11 1 ,0V{ n 

I 

03 70 

39. 


STOP 

1 

3 3 80 

4b. 

20 

CONTINUE 

I 

0390 

41. 


IF CtL.NE.6) GO TO 25 

1 

□ 400 

42. 


P'=1.5 .... 

I 

D41D 

43. 


0=.5 

1 

04 20 

44. 

25' 

"K* (LL.NE.6l GO TO 3D 

1 

04 30 

45. 


YOB(l 1= Yd 1/B 

I 

0440 

46. 


LOGYOBCi irALOGtYOun ) * 

I 

0450 

47. 


X0AM1=XM»/A 

I 

04 60 

‘ 48. 


L06X0A(li=Al0Gix6All» i 

1 

04 70 

49. 

3D 

X0ATP1= X0Am**P 

I 

0480 

■ £0. 


vbdToir yoB(iM*d 

I 

04 90 

51. 


OFOPAl= XOA1P1»LOGXOA 11 ) 

I 

06 00 

52. 


FI- XOATPl ♦ VOBTOl -1. 

1 

0510 

53. 


DFDOAl = YOBTOlPLOCYOCm 

1 

0520 

54. 


GO TO (5S,6C,35,6S,7D ,7D 1,LL 

I 

0 5 30 

55, 

35 

X0ATP2 = X0A(?)4«P 

I 

0540 

5b. 


V0BTO2 = Y0B(2)P*0 

I 

0 5 50 





OFDOA2 = V0BT02 * LORVO0<2»' 

I 

0560 

58. 


F2 = XOA7P2 ♦ VOOTQ2 - 1. 

1 

0570 

59. 


bro'p >2 = »dVrP 2 *LoG>fbM 2 i 

1 

0 5 80 

bO. 

*»0 

ON = iri*DFDPA2/IDFD0A2*DFDP*11-F2/DFD0*2»/ll. - OFOP A26 OF 00ft 1/ 1 OFl 

0590 

bt. 


lDPAl9DfD(IA2l 1 * 0 

I 

0600 

62. 


PN =MO-ONl90FDOftl “FlI/DFDPftl ♦ P 

I 

0610 

63. 

65 

ICSfP=iRSIPN-P)/P -tOl, 

1 

D62C 

64 • 


TC5TQ=ABS10N-0»/0 -TOL 

0=dN -■ ■■ - ■ 

I 

06 30 

■ T5 


I 

0 6 90 

66. 


P=PN 

1 

06 50 

^-6'n 


'TF "lTtSIP.Ct.,0.,dP.TE'STO.'Gt.Q. i GO TO 25 

1 

066D 

68 • 

50 

RFIORN 

I. 

0670 

"vrr~ 

■'55 

PF= -FT70FDPftT*»'"P 

1 

06 80 

7Q. • 


TESTP=ftBSTPN-Pl/P -TOt 

I 

0690 

■ 


P=PK 

r 

0700 

72. 


IF UESTPJ 50 ,25,25 

I 

0710 

" 73. 

60 

on: -Fl/OFOQM *0 

I 

07 20 

V*. 


TEST 0 =ftasCQN- 0 »/O -TOL 

I 

0730 

7S * 


0=QN 

I 

0790 

76. 


IF (TESTOt SO ,25,25 

1 

0750 

“ 77. * 

65 

OrOQAl= Y0DT01*LbGV0B lit 

I 

0760 

78, 


PN=-Fl/(DFDPAl+OFDOAi 1 +P 

1 

0 7 70 

J9V 


TESTPr ABSCPN-Pi/P^-TOL 

J 

0760 

80. 


i'-:PN 

I 

0 790 

"81.' 

* ■ 

Q=P ' ■' ' " 

I 

0800 

82. 


IF (TESTPl 50,25,25 

I 

08 10 

"S3. 

■ 70 

DYbX= 'IYI21-VI l/<K‘l2t-XI t 

i: 

0 8 20 

84 . 


F2::DYDXt P*XOATP l*Yl U /Q/V08TQ1/S U » 

I 

08 30 

■ as. 


EOCAL0= - P*XOftTP19V(ll/0/YOBTQl/X(ll 

1 

0 8 90 

86. 


0FD0A2- - (ALOGIB )-l ./O-ALOtTIY m n*EOCALO 

1 

0850 

''87. 


bF0PA2= - il,/P -AL06IAI+ ALOb I X 1 1 Ml iEOCatO 

1 

0 8 60 

88. 


IF ILL. CO. 61 GO TO 75 

I 

06 70 

■ 89. 


GO TO 90 

I 

0 8 80 

90. 

75 

LOCALD- - P*X0ATP1*YI It/O/VPDTOl/Xni 

1 

0890 

91 . 


ti=F2 

1 

09 00 

92. 


DODPr DFDPA2 

I 

09 10 

93. 


DGDb= DF00A2 

1 

0920 

99 . 


H = EOCALD*! lP-1 . >/X( 1»+ < ( i.-O I/VI 1 n*EOCALOI 

1 

09 30 

95. 


CHOP - EOCALD#! IP-1 . l/XIl 1 1 ( 1 1 , -0 t/Y I 1 1 1 OfOCALO »«l 1 . /P- ALOG 1 A I ♦ ALl 

0990 

9b. 


IOGIXUM (♦roCALD* ll./XIll ♦Ill.-Ol/Yll )I*COCALD#i l./p-ALOGlAMALOr.T 

0950 

' 97. 


21X11)1)1 

I 

0960 

9G. 


DHDO = EbCALP*! IP-1 . l/XIl ) + l I 1 .-0 )/VIl ) 1 9E0C ALD ) « 1 - 1 ./0+AL0CI6) 

-A1 

0 9 70 

’ 99. 


ILOGI Yl in )*EOCALD«I-COCALD/YI1 ) ♦ I 1 1 . -0 ) / V 1 1 ) 1 *EOC ALO « l-i . /O ♦ ALOG I P I 

0980 

100. 


2l-AL0GIY(in n 

r 

0 9 9C 

101 . 


OFDV= Q/Yll 16Y0BT 01 

I 

1000 

102. 


irnNFLEC.EQ . 110rOY = P/X( l)#XOATPi 

1 

ID 10 

103. 


OGDV: E0CAL09I0-1 .l/y 11) 

1 

1020 

109. 


IFIINFLFC.EO. 1) 

I 

ID 30 

IDS. 


1 DGPV=:E0CALD*H.-P)/X(.U 

1 

10 90 

106. 


E0CAL2;2.*E0CALD 

I 

10 50 

107. 


OHOY= EOCALb*IHP-l. ) /X 11 )+ 1 1 1 .-C ) /Y 1 1 1 1 *EOC AL2 ) * 1 ! , - p'r/ Y 1 1 )♦ EOCALl 

1060 

106. 


1D’*I0-I.t/Vll)/Yll )) 

1 

10 70 

109. 


IFIINPLEC.EQ.I) 

1 

1080 

110. 


1 DMDVSE0CAL0/X( 1 )*|P-1 , )*l IP -2.) /XI 1 ) *2 .♦£ OCAL 0* 1 1 , -Q ) /YI 

10 90 

111. 


lllll 

I 

1100 

112. 


WRONSK=DFDPA19CDGP09DHDY-OGDY*OHOO )-OFDQAl*inGDP*DHOY~OGDY«‘DHDP) 

* 1 

11 10 

113. 


1 DFDV*(DGDP«DHDO-DnOO*OHDp) 

I 

1120 



. . .. . .. . -... - ... 

II Q =Q ♦ ( F i • Td c b pi b H by - 0 GD f • mi'cTr^GiToTb^ *o mdv - 6 fdv*d h cp » * i d r op * i i n 3 o 


ns. nOGOY-DFOY*DGDP> I /URONSK _ " .1 imO 

'f ife . PM=P* I -F 1 #C DGDO*DHO Y-DGDVibHbO I ♦GMOFbaA 1 *DHD Y- 0 >DY*DHOO >-H*l DFOQ AI 1 1 SO 

117 . n«DOOV-OFOY* 060 Qn 7 HRONSK _ I 1160 

fra. ’ 'viiisVu ^♦^bMbf^<^p-PN■^♦b^?bo■Mb-^^^^ "■ i ii 7 b 

119. IFlINFLeC.CO. U 1 1180 

**T20; •- -J - “V>3=xn)*iD'{?bTiTp-P^1i«0HOO*«S“bNT-Hr/DHDV ’ I 1190 

121 . IESTY=AHSiYN-vm >/YU» -l.t-OS 1 1200 

122 . iFlINFt.irC.EO. n ' ‘ 1 1210 

123 . 1 TCSTV=ABS tYN-X Cin/Vn » - l.E -05 I 1220 

124. "IFllNFtEC.NE.l i Yili=YN ‘ ' 1 1230 

125 . IFaNFLEC.CQ.il I 1290 

■126. mil = YN ’ ' - j - j250 

127 . IF ITFSTYl 45 , 45,80 I 1260 

126. ■ '60' Q-ON ' — ■■ ■ 1 1270 

129 . P:PN I 1280 

i 3 d. "GO to 25 ■ “ I 1290 

131 . 85 FORMATaHa, 42 N THIS POINT IS OUTSIDE TH E HA GIC TR lA N GLE , , 2 t, 1 5 . 4 / I 1300 

T 32 .‘ 2' ' ■“ ■*' 52 HI 1310 

133 . 1 THIS CONDITION T S NOT VALID FOR ANY CA 5 JE. REVISE I I 1320 

;i 3 " 4 . 90 F 0 RHATCIH 0 . 4 ZH THIS POINT IS BELOW' THE HAGIC * TR IAN GLE , , 2 E 15 . 4 /S 2 I 1330 

135 . IH THIS CONDITION IS VALID ONLY FOR THE DlSUPERLLLrPSE/r 2 H UTIH INFl 1340 

136 . iLFCTioNlP OR 6 LESS THAN 1 . 1 . SUCH A CURVE HAS BEEN GENERATED II 1350 

1 31 .CC Ul I n (t ( I It I (( ( H (M lU ( (< ( < ( { ( M ( a U m ( U I t II ( ( ( C M ( t n ( M ( M ( (( HI 1360 

.' 138 . END. ■' - ■ 1 1370 
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09 

1. 


SUBROUTTNE TRSTSH <KI 

D 

□ ODD 

2.C 



D 

DO ID 

3.C 


FIRST STRAIGHT SCGHCNT SHROUD 

D 

D020 

4,C 



D 

DD3D 

5.C 


IF THFRE IS NO HUP INTERCHANGC P01N75 Ml.Yl) AND 1X2,V2I 

D 

0Q4C 

6.C 


AND TFifAT LIKE FINAL STRAIGHT SECTION ON THE HUB, 

D 

005D 

7.C 


THEN REVERSE XON AND .VON ARRAVS 

D 

00 60 

e.c 



D 

DD70 

9.C 



0 

00 60 

ID. 


COMMON /MAIN/ XI N ( 1 0 > ,V1 N ( 10 » ,OELs MX , P T02,D FLS 1 , 1 HUD 

0 

00 90 

11 . 


COMMON /FOR 3 S S/ID, DELS, XBK 1201 ,V0K( 20 (.XON! 5Cni,V ONI 5C0I , 

0YDX0I5DDD 

01 DO 

‘ 12. 


1 », ALPHA! 50D1 ,CAPP A(500i ,S0N(5Q0 1,P1018C 

0 

01 10 

U, 


COMMON /SS/ NPDYl .NBOUVZ.TYPDDY.NBDYS 

P 

0120 

14. 


common /FNST/ nfirst . 

D 

01 30 

15. 


DIMENSION XA(2), YA(2», DSV!5D0», ASV)530), XSV«5CD1, YSVIGOC), SSO 

D1 4D 

16. 


1VI500> 

D 

01 5D 

17. 


SONIK J-O.D 

D 

01 60 

16. 


IF ilHUB.FO.l 1 GO TO 25 

D 

0170 

19. 


00 ID 1=1,2 

D 

31 80 

2Q. 


XAUl=XIN(n 

D 

0190 

21 . 

10 

YAH 1 =V1N(I1 

0 

0200 

22. 


XiNlUrX A!21 

n 

02 10 

ZJ. 


XINS21~XA(.U 

0 

C2 2C 

■ 24. 


VTNtl )=VA!21 

0 

02 30 

25. 


VINf2>=YA»ll 

D 

0 2 40 

26. 


NFB2=K 

D 

02 50 

27. 


VONfK JZYINU J 

0 

02 60 

28. 


sONU 1=X1N( 1 1 

□ 

C270 

29. 


CALL FNSTRH (K) 

D 

3 2 8C 

30. 


kSV=K 

P 

0290 

31. 


DO 15 1=NFB2,KSV 

n 

G3CD 

32. 


KSRzKSV+l-I 

n 

0310 

33 . 


OSVIKSRI =DYDXO<I ) 

D 

0320 

34. 


ASV(KSR1=ALPHA(I ) 

D 

03 3D 

35, 


XSVIKSR) =XON( II 

0 

03 40 

36. 


YSV!KSR)=YON(I) 

D 

0 3 50 

37. 

15 

SSVIII =S0N(1) 

D 

0360 

j8. 


DO 20 1=NFB2,KSV 

D 

C37D 

39. 


OYDXOlIJzpsvn) 

D 

C3A0 

4D. 


ALPHA m=ASvm 

0 

0 3 9C 

41. 


XONI 1 )=XSV( 1 1 

0 

0400 

■ 42. 


YONIJ l=YSV( 1 1 

D 

0 4 1C 

43. 


SONII I=SSV(KSVJ-S SV!KSV + 1-1 ) 

P 

04 20 

44. 


CAPPA in=o.o 

D 

0 4 30 

45. 

20 

CONTINUE 

0 

04 40 

46. 


OCLSl=AP$tSONIKSV >-S0N(K3V-l) 1 

D 

04 50 

47. 


NBD¥l=D 

P 

0 4 60 

"48, 


RETURN 

D 

0470 

49. C 



D 

04 80 

50.C 


IF THERE IS A HUB, USE X VALUFS FROM FINAL STRATCHT 

n 

0 4 9t 

51. C 


SECTION ON THE HUB FOR FIRST STRAIGHT SECTION ON 

p 

05 00 

52. C 


SHROUD 

D 

0510 

53. C 



0 

05 2C 

''*'54. 

25 

XTESt = XlNU)-XINf2) 

0 

0530 

55 • 


YTEST=Y!Ntl|-YlN(21 

p 

3 5 40 

56. 


IF JXTEST.EO.D.Ol GO TO 3C 

D 

0550 



- 7 / 


57. 


flVDXCsVTCSTi'XTCST 

D 

0560 

58, 


*tPHAC=At*N2(YTEST,*7ESTI 

D 

0570 

59,; 


CO To 35 

0 

0580 

6Q. 

30 

0YDXC=99999. 

D 

05 90 

61. 


ALPHiSC=Pl02 

U 

06 00 

62. 

35 

K=K-1 

D 

0610 

63. 


nroc=ncdy1 

0 

0620 

6<t. 


IF TTYPn0Y.E0.3,0,AND.NBDY5.E0.3l NDDC=MB0DY2 

0 

0630 

65 . 


riO 50 IrNFlRSt.NBOC 

D 

0640 

66. 


Kt:EP = NBriC4NFIR5T-T 

D 

06 50 

67. 


xnNfK*l)=XONf»(EtP| 

0 

0660 

68. 


DYDXOIK*ll=DVOXC 

0 

06 70 

69. 


AtPhA(KtlUALPMAC ’ " * ' • ' * ' * 

0 

0 6 80 

70. 


IF II.EO.NFlRSn GO TO 40 

0 

0690 

71. 


YONtk ♦! » - YON ( k »♦ » XON < X+ 1 1-XON* K » 1 *DYtJXC 

D 

0 700 

72. 


S0NIM + 1»=S0NIKM C X0N1K»-X0N(K*1 n/COSIALPHAC) 

D 

0710 

73. 


GO 10 45 

0 

0720 

74. 

40 

Y0NIK+1I=YINC 1»*«XON<K*1>-XINI1II*DYOXC 

D 

07 30 

75. 

45 

CAPPA»k*lT=D.O ■' "■*" " 

D 

07 40 

76. 


ALPHA <K*1> = ALPHA CK+1 I/PI018D 

D 

0750 

77. 


K=H»1 ’ • 

b 

0 7 60 

78. 

50^ 

CONTINUE 

D 

0770 

79. 


DtLSl-SOKtKl-SON(K-lJ 

0 

0780 

80. 


RETURN 

b 

0 7 90 

81. 


END ' 

0 

08 00 
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COMPLFX rUNCTION FZTffP IA,F,X«NA> T 

COMPLEX FUNCTION EXflLUftTION 9T DOUBLE 3-POINT INTERPOLATION. 

COMPLEX F<NAI 

i COMMON /NTRPC2/ Il.lZtCTNI 

FIRST EVALUATE FUNCTION COEFFICIENTS. 

o. CALL FNTRPA |A,X«NAI T 

2 » CALL FNTRPC T 

THEN EVALUATE FUNCTION VALUE. 

FZTRP=O.D 

4U. J=C 

II. 00 10 1=11,12 

J=J*1 

1C FZTRP=F2TRP«CUI*F(I> 

IN. RETURN 

-IS. END 
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13 

1 . 


SUQROUTINr LEM IK 1 . ' 

L 

DOOO 

2.C 



L 

0010 

3.C 


SUBROUTINE TO CALCULATE POINTS ON A LEHNISCATE 

L 

0020 

i«.C 



L 

00 30 

S. 


COMMON /FOR 3S S/I 0 iDEL S,XBK 1 201 tTBK (20 1 ,XON 1 500 > , Y ON 1 5 EOT . 

DYDX0I500L 

0040 

b. 


i r,ALPHA( 5QDr/CAPPA(S0CI,Sb1i«50bY,piO18b 

L 

00 50 

7. 


COMMON /SS/ NnOTl,N0OOV3,TTPBDy,NDDVS 

L 

0060 



COMMON /main/ XlN(13l,rTNillOl,DELSMK,Plb2,OCLSl,lHUB 

L 

0070 

9, 


DELSIN=DELS1 

L 

doeo 

10. 


K=K-1 

L 

0090 

11. 


KSTART=K 

L 

DIDO 

12. 


DCLS = DELSl , 

' L ■ 

01 10 

13. 


KOUNTrO 

L 

0120 

IM . 


IF (VINI 1 l.E0,YINT2n CO TO 30 

L 

01 30 

15. 


IF (XTNI H.CQ.XIN(2) 1 GO TO 10 

L 

D140 

16. 


SL0PE = (YIN<2»-YIN(1) 1 /(X IN 1 2 » -X IN ( 1 1 > 

L 

0150 

17. 


AROT=-1ANtSLOPC) 

L 

0160 

le . 


GO TO 15 " . 

L 

0170 

19. 

10 

SLOPE=99999. 

L 

0180 

20. 


AR0T=-PI02 

L 

0190 

21 . 

15 

00 20 1R0T=1,3 

L 

0200 

22. 


XN=XINIIROT 1 

L 

0210 

23. 


XrN(IROT» = XN#COS ( AROT ?- YIN ( ISO T »9S I N( A ROT > 

L 

0220 

29. 

20 

VTNdPOT »=)CN*SINI aRoT JvWJtNl lft'OT)>COS'iAR6Tr 

L 

0230 

25, 

25 

K=KSTART 

L 

0240 

26. 

30 

X0N(K+1)=XIN(2) 

L 

02 50 

27. 


THETMX=ATAN(ABS( 1 YI N I 3 1 -Y1 N 1 2 » 1 / » X IN ( 3 » ~XI N 1 2 >) ) ) 

L 

0260 

28. 


ASSORT M l XINI 3)~X1NI2 M**2« 1 Y I N 1 3 » -YIN 1 2 M *92 > / 1 2 .0*5 IN I 2 

.D*THETMXL 

0 2 70 

29. 


ill) 

L 

0280 

30. 


Y0NIK«1)=YINI?> 

L 

0 2 90 

31 . 


CAPPAIK* 1) = 0.0 

L 

03 00 

32. 


DYDXOIK*l»=C.P 

L 

0 3 10 

33, 


alpha IK* nro.o 

L 

0320 

34 . 


KOUNT^KOUNT-* 1 

L 

0 3 30 

35. 


DSSAVF^DELS 

L 

0340 

36. 


DS=DELS 

L 

03 50 

37. 


0THCT=DS**2/A**2 

L 

0 3 60 

38. 


THCT=DTHET*.5 

’ L 

0370 

39. 

35 

R-A*SQRT|2.0*S1NI 2.3*TMCn » 

L 

□ 380 

40. 


D5CHCK=R*C0S(THET1 

L 

0 3 90 

41, 


IF IDSCHEK.DT.1.1*DS» GO TO 40 

L 

04 00 

42. 


IF IOSCHEK.LT..9*DSj CO TO 45 

L. 

0410 

43. 


DELS^nS 

L 

04 20 

44 . 


GO TO 50 

L 

04 30 

45. 

40 

lHET=THET-.a2«DTHET 

L 

24 40 

46. 


CO TO 35 

L 

04 50 

47. 

45 

1HET=THET< .D2*DTHET 

L 

04 60 

40, 


GO TO 35 

L 

04 70 

49. 

50 

K=K'd 

L 

0480 

50. 

55 

R=A*SORT C 2.0* SIN 12.0* THfTn ‘ 

L 

0 4 90 

51 . 


XONI K + n =XIN(2)-R«C0S (THETl 

L 

05 00 

52. 


YONCK*i»=YlNI 2)+R*SIN (THE! 1 

L 

0510 

53. 


SON<K»1)=50NIK)«50RTI 1 XON 1 K <^1 1 -XON 1 K J » **2+ 1 YON 1 K> 1 ) - VON | K ) |**2> L 

0520 

54 . 


IF IARSISQNIK+1»-50NIK»».CT. 1.05*051 GO TO 62 

L 

0530 

■55. 


IF lAPSlSONlK+n-SONIKM.LT. .95*05 ) GO TO 65 

L 

□ 540 

56. 


GO TO 70 

L 

0 5 50 



-7V<- 


57. 

sa. 

59. 

60. 
61. 
62. 
63. 
6 <«. 
65 . 
66 . 

67. 

68 . 

69. 

70. 

71 . 

72. 

73. 
79. 

75 . 

76. 

77. 

78. 

79. 
80 . 
81 . 
02. 
83. 
09 . 
65. 
86 . 
07. 
80 . 
09. 

90. 

91 . 

92. 

93. 
99. 
95 . 

96. 

97. 
90. 
99. 

100 . 

101 . 

102. C 

103. C 
109. 

105. 

106. 
107. 
108 . 


60 THi:TzT»r1-.02'»CITHn L 

60 TO 55 L 

65 TIICT = THET'*.02*»>THFT L 

60 TO 55 L 

70 OYDXO (K>1 U-T0NC 3 ,D*THCT f L 

ALPHMH+ 1 ) = -3.C*THET L 

CAPPAtKM »=3.P*SQPH S]N«2.D9TMET) /2.:J)/A L 

OS^DLLS/SOPTn.C+ABSlCAPPftlKMm L 

!»■ CAPSlDS-DSSAVr l.CT ..25*DSSflWE » OrpOSSAVE+OTONl ,2 5 ♦TSS AVC ,05-DSSL 

lAVn L 

OSSAVE=DS L 

OTHET=OS«SQRT «SIN t2.?#THET 1/2 .0 »/R L 

TltET=THET«DTHFT L 

IF ITI1CT ,LF. THLTMX) GO TO 50 L 

IF 1K0UNT.GT,5D> GO TO 95 L 

DSTCST=« IXONl k*l )-XTr^’3M**2* >¥ON(K-tl»-VlN( 3>>#*2 .= L 

IF IDSTCST.CT .05 I GO ID 90 L 

IF (DETEST. UT.. 00' GO TO 75 L 

IF (0STE5T-.D90S J CG,0S|.0O L 

75 yONCK^n =V',Nt31 L 

XONCK *n^XIN t3) L 

GO TO 95 L 

80 orLS=DELS~nS rEST/rLOAT(K-*l-KSTART » L 

GO TO 25 L 

85 DrLS = DELS-'nSTEST/rLOAT(K + l-KSTARt ) L 

CO TO 25 I 

9E DFLS=.8«DEL5 L 

GO TO 25 L 

95 DELSl=DS«rl ,2 L 

IF TDELSl .01 .PELS I DFLSI=DELS L 

WRITE (6.115IK0UMT,TMETPX,A L 

WRITE (6,1?C HIELSIN.DELS.OELSI .PSTEST L 

KEN0=K*1 L 

KSTART=KSTART+1 L 

IF IY1N(2).E0.YIN{1M GO TO 105 L 

DO 100 KR0T=KSTART,KEND l 

XN=XON<KROTI L 

XON(KROT):XfJ«COS ( ARO T H YON 1 KR 0 T 1 «5 1 M ( ARO T1 L 

YONIKROT l=YONlKRQn*COS( AROT )-XN*SIN<ARQT) L 

ALPHA IKR0T(=AU'HA (KR0T»-AR0T L 

DYDXO»KROU=TAN( ALPHA (KROI ) ) L 

ICO CONTlNur I 

1D5 DO iir « AL^KSTART.KFND l 

no ALPHA JKAL) = ALPHA ( KAL ) /PJOJeC L 

RETURN L 

L 

L 

115 FORHAT 13X,I 3,2X, 13H1 TERAT10N5 , 3X, 1 3HTHE THXCAL C = ,F10.5,3X ,PHAL 

ICALC = ,F1D,5) L 

12C FORMAT tSX.lOHOELS IN r .FB . 5 , 3X , 7 HDEL S s , F0. 5 , 3 X , 1 UOELE OUT : ,L 
lFfl.5,3X,9HDSTCST - ,Fe.5> L 

END L 


0560 

0G7C 

2580 

CS9Ci 

06 co- 
ot It) 
0520 
0( 3L 
06 90 

06 5C 
06 60 
□ 6 70 
C6 0O 
3 69C 

07 00 
0 7 10 
0720 
0 7 3D 
G790 
0750 
0760 
0 7 7D 
0730 
079C 
0800 
OB 10 
0820 
CB30 
O09r; 
0 8 50 
CS6C 
:87C 
0880 
0890 
0900 
09 K 
0 920 

09 30 
0990 
09SC 
0 9 60 
0970 
C9 80. 
0990 
IT 00 

10 ID 
102C 
1030 
109D 
1050 
10 6C 
1070 
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19' 

1. 

FUNCTION LIMIT U ,J,K J 

X 

00 OQ 

2 « C« • • 1 

..INTCGFR FUNCTION LIMITS J OFTUCfN I AND K, 

X 

DO 10 

3. 

LIM1T=I 

X 

0020 

<t. 

IF IJ.LT.UMin RCTURN 

X 

□ 030 

S. 

LIMIT=K 

X 

0090 

6 • 

IF TJ.OT. LIMIT) RFTURN 

X 

0050 

7. 

LIMIT=J 

X 

00 60 

e. 

RfTURN 

X 

00 70 

9. 

LND 

X 

0080 





SUBROUITNE WIRROR tN.YCtI 


SO.SHIR 

1. 

2 . C 

3 . C 
*t.C 
5 .C 
^ ■ 
r. 



I . 
i • 


>• 

r. 

I. 

». 

i!c 


s. 


05 ttfct 77 

M* bi 


THIS SUBROUTINE MIRRORS THC HUB 10 OBTAIN THE P 0 IN 7 S ON SHROUD 
USED FOR 22 T - 2-0 INLETS 


COMHON /FOR 3 SS/IO,DELS,XBK« 23 I.TDK ( 23 » .KONI D 3 3 » , 7 ONI BOO t .OYDxUlSDD 

1 l»»LPHM 5 QOI ,C»PPMS 00 I.S 0 NI 5 DD),R 101 BD 

COMMON /S 5 / MBD 71 ,MB 00 V 2 .TYPBDV,NBDVS 
DO ID jri.NBOYl . 



I 5 T*R= 1 * 2 *NB 0 Y 1 -K 


XON(K)=XON(ISTARI 

YONIK>= 2 . 0 »VCL-YONnSTOR> 

CAPP*(KI=-C#PPAIIST»R 1 

DYDXOIKt=-OYDXO< ISTAR t 

alpha (K l =-ALPHA ( 1 STAR I 
S 0 N(K»= 50 N( 1 STAR) 

10 CONTINUE ■ 

_ yPITE (SilSlVCL 
RETURN 

15 FORMAT l 3 RH 0 >UiFMIRVdRETTNTb Y CENTERLfNE“"= ^WtSl 

END 


M Cl 

M 01 

M I 

M ; 

M 'I , 

M g_i 

I 


M " 

iL __i 

M ■ I 

M I 
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1 9 

1. 


SUOROUTINE PLOXI S « X.< , Y¥ .EXEPt ORO ,0f SET A ,OFSF. F ,SLETRS .SNOSZ ,K5 ,K6 , 

KZ3 

0000 

z. 


l.L.NK.NLI 

23 

0010 

3.C 



Z3 

00 20 


0030 

5.CXXXXXX SUnROUTINC *qOEO TO DRAW ANO LAOEL AXIS TRAHCS FOP AU PLOTS 

XZ3 

0090 

6. 


COHMON/TITL/ TtITLJ9,6r 

23 

00 50 

7. 


UP =1 1 ,*-YY-2.,*SN0S2 

Z3 

0060 

B, 


HirXX 

23 

0070 

9. 


H2=YY 

23 

0080 

10. 


CALL PL0Tt9. ,-H , ,-3» 

2 3 

0090 

11 . 


CALL PLOTFO. ,UP,-3J 

23 

0100 

12. 


DO 25 1=1, Mi ■ 

23 

0110 

13. 


X = 1 

Z3 

0120 

19. 


P=CXEP9X tOFSFTA 

Z3 

0130 

15. 


CALL PL0UX,C.,2) 

23 

U190 

16. 


CALL PLOTfX, .2,2) 

23 

0150 

17. 


M = l/2 

23 

0160 

la. 


OrFLOAU H-FLOAT (Ml -X /2. 

23 

01 70 

19. 


IF (Dt 10,10,25 

23 

0180 

20. 

10 

IF (K5 ) 15,15 ,20 

23 

0190 

21 . 

IS 

CALL NUMBER tX-SNOSZ, -SNOSZ-. 10, SNOSZ,P,0 . ,NK» 

23 

0200 

22. 


GO TO 25 

23 

0210 

23. 

20 

SN = 1.3339SN0SZ 

Z3 

0220 

29. 


CALL NUMBEn(X-SN05Z-SNOSZ,-SN-SN0S2-. iO,SN,lD. ,0. ,-l ) 
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B 

0070 

9. 

COMMON /FNST/ NFIRST 

B 

ODBO 

TOT 

COMMON /NHICM/ NSPHG,NLAST,XLASTT500» 

B 

0090 

11. 

KFIRST=X 

B 

0100 


— rrrsrmTJTZT^irrTMTT" 

B 

01 ID 

13. 

VTE5T=YIN»21-YlNn> 

B 

0120 

19 . 

“ir“rmsr.E'07D,3TTrD~T(rT3 — 

B 

31 30 

15. 

DY0XC=Y7EST/XT£ST 

B 

□ 190 

T5". 

Al'PH aT = A‘TAfr<YrEST7x T E 51 » 

0 

0150 

17. 

GO TO 15 

B 

0160 


19. 

— "*2 ore • 

21 .C 

22.C 

23, 

24;- 

25 . 

yg - * 

27. 

— za, " 

29. 

— 3 n. ■■■*■■ 

31 . 

32. 

33. 

" “34“. - 

35. 

36, ■■ 

37. 

"* '38. 
39. 

■ <t O'. ■ ■ 

91 . 

-4*2V‘ - 

93. 

95. 

~ iiS\ ' 
97. 

4-g;--' 

99. 

— 5‘a; ■■■ 

51 . 

g-y,- 

53. 

5-4-.—- 

55. ' 

56. 


*IPH*C=P102 


3 iep 


CALCULATE DELSNU 


D19Q 

D200 


15 


20 


SToT=SORT fXTEST**2*VT EST*«2 ) 

“A ND5'±S TO T /D EI ST 

AINDS=AINTI ANDS) 

-TEST^ANos-ATfres: ^ 

IF «TrST,OE..Sl ATNOS=AINDS*1,0 

DCLSNWrSTOT/ATtiDS 

DELSNW^ABSTOELSNW » 

'DFL'S 1 rDEL'SVU ' “ ' 

DCLSrDELSl 

ir (YTCSTI 20,35,20 

rr IXTEST.EO.G.Ol CO TO 50 

■ DYDXOTK*! J fDVDXC " *'■ : — 

ALPHATK+n^ALPHAC _ 

IF UTE5T.lt. O.D) STGN = -1.0 
YONl K ♦!! -VONU) ♦5TDN*0CLSNg *ST NT ALPHA (KVT FT 
IF (NSPHG.tO.O) GO TO 25_ _ 

' X0N(K«1 l=XONTfiLA'ST'-Tr' ' 

KLAST=NL AST-1 

“50 TO '33 ■ 

XOi((K*l» =XONtK)«SICN«DELSNW«COS ( ALPHA U< lU 
50Nf K* 1 1 =SONLhT* S ORT ( TVOW Tk ♦TT-ToN'f R > l **2+ t YON 
CAPPA U*1) = 0.0 

"ir rjCTEsr.urvo.D .■AijDixoNVi<« i r.TiT.xiNrz j ; oT.T(Te 

ni.GE.XIN(2n GO TO 55 

" ■•'ir'rARST XONTK ♦T> -xI-N C ?) j .LE /r;iDr-R*e'a-S7SfTDTA5 
1C.1.0E-9*DEIS1 GO TO 60 

'"■'K=K>1 

GO TO 2D 

35~DTD«o<Kvi r=o:t5 

ALPHAfX»l»=G.D 


'35 


Lk+Tf- 

ST.Gt; 

Til' Vo NT 


Y'0NTkTri«2»' 

c.‘o. 

K^n 


B 

B 

"B' 

B 

D 

B 

B 

D" 

B 

B 

•r* 

B 

■ 'b '' 

B 

B 

B 

B 


ANO.XONU + B 
B 

-vTNrfi) .LB* 
B 

' ~B ' 

B 

B 


0210 
0220 
“tJ2 3n 
0290 
DB'SD" 
3260 
'Q'2 T6" 
0280 
0290 
0300 
"0310 
0320 

TDTO"" 

0390 

■"3T5if 
0360 
■ysTff' 
03 80 
■ 33 9iT' 
□ 9 00 
09 10 
DM 2D_^ 
09 30 
3 9 90 

d'm'bd' 
3960 
13 4 70' 
3980 
'09 90' 

05.01 
"ds io ■ 

0520 


SlGNrno 

IF TXTEST.lt. D.D» SIGW=-1.0 

TF rN'SPN'6*.'tQVor*'5o'To''9 0 ' 


B 

B 

"tj" 


3530 

0590 

T.'i'SO" 



S7, 
^8. 
59 "." 
6J. 
It t, 
62. 


X0N(K-*1)=X0N«NL6ST-J ) 

NLAST=NLAST-1 

To' To Tn ' ■ 

'(0 XqN(K<l)=XONtK» + Si6K«DCLSNU_ 
95 Y0N<K + n=V0Ktkl 


SON<KtlI=SONrK)*SORT< tXONt K ♦ 1 > - XON t K ) < Y ON < K ♦ 1) -• YON ( K > >*92) 

CAPPAfKUJsn.Q 

rr t XTCSI .LT .P.O. AND. XON»K*n.LF.XI Nt2I.OR .XTESr.GT. G.D. AHD.XONfK*B 

11 KGt .Ti'n( 2 I r GO Td~Ts fi 

ir <Ans (xoN(Hn >_rXL^ 1 ^dcl s. and .ahsiyoni k*i t-yim ? n . lb 


1L.1.0F-9O0ELS) GQ TO 60 
K=8M 


60 TO 3'i 
50 DYDX0TM1U99999. 

" ACpfi A Tx ♦ f r= P i‘ 6 2 

SIGN11(,1 ^ 

if ”( vTesT.TT. p.IjT sf6K=-T b" 

XON(H*l>=XON <f<) __ 

" “""VONT K + il ryON'i K ) +"S TG VS OELSNU " 


SOM hi 1 ) =SDN C KJN S OR It jfXONJK + 1 ) -XOW < K) > ^ 2t (yONTK* 1> - yON > h ) ) 2 ) 

'CA"PPA'<'X*15=cTc " ' ' 

IF <VT r.ST. LT.r.3.AMD.YOAMH*U.Lr.yiAH2 I.OR.YTEST.GT.P.J. A^f).yON(K*B 
Tlt.Gt.'YlN(2»l'GO'T6 '5 5 ' ' , ^ 

IF (APS(X0N(K«1J-XIN( 2»l ,LE . 1 .DF-M OFIELS . AND . AB5 ( y ON ( K *1 ) -Yl N( 2 I I .LB 

TF'. l.TT-CfrOELS ) GO'TcT'GO ** ' ' ■ ' B 

K=K+j _ D 

fiq 'TO '50'"' ^ ... ^ 

55 IF I APS I Xq^lK+Jl<-XINS 21 > . LE . 1 . 0E“3 «DEL5 . AND . A B S ( VON f K + 1 ) "V 1 N( ?» > .LB 

rE.irOF-jTDEL'S) GO TO 6D‘ ' ' D 

, D 

*60 K=Kil *' . ^ 

DC 65 XALrKriRST.K li 

6B TlPHA1KA'L) = ALPHA'( KAL I """ ' B 

HCTURN B 

■■■'Cnb' ' ■“ B 


0560 
3 5 70 

□ 580 
059D 
36DD 
0610 

□ 620 

□ 630 
3690 

□ 650 

□ 660 
0670 
C68D 
3 6 90 
C7C0 
D71D 

□ 72G 

□ 73D 
0790 
3753 
0760 
3 7 73 
0780 
3 7 90 

□ 000 
3810 
0820 
CB3C 
3B9D 
OS 50 
D86C 
□ 870 
CBOD 
3 8 90 
09CC 




‘TOT^PU Cff'C • ~ ” Q7 

OCl 76 

1 3 

1. 

SUBROUirNF SUPCRC « X8 RK , Y0RK .ENRECD.OELS 1 ,1 St ART 1 

H 

0000 

” 2. 

Dl>iri<isl6N"EN»rEDt?) 

H 

0310 

3. 

DIMENSION XBRt(t6l, TBRK(6I» KBK1(13>» VBMK13I 

H 

0020 

^ • 

CtiAL lo 6T('5J ttocy ofi" 

H 

3D3D 

S. 

COMMON /SURF/ IFLD 

M 

0D40 

b • 

COMMON /F0R3SS/1D .dels »XBR 123 t . YQK <20 1 .XONI 533 1 . VON < 5 COI .DYOXOCSOOH 

0050 

7. 

1 t.ALPHAt SOD 1 .CARP A< soot .SON 1500 t.PlOl 60 

H 

0060 

S'; 

C0'm1i()N 7SDPN/ X0AI2I .V0B<2) tL05X0A<2I.L0GV0B<2t 

H 

D07D 

9. 

COMMON /NMIGH/ NSPHS, WL AST , XL A ST 1 5CD t , YLAST 1530 t 

H 

3 3 00 

• — rr.' 

COMMON/SENSEV XB 1 2) , Y B< 2 t , A .8 . INFLEC 

H 

0090 

u. 

COMMON 7SPREP/ RPREP 

H 

0100 

•* — I?;’ 

1 (iHH'oi'i7trMrrT ace vrifirJTflE 

H 

01 10 

IS. 

COMMON/TRYFl TFKOUNT 

H 

0120 

— n» 

1 PI = O' 

H 

3130 

15. 

PI=3. 14159265 

H 

0140 


rr~Trrar,feo;i rwLSHr=DELsi 

H 

0150 

17. 

0ELSIN=DELS1 

H 

0160 

IS. 

tnrnTH-DTTST ^ 

H 


19. 

KODNT-O 

H 

0180' 

2BT 

— icrn=r5TART 

H 

0190 

21. 

IF IIFLO. riE.lt DS=0ELS2 

H 

3200 

~—22^ 

~K0UNT=KDUNTTI * 

H 

0210 

23. 

I=ISTaRT 

M 

0220 

•— “TH. 


H 

3 2 30 

25. 

Y4T-YBRKI4t 

H 

0240 


rrm IT tor suHsrauEKT TTrmTowsTniiirTP nTTKiri An'miofu 

H 


27. 

IF MLL.GE.5.0R.LL.LT .-5 1. AND.XOUNT .NE .1 t GO TO 50 

H 

0260 

'•'’"-2-8T 

L't’=T3 

H 

3270 

29. 

CMim FLAG FOR ENDPT. CURVATURE MATCH IS YBRKI6I=2DD. 

H 

0260 

— 3tr.' 

i F ^ Vn kK lb]'~2DQtk 4pil5t^D 

H 

0290 

31. 

15 CAP=-ABSIXQRKl6t t 

H 

0300 

■ — rzi 



H 

3310 

33. 

ir (XRRKI6I.NE, 999.1 GO TO 50 

H 

0320 

'“•tit; 

" ■■ir~TXBRRr3i.Mr.snBPinnmjC"'T0 20 ~ 

H 

D3 3P 

35. 

CI(H(I IF THE PT. UHERF CURVATURES MUST MATCH HAS INFIN. SLOPF, 

H 

03 40 

36i;CfTirn TIHT*ITr^CDF3fATUni; FFTOrTTPlVTOUE SEtMCNT^S EKPONeKTS . 

H 

'"63 50' 

37. 

IF fxeP«l2I.NE.XeRK(lII GO TO 25 

H 

0360 

- JB,‘ 

■ CC=-B — 

H 

3 3 70 

39. 

CAP = -2 .•A/XB C 1 )/B/D 

H 

0380 


etTrO' 55 

H 

0390 

41 . 

20 IF IXPRKI 5I.NE.XBPM4 11 GO TO 25 

H 

3400 

— V27 


H 

04 10 

43. 

CAP=-2.AA/xei ll/B/B 

H 

3420 


«*«•. • TO 50 H 



25 

ir<XBRK»6I.E0.999.)Xf|RKC6t- 

CAPPAIISTARTt 


H 1 



TF^IXBHX I61;E0.0. .or. ABSCKBRKIGIl . 6E. 99999. > BO 

TO 3D 

H 1 



CAP=-A85IXBRM61 t 



H i 






H 

49. 

3C 

WRITE I6,35t 



H 

snr; 

51. 

35 

rORMATTTHC73X,99H REQUEST FOR SPECIFIC CURVATURE MUST OE 
IR WITHDRAWN. DESIRED CURVATURE CAV»T=0. OR INFINTYl 

MODIFIED OH 

H 1 

— 5'zr 


STOP 



H 

53.CfllM< POIMT-PLUS-SLOPE FLAG IS 

YBRKI6I= -100. 


H 

■54. 

*IC 




M 

55. 

US 

LL:^ 5 



H 


56TCr<T<« ( ADDITrORiarTLAB n>"R“rRrLECtl0N-P01NT-PHJS-Sl.0PE is YBRK»3t= lODH 




> inVBRK(3|. cowoo. » LL=& . H 

.CICMlfOR IflXTlAL GUESS OF UNKNOWN Y »l INFLECTION POI N T ,U S E CNDPT . AVG.H 


• inLL.EO.61 YPRK(3I= YORK 1 2 1 * I XBRK ( 2 )- YB RK I 3 1 > / f X DRK ( -XBRK I *« ) ) * ( H 

. lYBRK<4»-YnRK<2M H 


.CfIMII CREATE A DUMMY POINT TO SIMULATE THE GIVEN SLOPE THROUGH H 

.C fX8RKI3l .VBRKmi H 


. YBRK(6>= XBRK (6|i»{(XBRK(3l«5«T-XeRKm) *YBRNI3> H 

. XDRK(6I= XBRK(3t*S^ 


> SO DO 55 J=l|6 H 

. XBKH J47l=xnRK<J| . H 


. YBKH J»7I=YBRK«J» H 

. 55 CONTINUE H 




SL0PE=99999 . 
AT0YD0=90, 


CQSftTO=3 .0 
GO TO 60 


60 SL0P=-99999. 
SINAT0=-1.0 


SL0PE=-99999. 

ATDYDP=-9D, 


TiTortliBil 


GO TO 83 


5L0P=(YBKl(9>-YBKnBI K f XBK 1 ( 9 T-XB K 1 1 8 ) I 

SLOPE- A T ANtStOP I 

ATDyDO=SLOPC/PlD193 
IF (XBKl (ej-XDKI (9)1 7D,75t75 
70 SLOPE -PT* SLOPE 
ATDYDD=~ATDVDO 

OTW 

75 SINATD=SIN(SL0PE) 


COSATO=COS(SLCPE) 
eo CONTINUE 


INFLEC = ABS(INT(SINATOn 
XBK(8)=XBK1(8) 

VPK(Tr=YEKH8l 

DO 65 J=9,13 

XP^XBVwc J)-XBK1( 8I 

yp=ybkh j»-vDKi(e) 

X0K‘( J)=XGK 1 (8 )*XP«C0SATO*YP'S;riNATD 
VBK( J)=YBK1 (6 )-XP4SINATtUYP*C0SIT0 


85 CONTINUE 


XBK(5)=XBK(G) 


V FKJ^) = YJJK ( e ) 
X'BK(6 >=XBKl*9 )" ' 
YCK(6)=YBK(9 ) 


XBK(9 )=XBK( 10) 
YBK(9 )=YBK( 10 ) 


0FLS=DELS1 

D^SaVE^ELS 

XTM="XBKU9) 







niT. ' — *~~yth=?dk n'§T“' — ^ — 

115. 

'116 . TiSVffK » n i =V¥KT6T 

117* TOm:GA=(XRKU?l>-X|iMl 1> 121-VDKU) M 

“no . ''•rr'i iro-sTtifflcirA i . ic; . o ooYt tonE6'/r=o" 

119. OKCCA^ATANUOHCGA I 


VCsVOKnil 

A=XO'*ABK(ll I " 

XT9=XQ-XBK<9 » 

" rTI^fTCPTBK 19 1 ^ 

TB(1 »=CTA9 


XB»1 l=XI9 

Xei2)=X3-XBK « 13l-lC!!1f:CA*<V0-VBKI13ll 
■ finTTSy'D - V inTTTTi 

BOA=D/A 


(LL.GT.Sl GO TO 90 
IF ILL.LE.-6I GO TO 1C5 
LL=D 

ir«ENREED(H .GT.D.I P=ENREEOm 

rrfe'fjprE'DT2VrGT . om q^enrecdizi 
ir<P.E0.1.1 LL=1 
IFfO . FQ. 1.) LL=LL«2 
IF UL.EQ.'JT go to 115 

9D ■yOATI.TSX'BTnTTS ^ 

YOBU T=YSn t/P 

CogTo fli 1 T : At (Tfirx'eX'fiT') 

LOGYOPU l=ALOGtYOO< I » I 

“ — jfr- -( y pRTrti rro', oT.'A"^ ;rfrrr'5^Tr'so“ to" 95 

IF «LL.NE.'3I GO TO 100 



T0B<?l=yfiI2I/B 

rOGWA t ■£ T r A C O G < K'O A ( 2 TT 

LOGVOtH.l>=ALOGIYOP(2> » 

' GO TO I'OG 

95 l.L=»t 

— rcD' t Alt •roNTSGir.'o ,'tn 

GO TO 115 

cn n'( ( FOP cuPVATURE TiArc>rr”ND 'itetta 1 1 ON R nsonur wr* 

105 IF(XOPK(3J.EO.XI3R«(2) |P = 2. 

IT (x8Pi« 1 3 1 ;r6'.i(ffPK'iTn'Q‘r2~ ^ 

C(«M({ OBTAIN OTHER EXPONENT FROil ENDPOINT CURVATURE RFL 

1 rir irip 'VEtfrr/r~~ Q ~ -" ~Tr » F / rAr?'A7r — 

IMO .EO. 2. .AND. P .NE. 2.1 P=-2.*A /C AP /B /8 

• 115’ ir rKouNT.Nxrn~iro“TrTT!r — _ _™,.. 

WRITE <6 ,975 IP.A ,XO,Q , B,YQ, OHEGA 


135. 
ITS ; 
137. 
130.' 
139. 
I 4'OV 
191. 
‘IliS. 
143. 

'iTi4“: 

145. 

146. 

147. 
T4B. 
149. 
T5d: 

151. 

152. 

153. 

154 . 

155. 
T56. 

157. 

158. 

159. 

160. ' 
161. 
162, 
163. 
164 . 

165. 

166. 
16 V. 
168.' 


Em'Htpr 


A T ION 


H 



H 

H_ 

H 

H 

H 

H__ 

H 

H 

H 

H 

H 

H 

H 

___ H 

H 

FT” 

H 

wsr^^TT* 

H 


1L0=I 

)f ofj (I » =x:o«'rrn : — 

C10N=1 ./P 

■“ BT=BATOMEGA ■ - : 

DX1=DEL5*C0SATD 

-JiPrXTM-xBKrffl'T 

YP=YTP-YBX1 (3 J 

“ XTIPO T =X C'M 1 T8' > ♦ X p 90 oTS f P ♦ Y P*> S I N aTP*" 


0 

1320 
1330 
1340 
1350 
13 60 
“13 70 

13 80 
■"13 90 ' 

1400 

14 10 
14 2 0 

“l4'iCi"" 

144D 

TCsg™ 

14 60 

14BQ 
TWO"" 
1500 
T5T0 
I_5 2^ 
■“15'3D ■ 
1540_ 
"1S5C ' 
15^0 
T5*'7D' 
1580 
■■'15 90 ' 
1^D0_ 
*16 10 
1620 
TS'JO' 

1640 
16 50 
1660 
16 70 


169, XI-KO-XI IROT H 1680 

170. Y=V0-VBK<6» 1690 


171. 

X=X1-V910ME0A 

H 

1700 

172. 

ir fX.LT.C.D) X=0 .0 

H 

1710 

173* 

OSMrsONn »-s6nu - n 

H 

17 20 

17<*. 

125 XOATON=IX/A»*«P 

_ . H 

1730 

175. 

roBTON=i v/n »*90 

H 

179D 

17&.C<MHI AVOID (,LC. D.U*(.t,r. 0.1 

H 

17 50 

177. 

ir IP.GE.l.) GO TO 135 

H 

i?6D 

178. 

ir (X .NF.O. ) GO TO 13C 


1770 

“■179. 

XNHDAN-99999 . 

H 

17 80 

ISO. 

GO TO 190 

H 

179D 

18) . 

13C XNM0AN = < i./Xl^iMi .-PI/A««P 

H 

1800 

182. 

GO TO 190 

H 

1810 

1B3. 

136 XNMOAN=X**iP-l , ) /X99P 

H 

182D 

let. 

190 IF IG.GE.l. 1 GO TO 150 

H 

18 3D 

185. 

IF (V.NE.O. i GO TO 195 

H 

1B9C 

186. 

tNM0BN=9999. 

H 

18 50 

187. 

CO to 155 

H 

1660 

188. 

195 VfmOBN-tl./V»«-M1.^3)/B4+0 

H 

1870 

189. 

60 VO 165 

H 

ieso 

190, 

100 yNMO0N=Y*#(0-l,l/B«O0 

M 

1890 

191 

155 FOFY=XOATON* VOTtON-I , 

H 

1900 

192. 

IF (APSlFOFV l.LE . l.CC-51 BO TO 160 

H 

191D 

193. 

f P0FY = Q» YHHOBN-T OMEGA tP'iXNHoA*) 

• H 

19 20 

199. 

yncu=y-fofy/fpqfy 

H 

19 30 

“1TS7 

GO TO is S' 

H 

1990 

196. 

160 YNEW=¥ 

H 

19 50 

197'. 

165 ir (ABSfv-YNEWl/VNLW-.lF-tl 175,175.1 '70 

H 

I960 

198. 

170 Y::VNEW 

H 

197E 

l99r 

x=xi-y*toheda 

H 

1980 

200. 

GO TO 125 

H 

1990 

itJT. 

■"ns Y = YNEW'"' - 

H 

2000 

202. 

X-XI-Y*TOMEGA 

H 

20 10 

^2rm7‘ 

18C irtA = Y 

H 

20 20 

209. 

DrLS=nELS? 

H 

2030 


” 

H 

2090 

206. 

ir (X .LT.C.OI X=D .D 

H 

2050 

207.Clt(ttt AVOID I.LE. O.IOtl.LC. 0.) 

H 

206D 

i'08. 

if (P.6E.1.) GO TO 19E 

H 

20 70 

TGTT 

IF (X.NE.O. 1 GO TO IBS 

H 

2080 

210. 

X0ANM1= 99999. 

H 

20 90 

211. 

GO TO 195 

H 

2100 

212. 

les XOANHI“fA/Xl**n.“P) 

H 

2110 

“mrr 

60 To l95 

H 

21 20 

219. 

190 XOANMl=tX/A U«(P-1. 1 

H 

2130 

“?15. 

195 IF fO.GE.1.1 GO TO 235 

H 

2190 

216. 

IF tY.NE.C. 1 GO TO 200 

H 

2150 

217. 

Y0BNM1= 99999 . 

H 

2 1 60 

213. 

CO TO 210 

H 

2170 

219. 

2C0 Y0BNM1= »D/Y1«9(1.-01 

H 

2180 

220. 

GO TO 210 

H 

21 90 

22TT 

205 Y00NM1=IY/8)99(Q-1.) 

H 

2200 

222. 

21D F1=IX0AN«1/A lop 

H 

2 210 

223. 

F2=( VOBNMl/B )«Q 

H 

2220 

229. 

F3=T0HEGA9F1 

H 

2230 

225 

IF IX.EO.0.0) GO TO 225 

H 

2290 

226. 

IF IP.GE.2.) GO TO 215 

K 

2250 

227, 

F10X = P->f l./X)A9( ’.-PI /A««P 

H 

22 6C 



— '*2Trr" 


GO TO 220 

H 

2270 

229. 

215 

r 10X=P9X*«lP-2. »/A**p 

H 

2280 


'753' 

GO fo 230 

H 

2290 

231. 

225 

lFfP.EO.2.) F10X=2.0/(A*At 

H 

2300 

*ZT2.“ 


IF«P.Y,I,2.? F10X=0.a 

H 

2310 

233. 

230 

IF tv. CO. 0. Cl CO TO 290 

H 

23 20 

— 23 d.'" 


■■ir~ro7WT7rrTr&~7TrTy5 

H 

S33D 

25S. 


F20V=0*t 1 ,/r 1**1 2,-01 /D**0 

H 

2390 

^ 36* 


WfiTTAT' ■ ' * 

H 

2350 

237. 

235 

F2OT=O*V**t0“2, l/0**0 

H 

2360 

— Z3BT"' 


■7571“ T Cl 2TT5 

H 

2370 

239> 

24D 

1FI0.EQ.2,) F20V=2,/< D*BI 

H 

2380 

217(17“ 


If 10. ET, 2.1 F2oV = 0. 

H 

23 90 

2M. 

2M5 

DEN=F2-F3 

H 

2900 

ivn 


"TV IDCN.NE.O.dl GC TO 250 

K 

2 9 10 

293. 


DETDXI=99999. 

H 

29 20 

jTtr: 


60 TO 255 

■"h 

29 30 

295. 

2 5D 

OETDXT--F1/DEN 

H 

2990 


2 56 

uVdxoiIpni-detdxi ^ ^ 

H 

2950 

297. 


C1MEPT=1 .-DETOXI*T0MEGA 

M 

29 60 



IF lIPfifrEonirTABl .AN0.LL.LE.-6I CO TO 260 

H 

29 70 

299.Cftll<( ELIKINATC CASES OF UNDEFINED CURVATURE 

M 

29 80 

mrnmiwm 



H 

2990 

251 . 


IF tT.E0.r..*NO.O.Ef .2.J GO TO 265 

H 

2500 

ZF2". 



H 

2510 

253. 


SAN01=DEN«G1 

H 

25 20 

— ZTc: — 



H 

2530 

255. 


IFtABStDETDXII.GT.l.E IIT DETDXT=1,E 11 

H 

2590 

Z 56 « 


' 6kt=I 1 .♦OETDXI**? I** 1 .5 ^ 

H 

2550 

257. 


CAPPA UPNl=t SAN02-SAND1 »/0EN**2/BMT 

H 

25 60 

— 2Tjirr 


ifip.Eo.2.. AN0.x.F0.0'.JC*PPA'nTNT = -5.*£j/Q7f/A 

H 

?57ci 

259. 


IFIO.F0.2,.AND.ABStT 1 .LT.l.r-9lCAPPAtIPNl:~2.*A/p/D/a 

H 

2580 



"CTPrcr 27D 

H 

2590 

261. 

26D 

iFtP.EO.a.lCAPPAt IPNl --2.*B/Q/A/A 

H 

2600 



i > 1 0 . t 0 , 2~, T c a”PPA t iPN 1 -~2 .* A / P/B/0 

H 

^6lO . 

263. 


GO TO 270 

H 

2620 

wmrmim 

2 65 

rffPPAMPtt r=9T97fT; _ 

H 

26 30 

265. 

2 70 

Al.PHAIIPNl::ATANIOYDK0(IPNn/PIO16D 

H 

2690 

— ZEST" 

^rwrrPNmfD^i ^ 

H 

2650 . 

267. 


rONIIPN)=V2-ETA 

H 

2660 

■■NEiidnH 


■ Dvl=OTiL?*SlNA'1'D 

H 

26 70 

269, 


IF tIFLD.GE.lI GO TO 275 

N 

2680 



S5=BII3/ 1 1 2d * T A N H ( A B S t C A P P A 111 I H 

H 

2690 

2 71. 


GO, TO 2B5 

H 

2700 

-~Z7Z. 

‘77r 

If TIFlD.GI . i J ANO.flPN^JSTAPTT.BT.Sl GO TO 280 

H 

2710 

273. 


OS=DS-PACE*DS 

H 

2720 



Go TO 290 

H 

2730 

275, 

2 80 

DS=DS*1.5*PACC*DS 

H 

2790 

'~2 rr. 


"IF (08 iSTTDCLSHll D^'-PELS.’Hi: ^ 

H 

2750 

277. 


GO TO 290 

K 

2760 

^TB. TT55^mnT5TDS-DEX31 .GT, . 2D90ELS> DS=DEUS*S!5N( .23*0ELS, DS-DCLS 1 

H 

2776 

279. 

290 

IF sOS.lt. .C2*DCLS2» DS=.02*DEL52 

M 

2780 

~rso'. 


~TT TTrnn‘ETrD.A^D".tl-lSTARI»,GT.20DT GO TO 91D 

H 

2 7 90 

281, 


IF ^NSPHI.EO.O) go TO 295 

H 

2800 

2 S 2. 


OXl=A(JS( XLA'5T(NLASTT-XLASTINLAST-1 ) » 

H 

2810 

283, 


0X11=0X1 

H 

2820 

-289. ■■ 


DYl = AT8 T YL A S T f NLTf8TT^l'Cl’8TimTS T -T TJ 

H 

' 2830 





265. 


WL»SI=NL«ST-1 

H 

2840 

286. 

295 

IF UBSIDEtDXI l~! .» 323,320,300 

H 

2850 

287. 

300 

OY1=OS/SORTU .♦! ./DETtl»(l**2» 

H 

2860 

288. 


IF INSPHG.NE.Ol DYirOXl 

JL 

28 70 

289. 

3C6 

YT«=Y0HU J♦0Y1 

H 

2880 

290. 


IF lYIM-VBMlin 310,390,390 

H 

28 90 

291. 

310 

ET8=Y0-YTM 

H 

2900 

292. 


V=ETA 

H 

29 10 

293. C 



H 

2920 

299, C 


STRAIGHT SECTION tlETWCEM POINTS 11 AND 12 MUST HAVE SLOPE ABOVE 1 

H 

2930 

295. C 



H 

2940 

296. C 



H 

2950 

297. C 


X MAY NOT BE TESTED AGAINST XBKIll) 

H 

2 9 60 

298. C 



H 

2970 

299. 


X=A*I1.-(Y/BI*90I**C10N 

H 

29S0 

’lOD. 


XI=X*Y*T0HC6A 

H 

2990 

3Q1. 


XTM=Xr-XI 

H 

30 00 

302. 


OXl=XTM-XONn 1 

H 

3010 

“3^TT~ 


OELTAS = SORT(DYi*'»2«DX 1**2» 

H 

3020 

309. 


IF (DELTAS. CT.l,O2*0S. AND. IPN.NC.l .AND. NSPHG.EQ. 01 GO TO 315 

H 

30 30 

305. 


GO to 390 

H 

3040 

306. 

315 

DY1=DS*DY1/DCLTAS 

H 

30 50 

307. 


GO TO 305 

H 

3060 

308. 

320 

DX1=0S/SQRT( 1 .+DET0X1 **2l 

H 

3070 

~^09. 


IF INSPHG.NC.QJ DX1=DYI 

H ' 

30 BO 

310. 


IF (NSPHG.NE.D.AND.IPI.EO. 1 ) 0X1=0X11 

H 

3090 

311. 

325 

XTM=XON( I )4SIGN(DX1 .DETDXTJ 

H 

3100 

312. 


IF (OETDXI.EO.D. ) X TM =X 0N( 1 1 -OX I 

H 

3110 

313. 


XI=XO-XTH 

H 

3120 

314. 


Y:YD-¥ON(n 

H 

31 30 

315, 

3 30 

X=XI-Y9T0HEGA 

H 

3140 

316. 


IF (X.LT.D.Dl X=0.0 

H 

3150 

517. 


XOAtON=( X/A)^*P 

H 

3160 

318. 


VOBTON = ( Y/B t 

H 

31 70 

319.CMU(t «wniD (.LE. 3.I**(.LE. 3.1 

H 

3180 

320. 


IF (P.6E.1. 1 GO TO 34 C 

H 

3190 

I2"l. " 


if (X.NE.O. > GO TO 335 

M 

3200 

322 . 


XNH0AN=99999. 

H 

3210 

'323. 


60 TO 345 ' 

H 

32 20 

324. 

3 35 

XNM0AN = U./Xi**( 1 ,-Pl/A*«=P 

H 

3230 

325. 


GO TO 345 

H 

32 40 

326. 

340 

XNHOAN=X*«( P-1. ) /A99P 

H 

32 50 

"T:frT 

345 

ff (Q.GE.f.l 60 TO 35 5 

H 

3260 

328. 


IF (Y.NE.r. 1 GO TO 3SC 

H 

32 70 

"1^9. 


YNM0DN=9999. 

H 

3280 

330. 


GO TO 360 

H 

3290 

iKHiia 

350 YNHODN-f l./Y)«*n .-Q < /B#*0 

H 

3300 

332. 


GO TO 360 

H 

33 ID 


355 YNM0bN=Y**tQ-l.)/n**0 

H 

3 3 20 

334. 

360 

FOFY=XOATON4YOBTON-1 , 

H 

3330 

335. 


IF (APS(FOFY> ,LE. l.OE-Sl CO TO 365 

H 

3340 

336. 


FPOFY=09YNH08N-TOMEGA*P«XNMOAN 

H 

3350 

337, 


VNEW=V-rorY/FPOFY 

H 

3 3 60 

338. 


GO TO 370 

H 

33 70 

3 39. 

3 65 

YNE«=Y 

H 

3 3 80 

340. 

3 70 

IF (APS( Y-YNEW)/YNEU-.ir-4I 380,380,375 

H 

3 3 90 

341. 

375 

Y=YNEW 

H 

34CD 







351 

T51S:' 

353 





H 

> * 

DSHzDS 

H 2 

Pw 

•IF~fNS7»lfG',lICrm“TJ‘5=D5iT~ 

H ; 

r. 

IF CABSlYTM-YDKmn.LT,.DDUOSI FjO TO 903 

H 

3 . 

1=1*1 ~ 

H ; 

?, 

IF IVTN-YBKllin 183,395,395 

H 


>. 


M 2 

i. 

1 = 1*1 

H 2 


3 73. 
"-37‘ir 
375. 
~T75T 
377. 
~JTar 
379. 
“TBirr 
381. 

383. 

3BS. 

•'3^6Vi 

387. 

389. 
“390T 
391. 
~J92T 
393. 
~Ty4';- 
395, 
"T 

397. 
" 39’8 


-»TM- 

OELT*St5QRHOYl»*?*OX I#*2I 


fifsOilVOZlil 


HG.EQ.D I 


CO TO 390 


GO TO 3Z5 


CO TO 905 


11HI=IHT 


9iU jr I ir LD .LL .U .UK I 

JFlIFLD.EO.lt 
TFTTnnjrcrnT) 

J=H0-J 


GO TO 10 . 

925 DO 955 V=IL0, IHT 




VP=YONMl-VBKl(Bt 


II -I 


PACE=P^CE-,^5•PACE 


YONl Jt^YBKllBt + KPitSrNATO^VP^COSATD 

DFU72 : DrC5'2” — 

IF tJ.ME .IMl I GO TO 9 95 

trSTT ST=rnrDR7TH r I TlTOR'miri'^ 9' n*rirnT4T5*” 

IF 1K0UNT.GT.15D) GO TO 995 

— — iramruT-D stes I't .iT-.‘7i'3Tre-»‘Tro“TO"’420'”'“ 

IF 1DSTEST.lt ..D19DS ) GO TO 9Z5 

— — — jf-ttwi ;rcr. tl'ot" rro T'o' : — — 

IF URS10ELS2-DSTESTI .LT..0D19DSI GO TO 935 

^rrnfi)TrmTcir.Tr<;ir$TTo“tT'9i3 

IF lDSTEST.GT..5*0St GO TO 93D 

rrrrrn vr*"'B OTTOtr t/fat9 

9 20 1 IHI=1IH1*1 ■ • 

I0NE=IIHI-1 

sDnrrrHTi ^s'dti rTDNr~*r*nrrrsi 

925 I1HI=T1WI41 

i'ONE=riHr-r* ^ — 

XONllONE »-X9T 

rCWTCRE^ T^TmT ^ ^ — 

GO TO 995 

DO 10 935 

OELS2 = lFLOflTIIHI-rLO)*DELS2>DSTESn/FLO*T(IHI*l-rLO> 

1 ? • 1 httdn 1 .-El ."n7r*DrL s jsTDTOTi'btrfnyz'To 


3720 

3790 

'3750 

3760 

Trrci~ 

3780 
37 90 
3800 
38i'0'“" 
^20 
"3 8 ■ 36 “ 
3890 
"3rr5D" 
3860 
"38 70 
3880 
■"36 90 
3900 
3910 
3920 
3930 
39 90 


3 

_3 

3 


435 OrLS 2 =OCLS 2 *OSICST/rLC)miHI-l toi H 

ir «KOUHT .GC ■ ICj DElS?=«DCLS2*DrL?2) /?»3 Jl 

IFUFLD.GT.l.ANO. «0S/0Ct?2».6T,2,» • H 

lPACC = PACC*<r4*DSTt:ST/DCL22/tFL0»TUHl-lLQ)*tUM .5«PftCC>»»FLOftTtlHH 


21-ILO-ll-(C t.<1.5’»PftCn**rLOAmHI-ILO)-l.)/1.5FPACC » > H 

irnFtD.CT. 1 . AND. (DS/0EL22 >.GT .2. IDCU52=PCt2? H 

ISILO-l H 

CO TO 10 • H 


fl*0ELS2 

1=1L0-1 M 


GO TO 10 H 

*H(5 AIPHA<JI=ALPHA« JT-ATDYDD • H. 


»AeS<ABS<AtPHA » -9D.T.LE. l.DE-0> GO TO "|53 H 

OYDX01J»=TAN(ALPHA« J>*PI0180I H 


GO TO «)55 

950 OVDXOOJ =SIGNf999.,ALPHA«J» » H 


955 CONTlNur 

1H1=I0NE . H 

IF IKOUNT.GT. ISO! WRITE l6~i98D MXRRK HUB I , YORK I IU8 I , I tl8= 1 ,5 I H 

0CLS1-D5 _ .H 


ir flFLO.EO.O) D£ESI=1.1*0S 

IF IDFLSI.GT. DELSP.AND.IFLO.LE. 1 >DE:lS1=DEL52 

D'b 965 J = TEO,IHI 

IJ.FO. n GO TO _9 60 _ _ 

SOM JI=SON< J-lI + s'QRTl! UONf JI-XONI J-1 M **2« t VON ( J> -YO N U- 1 ) »««2> 
GO TO 965 


xeut^p 

Xei2l=Q 

XDIF=XERK(9 I-XGHKI5) 


IFIABSIXDIFI.LT.I ,E-1 5 » XDTFrS I GNI 1 .E-1 5 , XD 1 n 
DV0X0I10-1)-<YBRK (9 1 -VBRKI 5 > » /XHIF 


irUBSIDVOX OUO-l JI.6T.99999. ) DYDX 0 1 10-1 I =S 1 GN ( 99999 . ,DV0X0(IC-1 > HI 

ALPHA (10 - l) = ATANinYDXO(IO-l IIFPTQI SC 

IF(CAPPATiO- 1 I.EO .0. . ANO,P.E0.2..AND.O,E0.2. ICAPPAd C-I » ~"2,#A/r 'BH 

JVB :.H 

RffURN ” ' H 


975 FORMAT UX/9X ,9HP = , E 16 . 8 ,9 X, 9 HA = .E 1 6 . 8 , 7X , 5HXQ = , Cl 6 . 8 /9X ,9 HO H 


^16.B.9X|9HB = ,E16,B,7X ,5HYD = ,El 6. B , 3X ,BHOHEG A = ,F16.0/IX) H 
9flD FORMAT (lH0,6rHTHTS SET OF DATA EXCTEDEO 15P1TER A T 1 ONS ' CUL A t TOriH 
15 STOPPEO/5X,9HXf5PX,5X,“9HV6RK>5X,iPlDEn .3) ' » 

985 FORMAT ( 1 X , 5 X , 1 3 > 2X , 1 3HITER A T I QMS"- - ) JH 

9 90 FORMAT (6X,10H0CLS IN = ,F8 . 5 , 3X , THOCLS = ,F8 . 5 , 3Xt 1 1 KOFils CUT = ,H 
1F8.5,7X,9H0STES7 = ,Fg.5» H 


END H 







■o 7 “ 0 CT 7 £T 

SU13R0UTIKC TrST U*» E 

“TrOHMi)N'7M?‘lN/ KINTHI'I ,VTN<lD>'tt)tL!'>NX»PI02,DELSl C 

COMMON /F0R3SS/I0,0ELSrXBRI20» ,yBK <201 ,XON«5DO > »VON< STD) *OVr)XO <50 DC 
TT;?0>inrr5^ l , CAPPR<50D> rsON<SOO>,P10IBO E 

COMMON /SPRCP/ KPREP E 

“trsm ^ 1 — 

IF <XINI2I.EO.XIN<in GO TO 10 E 

■""^CPT=TV nriTi - Yi N < 1 ) i / <x r N < 2 r~x i n c i > > t 

GO TO 15 t 

rr cYTT^r f wrr^YTRirrrmTiiirMT^rcTH € 

SLP1=SIDN<99999. ,TEST IT E 

;~iT“nTrNTi » . l t . x i tt< m r. * no . x irmr . Lf ; * i NTaTi ; o b ; i * i n n > . g c , x i n < 2 >T « r 

1ND.X1N<1>.GT.X1N<H)I I GO TO 20 E 

— iTP=TrNT rPTrfrm — 1 — 

XINin=XIN<lMSir.N(5D ,,TIP» E 


VIN<l>=<YIN< 2 »-yiN<l»»*E 
1 <X 1 N< I )-XIN <2 n/< XIN< 2 )-XINm «SIGN< 50 .,T 1 P>)« VIN< 2 I E 

rriT^TfnJi>i 1 - V 1 N < i » i/i x t n n< » - xi n < r n c' 

E 

R'iJTS' O OTT WCv ^ c 


23 . C 
— 2 ir;ir” 

25 . C 

~-~7wr~ 

27 . 


— >niTR‘ffR'TNTonaTrm~~ — 
jrritL PREi'PS' ~< 77071 A'i^rirr 

RETURN 

“~~CNDT'“ 











TtnirPN 



3! 



SUBROUTINE UPUNCH 

CTThH 0 N ‘TrWToOTnrCroFrn s IGr,ICURVN,NONEuF , IV0RT 
COHHON /SS/ NDOVl.NBOOr;>iTVPBDVtNBDVS 


CONNON ^FOR3SS/IO«DELS,XBK(?OI tVBKIZOT ,XON( 5DO I , VOH( SCO » tOTOXOISOOT 
lltXLPHAISOOl tCAPPATSCCI ,SON (SOU) ,P 1018 D V 


COHNON FHWRTt/ I FLAG , NDTi*,PBOD , TI T LE ( 9 ) , BOO I E S I <♦ ) , ID ENT , YLO (25 ) , XHT 
11 (25) tNDV(ZSI .XRAK(25 l,NBDPTS(5t,N06rNRAKtS V 


COHHON/ LOT/XHIN,yHlN,ORO,tXEPtXX|,VT#LPNCHOtlPLOTA,HH 
OIHENSION VOFfJZOai, X 0 FF( 200 ) F 1 (500 I 


DIHENSION X(Z 5 lyV( 25 l 
COHHON /HNSO/ NNSU«NS DBO V( 1 0 ) 



I mrfcf*jrz?iTH I 


1 IFLG 2 A/ 1 H /, 1 FLG 2 B/ 1 HI/ 


IF VLO AND YHT ARC READ IN AS ZERO .CALCULATE THEN FOR THAT R?)KE 
(FOR )7un A NIiTshRo lio" C ASE S 6"NL Y it J/R/7 3 ' ' 


CliMTlrdtllHYtTini] 


"2 =MD prSTT m — ^ ^ ^ 

21. IFdFLAG.EO. 1)NB = I 

Z3. fif='NBDPTS(2> ’ ■ ' 

23. C ( SET JH1N=LAST SHROUO PT.. IN CASE X NEVER INCREASES ON SHROUD(VTOL) 

“JHTW=NE : ^ 

2S. DO 10 I=NB.NE 

2E7 rr"T7(0'^T^T.LriiX0N(t ») 60 TO 10 

27. JHIN=I 

"757 G6"T^Tr^ ^ 

29. 10 CONTINUE ' 

•"TOT — ir -ffrrz’r'i^iVNE — ^ ■: ^ ^ — 

31. 20 FI (I >rl 

NOFF=T 

33. IF (NRAKES.EQ.OI HO TO 70 

-jjrr'---— -~= — ^ — 

35 . NLO-NOFF*! 

MTJFriFJtOTNDyTTT 

37. ENOY=NDY(I) 

“iBr" iT“( YVt T rrrrt o . o . oto r . ylo 1 1 t*,t& .0.0 go to 25 ~ 

39 . GO TO 35 

“fiDT 2 ErTF"*! W rfTTTTjr.tTrcn Tio ’T'cTTTS — 

HI. CALL SINTP ( X ON ( NB) , ¥ ON (NO ) , JHl N-N B« 1 ,XR AK ( I ) , YH ) 

52. £7Cr"SfNTB~TW»irf nRTTTIt NB I • JMTlP7rB+ 1 ,XRAK ( 1 ) , FI 1 1 

N3. 1F=F1I 

~W7 ijr=swT( (xowiFi-Yoin-Trnn5*7'yTYSTrn"Fr-T6iiii 

*»5. YHKI J=YH~DS - 

«I6. -30 IF (YLDTUt.NE.orO.OR.XRAKllJ.LT.XONmT GO TO 35 

N7. CALL SINTP ( XON , Y ON , N POP TS 1 1 1 . XRAK III , YL > 



Y 0160 

Y D19D 

Y 0200 

Y 0210 

Y 0220 

Y 02 30 

Y 02 50 

Y D2S0 

Y 3 2 60 

Y 02 70 

Y 0280 

Y 0290 

Y 0300 

T~”snir~"' 

Y 0320 
'f"’~ 53 lD'"’ 

Y 0350 

"¥ DT 5 'Q“ 



K!iil4 liiMf IdHf ICO a'I 




>. IF=FII 



FT* DS-S(JRTrfX 5 Un. F T- X 5 H ( 1 F ♦ 1 1 »'* i 2 ‘'* 

1 . YL 0 ( 1 I=YL 4 DS 

lYONIlM-YDNIlFV 

1 ) ) 952 l 

r. 35 ov'r=(TflTTTr=YroTrn 7 rw? 
1 . K =0 




J=NLO.NO 
DJM=J-NLO 

TTOFFUnyRTirnT 




-y o;i - 


YOrr(jy=YLO<I»«OTI* 6 jK ■■ *' 

iUxorrt jj-KniNi 

ir yxorroi-Yx^Exrp-VKiNi tjs.tsrrs' 

ir <Yorr (j>-Y Y»>0Rn- YHiNi 51 * 53^55 

■k=k*T’ ’ * *■“ - 

x<K>-xorr(Ji 

Y<m=Y 0 FF< j> ■* 

CONTINUE 


66«CmT(< PiiOT QFF-nODV PO! r4TS TRftKESI 

6T.C 

68. 60 C*LL LINCtX,Y,K,l ,~1 »0,XMIN,CXCP,YMTN,0»;D> 

69. 65 continue 

70. TO NT BDY=NBDY S»NNS n* 1-T.VORT _ _ 

71. “ NL00P=2-IVbRT “ 

72. If <NRDYS. CQ.3» G O T O 75 

73. ‘. ‘ GO fo' en" " 

7<l. 75 NT8DY=NTB0Y*1 

75.“ NLOCPrS " 

Ibt JO K^C 

'77T‘“ ■“ bo“iic i=T,nloop ' “ 


. OR. N BOYS. C 0.3. AND. M, CO . 1 ) 


76^_ H^TBDY-I*3 

T 9 . "lFL>GGiTFLAG' 2 ~ ' *“ 

60 . lF_fJ^.EO.NTBUV . O R.NBDVS . C O , . 3 . AND . H 

■‘er. Tagi' ' ■ 

82. IF JPP 0 G.CQ. 722 Y I GO TO 85 

"83. C ' -■ 

B 8 . CJ M( t < PUNC H OP Tl ON ( JJ t J ( _ _ 

'Tb’.c 

86. IF (LPNCHO.EO.O GO TO 9C 

bT. BWE "n 7 illY»niYL'HLr;i"=l ,97 .H.BOnYOrTOYNT 

88 . WRITE n 7 , 120 )K,IFLAGG,NO 6 ,IY 0 RT,IDCNT 

‘W;” G 6 '“T 0 ' 93 “ ■’* ■ " 

^ 0 . _ 85 __in._C 2 ?-nL 02 A 

"■9f.‘ ' IF fl'^PNCHO.EO^irURn'C fr7Yi"30»HriFLC22,J‘TITLEJLl 

92. IDCNT 

"937 9TTbNtTNUf ' 

9R. IF JLPN CHO.EQ.ll UR I I C 1 1 7 , 1 25 I TDF NT _■ 

96. NS=C 

97. " IF JI,"nE. 11 «:i ' * 

98. DO 1C5 J=1,M 

~Wi Tr‘jJ.GT.NBDYS 7 AN 07 NNSD.NC 7 b> GO TO 95 ' 

100 . NP-NBDPTSJJl 

rOTT Co fo"’lDD “ ‘ ' 

102. 95 NS=NS 4 I 

IBT; if (NS. D T 7 n jrs~n ) N 5 D 0 D Y ( N S ) = N B D P r sTn P D y S *T» - N B 0 P T S 

109 . ND=NS 0 B 0 YJNS)*NA -1 


105. 100 NP=NB-NA41 

106. I FJLPHCHO.C Q . U 

TOTT 1 C A LL H R T X V ■ Tn P , I D FN T j , K ,1( 0 N , Y 0 N , fj A Vn B ,.P R OG~l ‘ 

108. NA=NB4l 

109. 105 CONTINUE 

IIP. i<£D 

111. NA=1 

112. NR=NOFF 

113. J=0 ■ 


(NBDYS) 


0S6D 
3 5 70 
C58D 
3 5 90 
0600 
Obli 
0620 
06 3D 
06 40 
C6 5C 

j 6 60 

J6 7D 
*3 6 81) 

06 70 

07 OC 

37 ID 
0720 
07 30 
3 7 40 
0750 
376D 
D77C 

07 ac 

3 7 90 
0000 

38 ID 
C82C 

08 3C 
D84C 
0850 
386u 
O07C 
3 8 80 
D89C 
0900 
3910 
C92D 
C93D 
0940 
C95C 
3 9 60 
D97C 
3980 
C9 90 
13 CO 
lOlC 

10 2C 
13 30 
1040 
13 53 
10 60 
13 70 
lOSG 
1090 
HOC 

1 1 10 
1 12C 




‘ If ILPNCHOT 

Eo.i'r 

V 

"1130 ■ 

US. 

ACOLL WRTXY 

<NOFF,TDEt<T,J,K,¥OFF,YOFF,NA,NB,PROG> 

r 

1140 

116. 

If «PRbG‘.VlCrf2'2y f l5T‘T6™il3 ‘ 


i f 5b 

117. 

irLG22rlFLG2B 

y 

1 1 60 

lu; 

“Tr ILPNCflb 

,EO.c » no TO in 

Y 

■"l i 7 0' 

119. 

WPITE <17, 

130IM,IFLE22,<mLE<LI,L=l,7I.H,B0DVD,IDENT 

V 

11 BO 

"rsDV 

Bfnr“<T77 

rsn “ 

V 

1190“ 

JZi. 

110 CONTINUE 


V 

12 00 

"YZ2 . *' 

RTTUffTT 


Y 

12 lb 

123. C 



Y 

1220 

T«,(T FOlfflUS 

■* 

Y 

1230 

125. C 



Y 

1240 

TJr.c 



Y 

1250 

127. C 



Y 

1260 

TSfl'." 

*115 TORHAT ■< ~ 

* m7ri7*^2yTA*6y*^ 

Y 

1270 

129. 

12C rONMAT I 

ii,A<4.ii,nx,i].ti7x,A&.m} 

Y 

12 80 

rSO, 125 rORflS^T ( 

62X,A6,ii’XI ■ 

Y 

1290 

13?,. 

130 FORMAT f 

I1.6M11 ,A1 ,itX,7A6, I l.AG.lX, A6) 

Y 

1300 

T32T 

“•HB' T'OfiB A'T'-I * 

"^H^TD .TT.TfiTaTDTTx ,3H90 . 1 

V 

13 10 

133. 

END 


V 

13 20 





» « 

SO.WlRtX V 


■ ■ Jill. 

Ofl OCT 7b 

08 

1. 


SUQROmiNr. WRTXV INP.^OtNT.J.N.X.Y.NA.Nn.PROGt 

?£L,.QOgQ. 

2.C 



23 

3313 

3.C 


UPITC X AND V COOPOINAUS 

. 20 . 

0020 

<t.C 



70 

0030 

5. 


OIMCNSION XIII. YIU 

20 

0090 

6. 


COMMON /FORCOD/ I GCOMf ,I ST GF tt C»P VN.NONEWF » I WORT 

20 

00 50 



DATA T22Y/6H 22Y/ 

10 

0060 

S. 


uPiTt n 7,2 5nc{:oMF,i sicr,icu9WN,N0NFwF , np,idi:nt 

20 

0070 

9, 


IF 1PR0G.NC.T22YI GO TO 15 



0080 

10. 


IF IJ.NC.CI GO TO 13 

23 

33 93 

U. 


URITE U7,951J,K,I0fNT 

20 

01 00 

rj; — 


GO TO 23 

23 

31 10 

13. 

10 

URITE 117,90 J,K .lOCNT 

.... zg . 

0120 

19. 


00 TO 23 

20 

0130 

15. 

15 

WRITE 11 7,301 J,K ,TDENT 

zo 

Cl 90 

16. 

20 

IF TK.EQ.li RETliRN 

23 

31 50 

17. 


WRITE n7,3SMX«L>,L = NA,NBI 

zc 

0160 

IB » 


iJRiTT n 7 , 3 5 M Y ( l1 , L = N A", NB » 

23 

"3170 

19. 


RETURN 

20 

0180 

Td7£ 



20 

0190 

21 .C 


FORMAT statements 

20 

0200 

22. C 



ZO 

02 10 

23. C 



ZO 

02 20 

2^ «C 



ZO 

0230 

25. 

2S 

FORMAT T9M ,3X,I3 ,52X ,A6,1 iXt 

ZO 

0290 

'“26; " ■ 

30' 

FORMAT T 9X,I1,9K,I1,9?X,A6,11x7 

?D 

C25C 

27 . 

35 

FORHATT6E13.0I 

20 

0260 

28. 

to 

FORMAT 1 9X,Tl,9X,lHl,9X,.Tl,32X,A6,nX) ’ 

Z3 

3 2 70 

29. 

95 

FORMAT f 9X.I1 ,19X,11,32X,A6,11XI 

Z3 

0280 

' 3T3T 


TTiD 

ZD 

3 2 90 





07 OCT 76 


SUBROUTINE X VCkLC (KS T AR T .it 2 ,NTN > 


XVCALC — N 

...OCNCRflTES DAT* TILES FOR ON-BOOY POINTS. 


N 

INTEGER SGEN N 


REAL X(300ltV nooii Cl 300 > . 5 I 3DD ) . SPI <i CO I N 

COMPLEX 2f300»,D2l33a l,D22,2Z,F2TRP.D?TRP N 


LOGICAL THIN, EVEN. SPGEN, DONE 
COMMON/SEGNO/NSEG, 


COMMON /MAIN/ XI N (1 0 I ,Y1NI 10 > , DELSM X ,P 102 , DEL S 1 . IHUB 
COMMON /SPGENC/ A.OSMAX.RMAX , THIN ,B , TMIN.DSEND 


COMMON /FOR3SS/10 .DELS, XBK 120 » ,YBM 120 » ,XONI50D I ,VONT SCO I ,PTPX0(50DN 

1 l , ALPHA|500T,CA PPMr' 001 . SONISOOT ,P 10180 

DATA NSM*X,NSS,EMPTY,ONE/300, 203,1 .0020,10031/ 

N AMELIST /DG OY IN/ 2,S 1 N 

HAMEL T ST /AUXIN/ A.DSHAX ,RHftX ,TM1N ,D ,NFI N OPTn 5P , DSE NO.DONE 
then, THIN 


INITIALIZE PROGRAM 


ID DO IS I~1 ,N5HAX 
15 ZIIT=EMPTV _ 
"Tl:f0.0 

NMAXr'OO 


DSMAX:DELSMX 

thin=.faI"5eV “ 

KHAX=1.2 

DSEND'rDSliAX ‘ 

DONE = . FA LSE-. 

tVCf^H^F ALSt '*■ ' ’ 

B;C.3 

■‘'TM'lNirf;'! ~™™— . «— ^ * 

NFIN-D 

" ' Nspicr' 

r.Trfj(^uT‘woTT>oWfsnr?s“BobY"^v 

20 READ (NIN.BODVINI 
'"■do 25 I-l.N'SHAX 

I F IR FAUZI IH.EO .EHPTYI GO TO 3a 
2S NS=1" 

30 sm = si 

""~Tp*A& = S C E N f S , 2 , NS 1 

IF IIPAD.NE.OI WRITE l6,i25»lBA0 


SET UP DERIVATIVES ♦ CURVATURES 


DO 35 1 = 1, NS 

35 OZII l=0ZTRPIS,2,SII ) ,NS» 


DO 40 1 = 1, NS 
D2Z=0?T4P(S,D?,S( II ,NSI 


40 CIlUAlMAGtCONUGinzn 1 1 «»D2Z I /CABS I DZ U 11**3 


I... INPUT AUXILLIARY tCONIROLT DATA. 
45 READ ININ, AUXIN) 


IF INFIN.EQ.QI NFIN=NS > 
SFIN=SINFTNI 


0SMAX=AMAX1 IDSMAX.DSENOI 











TPTrvCN i‘T6* TO “5 : 


r , . , ctUrR ^ t f nOo y I’D i nB ‘ciy f s e c wf • 

IF KNOT ,SPeCNCS»7,C,NS*SP|NSPtSriN,NMAXn 
‘'6P To'-'il) — 

r. : . Cf Nrmr wfct?’ m f? T6w^r s a??K a cf*? t nr;ry ficr 

50 S»tALF=Sr lN/2 .0 _ 

1? tNSP.LTon DO'to 5 g' ‘ - 

ir TSPjySR) .GE.SHflUr/ONE I GO TO 50 


G 0__ T 0_ 
'Tfc'VEflf 


130 




7*1. 


55 ir T.NOT ,SPGEN«S,7,C.NS,S'',NSP,SHSLr,NHAXn 
6C 5PCM=ISFIN-SP (MSP MFONC 

D0‘”&5* Tri-;Tr5'P — 

IF (SPin .GE.SPFH 1 GO TO 70 

■65" TeHTTfror "" — " ■" 

_G0 TO 1^0 

TO if-INSPM-lTGt.NHAXI CO TO ISO 
75 1=1-1 

rrTiTLTM'k CO" to- sT 

NSP=N5P«1 

Sjpi>jsP(:srrW“£p‘( i ) 

GO TO 75 


....TEST FOR FINTji'i. 

wir- fOBwn "G6 ro' ot 

GO TO A5 


GO TO IMO 




....OUTPUT RESULTING PN-RODY POINTS. 

' 8i>- oo'9d rrT.'ffS P 

22=F2TRP(S,7,SP(T »,NS ) 

— WTrriiizToprs ,7 ; spi i » ;ns » 

022=07IRP(5,D7,SP)n ,NS) 

'Cllll: ArH AGTCtiNJ'G(D?( 1 1 ) oD^?) /CARS Cn7( ] I 
Kll J = PEAL(22 1 
9C VmSAIHAGirZ I 


92. 

K1=KSTART 


•— 93-.‘ 

-K-JitrSF 4X“5TA P 7 - 1 ' 


94. 

DO 1 10 I=K1,«2 


"■ '95'i 

“TlrT ART • 1 ' 


96. 

XONTl )=X(Ijl: 1 


9 - 7 .- ' 

ToTrmTTrn 1 • • 

.... ............ 


cAppAm=c(in 


9T."“ 

rnA'E^'d'AT’PATi i7 . i.r . 

.■C!3tiitcrpP‘Alll=i'.' 



If TREAL<n 7 (rU>.rQr''.» GO TO IDD 

"iTvnro n ) = ath'a gititi n » 1/ > ea l t o "z < 1 1 1 » 

IF tABSTDVDXOIIM .GT. 999 .) GO TO IGD 
"IF ■< ANSI OYOXoUF ) .LT .TOCDi ) GO To "95 
ALPHAm=AT A^JDYDXOT I 11 « 1 5 D . / 3 . 1 *» 1 57 
'615'T0*n)5 " 

95 DYDX 0 T 11 =C. 

■' ‘ *'A’LP(TATn'=D.‘ 

GO TO 105 

lC() CTDXoTTlHTFTi 

alpha (11=90. 

1 C5 'SoNn 1 =5"™ ■ 

IF(I .NE. 1, 1S0N(I1=E0NU-1 MSQRT ( t XON ( 1 1 -XON ( y -1 ( Y0N(1 1 

T ‘ 


N 

N 

N 

N 

N 

N 

N’ 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

.... ^ 

N 

N 

N 

' N 
N 

” N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 

-YPNII -N 
N 


C5GG 
3570 
0580 
0590 
3600 
OGIC 
0620 
0630 
06*10 
3 6 50 
0660 
36 70 
C6fiO 
0690 
07 00 
07 IC 
3 7 20 
07 30 
07*40 

07 50 
0760 
0770 
0780 
3790 
OB 00 

08 10 
CBZC 
CB30 
38*40 
0850 
3 8 60 

08 7C 
3 8 60 
0890 
3900 
C9K 
3920 
0930 
0980 
3 9 50 

09 60 
3970 
0980 
3993 

loot 
n 10 
1020 
1330 
1040 
1050 
1D6C 
1370 
1080 
13 90 
11D3 
11 10 
1120 





im. 

115. 

Ti‘6,‘ 

ife. 

119. 


irifNSCG.EO.D .AND.n .rO*U.GR.C.f*C 0 . 1 . AND.II.COi. 1 ) I 50 MT ) = 0 . 
ir il .EO.Kl I GO TO » 10 
"irrxoNMi ;t:o.'x6'Nri“i i icApPAin=CAPPAn-n 
ir IXOMUl.COjXONUjil tl C O TO IIP 


N 

,J*.. 

N 

_N, 

TruDYOxoVi i-nVoxnii-n i/uoMii i-xoNiT-i » »*capp A m. lt.o .kappa (i in 
ir-CAPPAin N 


120. ir«l.EO.Ul«inCAPPAl 1 -l»rSlGNKAPPA<l-n tCAPPAII) I N 

121. iriDVDXO<n»DYnXOtI-l I.LT. 0 ..AND . D Y O XOm.CT.O. KAPP All i r-ABS I CA P PN , 

122. lAmi " N 

Jil* IF <l.LT.(Kl«2n GO TO 110 fL 

12<»V“ IF IDYOXOm9DYDXOll-2l.LT. 0.1 GO TO 110 N 

125, IF < CPYDX04 1-ll.GT.OYDXOm.AHD.DYOXC - T - 11 . LT . D YD XO 1 1-2)1 .OR. IDVDXN 

126, 10(1-11. LT.DVDX04II. AND. nvDXO(T-ll.GT<.0VDX0lJ-2m GO TO 110 N 

127, IF I (CAPPAn-n.LC.CAPPAUl.AVD.CAPPAf 1-1 l.GE.CAFPAt I -2 I I.Off. (CAPPN 

lA(I-l».GE.CAPPA(ll.AN0.fAPPAn-l»,LC.CAPPA(I-2ni GO TO IID N 

CAPPAU-1) = -CAPPA(1-1 I ^ (L 

IIO’ CONTINUE N 

WRITE ( 6,1 15)NS,NSP,DSHAX.Xtl l,Y(l >.X(NSPI,Y(NSPI N_ 

TTs rCRNAT(lH0,7X, N 

1 50HO1PCCT INTERPOLATION. FULL POl kT-SPAC INC REQUIRCMENN 


128. 
129 . 
'13Q 
131. 
“T'32l‘ 
133. 

1 34 . 
135. 

137. 

139. C 
*140. ■ 

141 . 

143, 

■"144; 

145. 

146. 

147. 
i*4'8'. 
149, 

■ 


ITS ME:T./24X,i9UN0. OF INPUT PTS,= # 1 4 , 2X , 2 DHNO . OF OUTPUT PTS.= ,IN 
24,2X,16H0SHA_X^0SEJ^ = .F 10 . 2/24X . 14HST AR T ( X , Y I = ( .FID .6, IH, ,F1QN 
-3 .*(■ ,‘iH »/24Xri2HCN*6 ;X,Y l"= ( ,FiD,6,lH,,F 10.6.1W1 1 N 

IF (DONE! GO TO 12D N 

*'r20’“'RtTD(?T3 N 

EPPOR MESSAGES. 


1BAD= iTST 


1 2S ' F OITN A T ra'OVlSirnr F'A'Tt'E “tiT 

13C WRITE (6,135J 

T3'S ToSMA'frS'sfTsPGE^^^ TO"~CONPLETC SEGMENT I 

STOP _ 

'''l'4D''&p'lfe''(6,l4 5) - 

145 F0RKaT(29HSPGFN UNADLE TO 00 EVEN OQDY 1 

■* STOP •“ *■ 

15C UPITE (5,15S|NSP 


N 

N 


N 

N 


155 F0RMAT(44HT00 MANY POINTS FOR BOTH; SURFACES, 
STOP 

•— XFfD"*"" 


NLOWCR= ,T4I 


1130 
„ 11 40 
1150 
„U4P. 

1170 

ir90' 
,._i2J30 
1210 
1220 
“l2 30 
124 0 
12 50” 
126 D 
12 70 
1260 

12 9D 
1300 
1310 

^13 20 

13 30' 
134D 
13 50* 
13 60 
1370 

1 3 80 
i39Q" 
1400 
1410 

1 420 

1430 
1440 
- 14 50 

14 60 
147C , 
146U 
1490 


. - 



^ Program EOD 



1 

*5b,"E6C 


AUG 75 

IS- 

1 .c 

OVERLAY (PAN, Old 



C 

2.C 

PROGRAM MATN( input: 12 9,0Uf PUT ,PUNCH=129 , T APE5=I NP UT , TAPE6=0UTPUT , 


c 

3.C 

1 TAPE7=PUNCH,TAPCl:129,TAPE2=129,TAPE3=129,TAPE4=129 ,TAPE0 = 129 

t 


c 

4.C 

2 TAPE9=129,TAPE10::l29,tAPm:l29,T APE12=129,TAPE13=1 29,TAHE15 = 

129 


c 

5.C 

3 TAPE16=129» 



c 

t.t " 



MAIN 

10 

7.C* 

*9 DOUGLAS PARABOLIC AX I SYMMF.TR! C POTENTIAL FLOW PROGRAM 


main 

20 

biC 



MAIN 

30 

9.C 

* CALCULATION OF POTENTIAL FLOW ABOUT BODIES OF 


MAIN 

40 

i£),rc 

REVOLUTION MAViNC FLOUS PARALLEL AND PERPCADICULAr 


main 

SO 

n .c 

TO THE AXIS OF REVOLUTION. 


MAIN 

60 

“nrc""” 



MAIN 

70 

V3,C 

* MAIN program 


MAIN 

eo 

14. C 



MAIN 

9D 

. 15. 

COMMON ^IPSF/ P5F 


MAIN 

100 

16. 

COMMON / NBSAVE / NBOLD, NIN 


MAIN 

1 10 

17. 

COMMON HEDRMOl ,CASE ,NB ,NNU 


MAIN 

I 30 

Tb.* 

i ,FLG03 ,FLGC4 ;fIgD5 ,FLG06 ,FLG07 


MAIN 

140 

19. 

2 ,FLGDG ,FLG09 ,FLG10 .FLGll ,FLG12 


MAIN 

ISO 

2D. 

3 ,FLG13 ,FLG14 ,FLG15 ,FLG16 ,F10I7 


MAIN 

160 

21. 

4 ,FLCie ,FLC19 ,FLG2D ,FLG21 ,FLG22 


MAIN 

170 

22. 

5 ,FLC23 ,FLG24 ,FLG25 ,FLG26 ,FLG27 


MAIN 

180 

23. 

common NT, NDMIl, MN, NUNAISl, TYPEAISI, 


main 

190 

24. 

1 NERi, NLP2, N'HA, NSTGA, NSIGC, 


MAIN 

200 

25. 

2 \ NUMC151, TYPCCI51, NLFlin, lEC, NSIGEC, 


MAIN 

210 

26. 

3 TYPCrC( 5 I.NUNECtSI 


MAIN 

2 20 

27. 

DOUBLE PRECISION HEDR, CASE 


MAIN 

230 

28. 

INTEGER FLC03 .ELGHW ,n.lf '5 ,FLGOb . ,FLG07 


MAIN 

2 40 

29. 

I ,FLGDB ,FLGD9 ,FL6iO ,FLgU ,FLGJ2 


MAIN 

2 50 

30. 

2 ,FLG13 ,FLG14 ,FlG15 ,FLG16 ,TlC17 


MAIN 

260 

31 . 

3 .FLGie ,FLG19 ,FLG2D ,FLG21 ,FLG?2 


MAIN 

2 7D 

32. 

4 ,FLG23 ,FlG24 ,FLG25 ,FLG26 ,FLG27 


MAIN 

28D 

33. 

COMMON /P/ IPUVEL 


MAIN 

290 

34. 

common /BL0CK3/N0AXI ,N0CR0S ,N 0 V ORT , NOV 1 , NO V2 , F 1R S TE , LAST E,L SSE 

,SD 

.MAIN 

3QD 

35. 

1 NSMALL 


MAIN 

3 10 

36 li 

COMMON /BLOCKR/ NRAKES.RNAME ! 20 ,9 1 ,R AKE A 120 > ,RUNI TX ( 201 , 


BASl 

3 40 

37™ 

1 RUNITY120I ,RDS(2D» , N RP TS ( 2 C 1 , COS T H ( 20 1 , 1 R A KF , NOf F, X 1R(201, 


BASl 

350 

30. 

2 YiR( 2D) ,X2R (20) , Y2R ( 20 1 


RASl 

3 60 

59. 

COMMON /PRINTF/ PRIN 1 ,PRIN2 ,PR 1N3 


mtrx 

110 

40. 

COMMON /ECF/ CCX ( SOD 1 , ECYlSDO), EC2(500 ) 


MTRX 

3 40 

41 . 

COMMON /COMBI tJ/CH AY ( 2 1 


AXIS 

60 

42. 

COMMON /BLOCKS/ X ,Y , 5 IN AL ,COS A L ,MC ,H ,MM1 ,MP 1 ,R 


PRB7 

100 

43. 

COMMON /D/ RISQR, R2S0R, XHXU, YMYJ, XMXJPl, YMYJPl , S 


XV22 

7D 

44. 

REAL MN 


MAIN 

320 

45. C 



MAIN 

3 30 

46. 

CALL TSETV 


MAIN 

340 

47. 

NBOLD = D 


MAIN 

120 

■ 48. 

REWIND 13 


MAIN 

350 

49. 

ID REWIND 12 


MAIN 

360 

so. 

REWIND 4 


MAIN 

3 70 

51 . 

REWIND 3 


MAIN 

380 

52. 

REWIND a 


MAIN 

390 

53. 

REWIND 9 


MAIN 

4 00 

54 . 

REWIND ID 


MAIN 

410 

55. 

REWIND 11 


MAIN 

4 2D 

56. 

REWIND 15 


MAIN 

4 30 



. - 

67 1 ft'EWlND 16 ' ' «i IN* '•Ml o' 

58. CALL PARTI ' MAIN 451 

59. C CALL overlay UHP AN, X ,0,6HRECVLLr C 

60. WRnC(6, 20 m,NSK)LL MAIN 4 70 

61. 20 FORMA fi IfU ,2 2H MATRI X fORHATlOCTOOk; V'lV.'l,' 8 h' SC , MAIM 480 

62. 1 /* (THE NUHRCR OF TIMES THAT SMALL CLEMENT FORMULAE WERE USED WAMAIN 490 

“63. 2S*,16,*.»'« I ' ’ "** ■ Hit I'm 500 

64. C**# ♦A*PRESCRirCO VORTICITY IMPLIES TRTANCULARI2ATI ON METHOD OF MATRIX MAIN 510 

65. C*** •'♦♦SOLUTION (SOLVlTl ‘ MAIN 520 

66. inFLG19.CT.O.OR.FLG13.GT.OTGO TO 30 MAIN 5 30 

67. CALL PART2 " ~ '* MAIN 541 

68. C CALL overlay (3HP AN , 2 «0 6HREC ALL > C 

69. 'GO TO 50 ■ ■ * ' ■ •* ' Main 550 


70. 
7.1 .C 

72. 

73. 
74 . 

75. 

76. 
77 . 

78. C 

79. 

80. 
81. 
82. 

83. 

84. 

85. 


30 CALL PREP 

3d CALL OVERLA Y (3HPAN, 3 ,0 .eHRCCArtr " " 

CALL T1M£V(I2» 

T = T2 ■- T1 ■" 

WRITE16, 40 IT _ 

4G FORMATdHl, 42H MATRIX PREP AR>t ION' AND ALL SOLUT 1 ONS TOOK ,F 1 4 . 3 , 

I 8H SECONDS I 

50 CALL PART4 

50 CALL OVERLAY T3HP AN ,4 ,0 ,6HREC ALL I 
CALL T1MEV(T3I 
T = T3 - T2 

WpITE(6, 6d M ■ ■' ' ■ ■ - 

60 forma T( im,f 43H MATRIX SUMMATIONS FOR FINAL SOLUTIONS TOOK,F14.3 

1 6H SECONDS ) ■ 

do TO 10 

end ' ■ 


MAIN 561 
C 

MAIN 570 
MAIN 580 
MAIN 590 
MAIN 600 
MAIN 610 
MAIN 621 
C 

MAIN 630 
MAIN 640 
MAIN 650 
(MAIN 660 
MAIN 670 

main 680 

MAIN 690 



-//<5 - 


"S'oriis T»{ — 

1. FUNCTTON ARSINfXJ 

AfiSlN=ASIN<X > 

3. RETURN 

V.'"' ■ LND 


25 Aun 75 le 





^SOVAXTS 


• . V ^ M 

s-i. - «■,. 



20 0C1 

76 

1 4 

1. 

^‘lOROUl 

INE AXIS 





AXIS 

20 

2.C 







AXIS 

1C 

3.C 







AXIS 

30 

4.C 


« COMPOTf AXlSYMMETRIC 

VFIOCTTY COMPONENTS 

AND PRINT 

AXIS 

40 

5.C 







AXIS 

50 

6 • 

COMMON 

■/COMBI N/CHAY<? 1 





AXIS 

60 

7. 

COMMON 

/ipsr/ psr 





AXIS 

70 

B. 

COMMON 

HEORIICI .CASE 


,N0 

,NNU 


AXIS 

00 

9. 

1 

.FLD03 .FLOOR 


,FLGD5 

,FLGC6 

.FLG07 

AXIS 

90 

10. 

2 

.F'LGOO ,FLGQ9 


.FLCilO 

,FLGll 

,FLG12 

AXIS 

100 

11. 

3 

.FLG13 ,rtr.i4 


.ELGIB 

,rLG16 

,FLG17 

AXIS 

1 ID 

* 12. 


.FLG18 ‘~,rLG19 


' ,'FtG20 

,FLP2l 

,FLD22 

AXIS 

120 

13. 

5 

.FLG23 ,rLG24 


,FLG25 

,FLG26 

,FLG27 

AXIS 

1 30 

14. 

COMMON 

NT, NDUn. 

MN, 

NONA ( 

5), TYPFAI5), 

AXIS 

1 4C 

15. 

1 

NCRl, NCR2, 

NMA 

, NSIGA 

, NSICC, 

AXIS 

1 50 

16. 

2 

NUNCTbl. TYPECIS), 

Ntrill), I EC, 

NSl GTC, 

AXIS 

160 

17. 

3 

TYPEECI 5 I.NIINCCTSI 





AXIS 

170 

’ I'e'; 

noUOLF' 

PRECISION lirDR, CASE 





AXIS 

1 BO 

19. 

INTEGER rLG03 ,FLG04 


,FLG05 

,FLG06 

,FLG07 

AXIS 

190 

20 . 

1 

.FLGOa ,rLGD9 


,riGlC 

,FLGil 

, FLG12 

AXIS 

200 

21. 

2 

.FLC13 ,FLG14 


,FLG15 

,rLG16 

,rLG17 

AXIS 

2 10 

22. 

3 

,FLG18 .FLC19 


,FlG20 

,FLG2 1 

,FLC22 

AXIS 

220 

23. 

4 

.FLG23 .FL024 


,FLG25 

,FLG26 

, FUC27 

AXIS 

2 30 

24. 

COMMON 

/P/ IPUVEL 





AXIS 

240 

25. 

REAL 

HN 





AXI S 

250 

26. C 







AXIS 

260 

27. 

COMMON 

/C4/ XI ( 502) , VI 1500) , 

X2I500), 

Y2 (500) 

T OELSISPO), 

AXIS 

270 

20. 

1 

SINAI 500) .COSAIBOO) ,XP(500 ) . 

yP(5DD) 


AXIS 

2 80 

29, 

common 

/TC/ KRISCD.IO), 

SIG(50C,5). 

A( 500) , 

!3( 500), 

AXIS 

290 

30.^ 

" 1 

■ 215-0), ■ - 

PHllS'OC.S), 

XNTSDD, 

5 > ,T( 5CC,S) , 

AXIS 

300 

31 . 

2 

13(500, 5) , 

NSIG, 

NP, 

MI , 

AXIS 

3 ID 

32. 

3 

SLIHV, 

SUMMIST 



AXIS 

3 2C 

33. 

COMMON 

/BLOCKR/ NRAKES,RNAMr(20, 

9) ,RAKCA (20) 

,RUNI TX( 20 , 

AXIS 

3 3D 


1 RUNJ TY(2Dt ,RDS( 2 0 ,NRPTS< 201 , COSTM* 20 > » IR AKf . NOFT , X lt?( HD I , 

2 ¥1R< H0» ,X2R < 2DJ , Y2R( HOJ __ 

DIMENSION VX<5DC,5», VY<5DC,S>, VTISQD.G), 

1 TH<S00,5I, CPtBOOtSV, SUHTOSISI 

DIMENSION PVLASH2I 

EOUIVALENCE < VXdfll , XN(l.l) I , (VY< Itl> tie Ull ) f 
1 ' f vra.n, tsM.n |■rH■^Vl^.'srt‘n,V) >r < cp(i, n,T3(i,n > 
DATA rOURPl /12. 5663706/ ^ j 

• START 

NC=NT ■ ■ 

ir TFLG19.GT.D) NC=NHA 

— j-F~rri:c'oa .t o*. c i'Co'to'-h'q 

* TITLE FOR MATRIX PRINT 

URTTE(6, 29D INCOR.C'A sr,pSF'‘'~ 

UPITE <6t ID ) 

10 J'ORMAT <1H R3H MATRICES" A'.BVZ' BY ROUS • AXlSYMMETRIC FLOW //I 

_ » RE AD AXIS SIGMAS 

TO o6T‘0 NTl.NSfG ' 

SUMH«N>=0,0 

St)MTDSIN»=a.O’ " " ■ " ■■ 


Axis 34D ■ 
AXIS 3SQ 
AXIS 360 
AXIS 370 
AXIS 380 


AXIS 
AX IS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXI S 
AXIS 
AXI S 
AXIS 
AXIS 
"axis" 

AXIS 

AXIS 


3 90 

4 10 
4 20 
4 00 
4 30 
4 40 
4 50 
4 60 
470 

4 80 
490 
500 
510 

5 20 
‘S‘30 ■ 
540 
5 50 







57, 

30 

REAO »3> (SlOll.N 1,1 = 1, NO 

AXIS 560 

59. 


ir «FI.G19.Lr. .C> GO 10 90 

AXIS 57C 

59. 


hTAO (4) 

AXIS 5BC 

5Q • 


NR = NMA^I 

AXIS 59D 

bl. 


rr<fLG23 .GT . C1G0 TO 4f^ 

AXIS 6 DC 

52. 


ROAD (41 (STGU.l t,l:NR,NT) 

AXIS 610 

63. 


RCUINO 4 

AXIS 620 

64. 


GO TO 90 

AXIS 6 30 

65. C 



AXIS 640 

66 . C 



AXIS 650 

67.C«i»« « 

i RING WING 

AXIS 660 

69 .C 



AXIS 67C 

69. 

4C 

LIFBOn = Q 

AXIS 660 

70. 


UO 50 « = 1 ,NP 

AXIS 69C 

71 . 


IF( NLF(t(1 ,GT. CIOD TO 5*^ 

AXIS 700 

72. 


LIFnOO = LIFOOD ♦ 1 

AXIS 71C 

73. 

50 

CONTINUE 

AXIS 720 

^ 4 * 


tPPl = LIFBOD ♦ I 

AXIS 73C 

75. 


00 6C N=l,LGPJ 

AXIS 74D 

76 . 


OCI 60 I = NR,NT 

AXIS 750 

77 . 

60 

SIG(I ,N) = C.C 

AXIS 760 

78. 


LBP2 = LBPl ♦ 1 

AXIS 770 

79. 


DO 70 N = LBP2,N5Td 

AXIS 780 

80. 

70 

RFA0(4» (S1G(T,N» ,1=NR,N1> 

AXIS 790 

81 . 


1=0 


82. 


DO 75 N=LBP2,NSIG 


83, 


1 = 1.1 


84. 7 5 

PVt-ASTd )= SI G(NT ,N) 


85. C 

*9* SIGMAS HCRE HAVE BCCOMt THE INPUT PV 

AXIS 8DC 

86. 


DO 8C N = LPP2,NSTG 

AXIS 810 

■87. ■ 


DO 83 I=NR,NT 

AXIS 620 

88 . 

80 

SiGtI.NI = SlnU.N) /(-FOURPll 

AXIS 330 

89. 


rewind 4 

AXIS 640 

90. C 


9 NO. OF MIDPOINTS LOOP 

AXIS esc 

91. 

90 

DO 2CC 1=1, NT 

AXIS 860 

92. C 


READ MATRI CES A, 8,7 

AXIS 870 

93 . 


RFAD (9> (A( JJ ,J=l,NT),IRt J>,J=1,NTI, (7( J» , J = 1 ,NT » 

AXIS BBC 

94. C 


■S' NO. OF FLOWS LOOP 

AXIS 890 

95. 


N1=Q 

AXIS 900 

96. 


DO 16P N=1,NSID 

AXIS 910 

97. 


NUN1.2 

AXIS 920 

98. 


SN=C.D ' 

AXIS 9 3C 

99 , 


ST=0. Q 

AXIS 940 

ICO . 


SP=D.D 

AXIS 950 

101 .C 


* NO. OF ELEMENTS LOOP 

AXIS 960 

102. 


DO ICC J=1,NT 

AXIS 97C 

103, 


£N=SN.A(J»«‘STC(J,N» 

AXIS 980 

104. 


ST=ST.S( JJ9SIG(J,NI 

AXIS 990 

105. 


ir<FLC23 .GT. ClZUJ = D.O 

AXISIOCC 

106, 

ICO 

SP=5P*2t J)=>5IG(J,H» 

AXISIDIO 

107, 


IF(FLG22 .GT .0 » GO TO 15C 

AXIS1D2C 

1C8, 


IF (FLG12.E0.0J GO TO 110 

AXIS1030 

109. 


XN(I ,N)=SN 

AX IS 10 40 

110. 


PHI(I,NI=SP-RD(I,Nl-il 

AXIS1050 

Ill, 


CO TO 12C 

AX1S106C 

112, 

110 

XNn,NJ = SN-RB(l,Nl-lJ 

AX1S107G 

113. 


PHKI ,NJ =SP 

AXISIO 80 





lit*. 

120 

IF IFLGll.CO.C'l GO To 130 


AXIS1090 

115. 


T »I,N)=5T 


AXISIIOO 

116i 


CO TO 140 


AXJSll 10 

117. 

nr 

Tn,N>=ST«RD(r,NH 


AXISll 20 

lie. 

14Q 

SUMMl NI = SUMM<NMPH1 ( 1 ,N » «V2 • T MRIi « I .Nl-IMDFLS m 

AXIS1130 

119. 


CPtI ,NJ = 1 .-T( I,rn«'*2 


AXIS1140 

120. 


GO TO 160 


AXIS1150 

121. 

ISC 

XNII ,N> r SN' 


AXIS1160 

122. 


t’HlU ,N1 = SP 


AXISll 70 

123. 


TU.NI = ST 


AXIS} 160 

124. 


CPU.Nl = 1.0 - T(T,N)**2 


AXIS1190 

125. 

16C 

CONTIMUE 


AX1S12DD 

126. 

‘ 

tr(FLGD0 .FO.O) CO TO 200 


AX1S1210 

127. 


WRITE <6, 170 ) 1,<B< J»,J=1,NT» 


AXIS1220 

128. 

170 

FORMAT (IHD 13H MATRIX A ROW 16/ U»l 

10F10.5I I 

AX:S1230 

129. 


WRITE (6, 18G 1 1 ,(D< J) vJ=l .NT> 


AX IS 12 40 

130. 

130 

FORMAT UHO 13H MATRIX P ROW 16/ CIH 

iDFia.sn 

AXIS1250 

131. 


WRITE 16, 190 ) J ,12( J» ,J=1 ,NT» 


AXIS1260 

132. 

19C 

FORMAT 1 IMG 13H MATRIX 7 ROW 16/ 1 IH 

*1 OF 1C. 5)1 

AXIS127Q 

133. 

2 CD 

CONTINUE 


AXIS120C 

134 . 


If (MN.CO.C.OI CO TO 250 


AXIS1290 

1 35.C 


* MACH NO. ADJUSTMENT 


AXIS1300 

136. 


Dl'MN^MN 


AX1S13 10 

137. 


02=1. -DI 


AX1S1320 

133. 


D3=SaRTl 021 


AXIS133C 

1 39 . 


[)4 = .7*D1 


AX I S I 3 40 

140 . 


D6=.2*D1 


AX1S1350 

141 . 


DO 21 C N=1,NSTG 


AX1S1360 

142 . 


DO 21 D T=1,NT 


AXIS1370 

143. 


TX=(T M,N»oCOSA( H-1 . )/D2 + l. 


AXIS136D 

144 . 


7 Y = 1 T 1 1 , N > * S TN A 11 1 ) / D 3 


AXIS1390 

145. 


T n ,N»=SORT(TX«>TX.TY*TY) 


AXIS1400 

146. 

210 

CP1I,N1 = ( 11 .♦DS’Ml.-T (I ,N)#Y21 »**3.S 

-l.)/D4 

AXIS141D 

1 4 7 . C 


9 EtlHINATE MAGH NO EFFECT 

FOR PRINTOUT 

AX1S14 2D 

148. 


00 220 I=1.N1 


AXIS1430 

149. 

220 

X11I1=X1 (1)#D3 


AXIS1440 

150. 


N=C 


AXIS1450 

151. 


J1=D 


AXIS1460 

152. 


no 240 K = l,Nfl 


AXISU70 

1S3. 


M=N*1 


AXIS1460 

154. 


N=N*ND1K )-l 


AXIS149D 

155. 


DO 230 J=M,N 


AXIS1500 

156. 


J1=J1+1 


AXISIS ID 

157. 


TI=X1 lJl+1 J-XIIJI ) 


AXIS! 5 20 

156. 


T2=Y11J1*1J-Y1 IJl ) 


AXIS 15 30 

159. 


X21J)=tXllJl*ll + XM J1 H/2. 


AXIS1540 

160. 


DELS I J» = 5QRT(T1«T 1*T2’>T2» 


AX1S1550 

161 . 


C0SA1J»=T1/0ELS1 Jl 


AXIS156D 

162. 

23S 

SINA 1 J) = T2/DELS1J 1 ..... 


AXIS1570 

163. 

240 

J1=J1 -*1 


Axisisao 

164.C 


» PRINT AXIS FLOW 10N-BOOV> 

OUTPUT 

AXIS1590 

165. 

2 50 

DO 45C L=1,NS1G 


AXIS1600 

166. 


K A = L 


AXIS1610 

167. 


IF (FLGie.LE.n «A=L-1 


AXIS162D 

“r60 . * 


'rFl'ri:G22 .GT, O *.0R. FCG'23* V6'T”;~'6 

VKA'*=“tr' 

AXIS163D 

169. 


1F1FLG22.6T.D1G0 TO 2 7Q 


AXIS1640 

170. 


SUMMlLJ=-6.2a318S3*5UHHlLl 


AXIS1650 



*f>r. 

00 260 J 1 , NT 



AX1S166D 

172, 

260 StJMTOSlL) = SUNTOSIL) ♦ H J ,L 1 S Idl 



AXIS167C 

‘173. 

270 1 = 1 



AX.t5160C 

^7^. 

J~1 



AX1S1690 

175. 

« = 1 



AXIS170D 

176* 

N=NDIKI 



AX IS 17 10 

*T77. 

LCTR=22 



AX15172C 

178. 

260 WRITE «6, ?9C IHEOH.CASC .PST 



AXIS1730 

■ 179"; 

290 rORHAt tlHl 25X, ?6f)DbUGLiSS AIRCRAPT COMPANY 

/ 


AXI 51790 

IBD. 

1 28X, 21HU0NG BEACH DIVISION /// 



AX IS 17 50 

lei. 

2 6K, 10A6 ,9X , lOHCASr NO. A6.1DH P5F = ,AM 

// 1 


AX1S1760 

182. 

IF <FLG22,ET.Q» GO TO 350 



AXIS1770 

*TB'3T' 

If <L,GT.1.0R.TLG16,Nr.O) GO TO 31Q 



AX IS 17 80 

16(«. 

WRITE (6, 300 1 



AXIS179D 

"ics; 

3CD FORMAT «1H 39H ON-BODY UNIFORM AXT SYMMETRIC FEOU ) 


Axisveoo 

186. 

to TO 370 



AX1S181D 

187. 

310 IF ITYPEAlMAl.ee. I. 01 CO TO 330 



AXJS1820 

tee. 

WRITE 16, 320 ) 



AXIS183C 

itf9. 

320 FORMAT IIH 99H FLOW GENERATOR * ROTATING BODY * 

TYPE 

ERROR I 

AXIS1890 

190. 

330 IF INUNA (KA 1 .Efl. 1239561 WRITE (6. 390 1 



AXI SI esc 

‘ 1 9j . 

390 format 127H ON-DODY STRIP VORTEX FLOW 1 



AXIS186C 

192. 

350 If iNUNA (KAJ .NC, 1239561 URITE16, 360 INUNAIKA) 



AXIS1870 

193. 

360 Format (iH 92H on-boo v non-uniform axisymmetric 

FLOW 

NO. 181 

AX1S1B80 

199. 

370 WRITE 16, 380 > 



AX1S1B9D 

"1 9‘5 ; ’ 

380 rORHAt ilH 5X 29M TRANSFORHEO COORDINATES tf 



AX IS 19 CO 

196. 

1 12X IHX 13X IHV J3X 2HT1 12X 

2HCP 

9X 5HSIN A 

AXI S19 10 

197. 

2 6X 5HCDS A 7t 5HSJGMA llX IHN 13X 3HPH1 

//I 


AXIS1920 

198. 

390 WRITE (6, 900 > I ,X 1 ( 1 1 , YU 11 , X2 < J ) , Y2 t J » , 

T U.Ll.CPI J,LI 

, AX IS 19 30 

199 . 

1 SINAIJI ,COSAtJI,SIGlJ,U,XNtJ,LI,PHUJ, 

L) 

Axr:>i99i: 

200. 

900 FORMAT UH T3,2F19.7/ 9X 9F 19 . 7 ,2F 11 . S ,3F 19 .7 1 



AX1S1950 

"201. ‘ 

■ i=ui 



A X 1 S 1 9 6C 

202. 

d= J* 1 



AX1S1970 

203.’ 

■ IF il .CO.Nl GO TO 910 



AX15198D 

209. 

IF II. LE .LCTR ! GO TO 390 



AXIS199C 

205V 

LCTR=LCTR*22 



AXI S20D0 

206. 

GO TO 280 



AXIS2D ID 

ior. 

910 M=M*1 



AXIS202D 

208. 

N=N»NniH » 



AXJS2D 30 

209. 

WRITE 16, 920 1 I, XU 11, YU 11 



AXIS2D90 

210. 

920 format IIH 13, 2F19.7 //) 



AX IS 20 50 

211 . 

UUl 



AXIS2060 

212. 

IF ( J - NT 1 390 , 930 , 930 



AXI 52070 

213; 

930 1FIFLG22.GT.01 GO TO 950 



AXIS2080 

219. 

WR1TEI6, 99G 1 SUHMIL), SUMV, SUMTOSILl 



AX1S209D 

'21&. 

490 FORMAT 1 iHD 1 OX 1 3H AOOED MASS =F20.7, 9X 9H VOLUME 

= F20.7, 

AXIS 

216. 

1 5X IflHSUM TTM0EL1A SI = E2C.7 ) 




*217. 

950 CONTINUE 



AXIS2I 20 

218. 

IF IIPUVEL .EQ. n» GO TO 960 



AXIS21 30 

Tl9 , 

WRi'fif i6;”72D .) " 



AXI521 90 

220. 

LOC = IDD 



AXI S2 I 50 

22n 

“ "CALL PUNCHC 1X2, NT, LOC, CASE 1 



AXIS21 60 

222. 

LOC = 500 



AX1S217D 

223. 

CALL PUNCHC 1 Y2, NT, LOC, CASE I 



AXIS218D 

229. 

LOC = 900 



AX1S219Q 

--^^5 - - 

CALL PUNcHV t T, NT, NSJC, LOC, CASE 1 



AXI5220D 

226. 

960 LL = 1 



AX1S2210 

227, 

IFIFLG23 .GT. CICALL COMBOILL) 



AXI52220 



-//S'- 


2za. 


ir«FLG05 .60. QiRfTURN 

AXIS22 30 

229. C 


• OFf-DOnY POINT 

AX1S2240 

230. 


ir (FLGl5.LC.OI GO To 500 

AX1S22S0 

231 . 


M = 0 

AX1S2260 

23*2. 


no 470 1 = 1 , NG ’ 

AXIS2270 

233. 

4 70 

IF INLm 1 .LC. 0> M = H ♦ 1 

AXIS2280 

23*1. 

' " 

If T M .CO, 'b 1 'GO TO 500 

AX1S229D 

235. 


HH = NNU * 1 

AXIS2300 

23a« 


1F(FLG23 .GT, LIMM = HM ♦ NNU 

AXIS231D 

237. 


DO 480 T = 1 , HN 

AX1S2320 

23a. 

4 8D 

RCAO (41 

AXIS2330 

239. 


If IFLG22.GT.C1REA0T4 1 

AX1S2340 

290. 


IF(FLG23.GT ,0 j CO TO 436 


241 . 


DO 482 J=1,H 


242.462 

RraOl 4||R0(1, Jl, l=l,NPi ,(T3«I tJl.I =l»TiP> 


243. 


CO TO 498 


244. 4G6 

IF((FiG 05.EO.I » .AMO. (FLG23.C0,lf .AND. (H.EO.IM REACI41 


245. 


81=0 


246. 


DO 495 kA=I,nS1G 


247. 


IFCNUNATKAJ .EQ, 1234S6» 81=M1«1 


248,495 

continue 


249. 


DO 49C J= 1 iMl 


250. 

49 j 

REA0(4I (ROCT.Ji.T = I,NP>, tT3(i,J»,T :: l.NPt 

AXIS236D 

251 .C 

MULTIPLY NOTS ONSET FLOW BY INPUT PV 


2 52. 


J1=H1 - FLG14 ♦ I 


253. 


1=0 


254. 


DO 496 


255. 


1=1*1 


256. 


pVSlNf =PVLAST (11 


257 . 


DO 496 11=1, NP 


268. 


RPdl.jl = PVSINF#Rb( II.JI 


259,496 

T3TII,J>= PVSINr*T3»lI.J» 


260.496 

REWIND 4 

AXIS2370 

261 . 

500 

DO 550 r = 1 , NP 

AX1SZ380 

262. 


L=0 

AX1S2390 

263.C 


• READ MATRICES X,Y,7 

AX 1524 00 

264 . 


READ (9) tAIJ>,J=l,NT>,fatJ).J=l.NT),fZ(J),J=l,NTI 

AX1S24 ID 

265. C 


* NO. OF FLOW 

AXIS242D 

266. 


00 550 N=1,NS1G 

AX1S2430 

267. 


KA=N 

AXIS2440 

26b. 


ir (FL0i6.Lr:.fi KA=N-i 

AXIS245D 

269. 


SY=0.0 

AX 1 52 4 60 

270 , 


SV=D.D ■ 

AX1S2470 

271. 


SP^O.G 

AX1S24S0 

272. C 


" ■ ♦NO, of ELEMENTS LOOP 

AXIS249D 

273. 


DO 51D J=1,NT 

AXIS250D 

2 74. 


SX=SX+A( J»«SiGI J, N) 

AXTS2S ID 

275. 


SY=SV*B( JI4S1C(J,N| 

AXI52520 

•276. 


iF(FLG23 .GT.OIZiJl =b.0‘ 

AX 1525 30 

277, 

510 

SP=SP*2( JMSIGTJ.NI 

AXI52S40 

'278, 


PHU I , Nr=fiP ■ - . . 

AX1S255D 

279, 


If <FLG22.GT.0f GO TO 530 

AXI52560 

■280, 


IF (rLGn.GT.ai go to 53d 

AXIS25 70 

281. 


IF TN.NE .1.0R.FLG16.GT.0I DO TO 520 

AXIS25BD 

TST." 


vxii.Ni = 5x*i. 

AXIS259D 

283. 


GO TO 540 

AX1526D0 

284. 

5 20 

IF 1NUNA(KA1.NC. 1234S6» GO TO '530 

AXIS2610 





T=nT 

AXIS2620 

2B6. 


VJUI iN>>SX»dDU .L 1 

AX1S2630 

"2 S’/ . 


■wyii,N» = SY*T3n,Ll 

AXIS2640 

2BS. 


60 TO 550 

AXIS265C 

289; 

53C 

VXli ,N» = SX 

AXIS2660 

290. 

540 

VVn»N> = SY 

AXIS2670 

**z^r . " 

5"50 

tMTlNUE 

AX152b0IJ 

292. 


ir IHH.CO.U.OI GO TO 500 

AX1S2690 

2'?3.C 


» H*CH Igo. aojusthent 

AXIS27C0 

29*t. 


DO 560 Nn.NSIC 

AXIS271D 

'295. 


DO 560 Irl.NP 

AX1S2720 

296. 


VYil ,NI = Vm,M/D3 

AXIS273C 

^97, ■ 

5 60 

VXII.H 1= (VS (l.Nl- 1.1/02*1. 

AXIS274D 

29B. 


DO 570 1 = 1 , NP 

AXIS27SD 

299. 

5 70 

XPn>rXP(II«D3 

AX152760 

300-C 


* COHPUTC VT ANO THETA 

AX152770 

301. 

58D 

no 590 N=l,NSiD 

AX1S270O 

302, 


DO 59C 1=1, NP 

AX152790 

303. 


VTn .Nt = SOriT( VXl I ,N)««2*VY<i,N»'*«2» 

AX1S2BDD 

309. 

590 

THII ,N1=ATAN2<VV( I,N» ,VX<I,N1» * 57.2957B 

AXIS201C 

306.C 


♦ PRINT AXIS FLOW «0FF-H0DY1 OUTPUT 

AXIS2B2C 

306. 


00 710 L=1,NSTC 

AXJS20 30 

307. 


KA = L 

AXIS204D 

3QB. 


IF«FLG16 .LC. CIKA = L - 1 

AXi':2e5D 

309. 


lF(rLG22 ,61. C .OR. FLG23 ,GT. 01 KA = L 

AXI5ZB60 

310, 


1=1 

AXIS2870 

3M. 


LCTR=43 


312. 

6C0 

WR1TC16, 29C 1HED'’,CASC,PSF 

AXIS2890 

313. 


IF tL.GT. r.OR.FLGlG.NC.O) GO TO 620 

AX1S2900 

314. 


ir»FLG22.CT.D) GO TO 65P 

AX1S2910 

31S. 


WRitC 16. 610 1 

AXU.29Z0 

316. 

610 

FORMAT (IH 3SH OFf-BOOV UNIFORM AXISYMMFTRlC FLOW 1 

AXIS293D 

317. 


GO TO 67 0 

AXIS294C 

318. 

6 20 

IF (TVPEAIKAI .GE .r.) GO 10 630 

AX1S295D 

319. 


WRITE (6, 320 1 

AX1S296D 

320. 

6 30 

IF (NUNA IKAI .EO. 1234561 WRITE <6, 64D 1, 

AX] 52970 

321. 

640 

format (20H OFF-GODY STRIP VORTEX FLOHl 

AXIS2980 

322. 

6 50 

IF (NUNA IKA 1 .NE, 1234561 WRITE 16, 660 1 NUNAIKAI 

AXIS2990 

323. 

6 60 

FORMAT (IH 43H OFF-BODY NON-UNIFORM AXISYHMETRIC FLOW NO. ,18) 

AXIS3OD0 

324. 

670 

WRITE (6, 600 1 

AXTS3D ID 

325. 

600 

FORMAT lilt 5X, 24H TRANSFORMED COORDINATES // 

AX1S302C 

326. 


1 12X IHX 13X IHY 13X 2HVX 12X 2HVY 1 2X ZHVT lOX 

AXI 530 30 

327. 


2 SHTHETA IIX 3HPH1 //» 

AXIS3040 

328. 

690 

WRITE (6, 70,0 1 I ,XP( I ),YP(1 1 , VX( I ,L1 ,Wy n , Ll.VTd.Ll . 

AXIS3D5G 

329. 


1 THM.L). PHKl.Ll 

AX IS 3D 60 

330. 

700 

FORMAT 1 IH 13 , 7F14 .7 1 

AX : 530 TO 

331 . 


1=1 + 1 

AXI530e0 

332. 


IF (I .GT.MP) go to 710 

AXIS3D9D 

333. 


IF (I.LE.LCTRl CO TO 69D 

AX1S31DC 

334. 


LCTR=LC1R+43 


335. 


GO TO 600 

AXIS312D 

336. 

710 

CONTINUE 

AXIS31 36 

337. 


IF (IRAKF .EO. 11 CALL RAKFLOIVX.VV.NSJGl 

AXIS3140 

■330. 


LL = C 

AX1S3I 56 

339. 


IF(F1.C23 .GT. DICALL COHeoaU 

AXI S3 160 

340. 


IFdPUVEL .EO. 0 IRETURN 

AXIS31 7D 

341 . 


WRITE (6, 72 n 1 

AXIS3ieC 



~1 m'rMWXTt ra nSriTTHT FOLLOWING NUMBCRS *RC IHC CARO-IHACCS IM«f cj 
3^3. 1»»UNCHCD MHCN THERE IS PUNCHED OUTPUT///I 

'3¥*i-; i~ec'"= '25'0'0 : ■ 


3<tS^ C«LL PUNCHC t XP« NPf LOG, CASE I 

"3A6V ”"t:«c"=-29oa — 

347. CAiL PUNCHC I YP« NP , LOG. CASE ) 

cor**=*-3ye& 


3AV. 

CALL PUNCHV 

< 

y!?*. 

,N^.„ 

NSIC. 

LOC. CASE t 

'J50. 

L"0C '= 4900 





351. 

CALL PUNCHY 

1 

yxi. 


NSIGt 

LOC, CASE 1 

3 52 ■ 
3S3. 

return ' 

END 







T AlflSSiSiO " 
AXIS3200 
AXlS32iO 
AXIS322D 
8X153230 
AXt532A0 
AX1S3250”“ 
AX1S326D 

AXIS32 70 

AXXS3280 
" AX 1 532 90 
AXIS3300 



-//a 


DASl 






20 

OCI 76 

1. 

SUDROUTTNE BASICI 





BASl 

2.C 







BASl 

3.C 







BASl 

4.C 


* READ DAI A AND SETUP FOR UNIFORM FLOW 


BASl 

5,C 







BASl 

hV 

COMMON 

/ NBSAVr / 

NBOLD, nin 




BAS) 

r. 

COMMON 

/BLOCK 1/ 1 GE0MFI9»,lSIGr«9) ,IPNCHF,N0NEU(9 > 


BASl 

' ii. 

■ COMMON 

/BL0CK2/ HCURV 1500) ,HARC«5aa» 



DASl 

9, 

COHMON/CURVRR/ 1EL2 






lb. 

COMMON 

HEDRIIO) ,CASE 

,NB 

,NNI) 


BASl 

11. 

1 

,FLG03 

,FLG04 

,FLGC5 

,FLODO 

,FLG07 

BASl 

12.* 

2 

,FLG08 

,FLGD9 

,FLG10 

,FLG1 1 

,FLG12 

BASl 

13. 

3 

,FLC1 3 

,FL014 

,FLG15 

.FLG16 

,FLG17 

BASl 

14. 

4 

,FLG1B 

,FLG19 

,FLG20 

,FLG21 

,FLG22 

BASl 

IS. 

5 

,FLG23 

,FLG24 

,riC25 

-FLG26 

,FUG27 

BASl 

16. 

COMMON 

NT, 

ND(ll), MN, 

NUNA(5I, TYPCA(5), 

BASl 

17. 

1 

NERl , 

NER2, NHA, 

NSIGA 

NSIGC, 


BASl 

'18. ■ 

2 

' NUNCtS) , 

TYrCC(5) , NLF( 1 1), ICC, 

NS I GEC 


BASl 

19. 

3 

TYPEECI5 ), 

NUNEC(S) 




BASl 

20. 

DOUBLE 

PRECISION HCDR, CASE 




BASl 

21. 

INTEGER 

FLC0 3 

,rLC04 

,FLGD5 

, FLOG 6 

,FLGD7 

BASl 

22. 

1 

,FLGOe 

,FLCD9 

,FLG10 

,FLG1 1 

,FLG12 

BAS 1 

23. 

2 

,riGl 3 

,FLG14 

,FLC15 

,FLG1 6 

,FLG17 

BAS] 

24 . 

i ' 

.FLG18 

,FLG19 

,FLG2C 

,rLG?i 

,FLC22 

BASl 

25. 

4 

,FLG23 

,ELG24 

,FLG25 

,FLG26 

rFlC?7 

BASl 

26. 

DIMENSION COSSORTSDDl, RHS<5DD) 




BASl 

27. 

real 

MN 





BAM 

28.C 







BASl 

29. 

COMMON 

/CL/ XH5D0), YU5001 , 

X2(500> . 

Y2(50C), DELL(SOD) 

, DASl 

30". 

‘1 

SlNA<50fc!),C0SA<5d0) 

,XP(500), 

vp(Sbc) 


DASl 

31. 

2 

,XWAKE( 1 ll,VUAKEm ) 




DASl 

32. 

COMMON 

/TL/ TXl !5C0 ), TYl (500) , 

NG(5D0), 

TG(500), ALFAISOC) 

, BASl 

33. 

1 

RSDSTSnC) ,0ALF(5O0) 

, 



BASl 

34. 

2 

CHORD 

, TEMP (6 DO) 

,TCNST, 

DUMMY (59 1 5) 


BASl 

35. 

COMMON 

/BLOCKR/ NRAKCS,RNAMEI2 0,9 ) ,RAKEA (20 ) 

,RUNITX( 2E) 

t 

DASl 

■ 36 .' 

1 RUNltY(2DI ,RDS( 2 01 

,NRPtS(2D) ,C0STH(2D),IRAKF,N0Fr,X IR(20), 

RASl 

37. 

2 VIRI2D»,X2p(2Cf,Y2R»20> 




BASl 

38. 

DIMENSION UrxUSQDl 

,U1Y1 (500) ,X(5CO),Y4SOO) , 

DELLS045C:) 

f 

BASl 

39. 

1 HCURV0(5O0l 





BASl 


4D. EOUlVALENCr (UTXIU) , DUHKY ( 1 M , lUTY 1 (1 ), DUMMY! 501 II. (TX 1 1 1 I ,X (1 ) I ,BAS 1 

Ml. 1 ITYIUI ,Y! 1 n .CDELLSQUl.OUMMYUDDin ,IHCURV3 < 1» ,0UHMYn5Din QASl 

•*2. INTEGER BDN ,SUBK5 BflSl 

‘t3. REAL MX tMY ,NG BASl 

44. LOGICAL NONEUtNORAKS DA 51 

*(D. DATA LCHAX/4r-/ . 

•tG.C NOTE THE HALF-ARC LENGTH ARRAY tHARCI SHOULD NOT BE CONFUSED WiTH RASl 

47^C the ISTRAIGHT LINE) FULL-ELEMENT LENGTH ARRAY «DELL». SINCE THE FIRST BASl 
'‘48.C 'TS MEASURED ALONG THE ARC WHILE THE SECOND IS NOTHING MORE THAN THE BASI 

R9.C STRAIGHT I INE DI S TANC E B C TWEEN THE CLEMENT ENDPOINTS. NOTE HT BASl 

50. C STRAIGHT LINE DISTANCE BETWEEN THE ELEMENT ENDPOINTS. NOTE THAT EOR BASl 

51. C THE FLAT ELEMENT CASE, THESE DIFFER ONLY BY A FACTOR OF 2. IN SOME BASl 

U.C ROUTINES (ESP. XV7, XYZl, XYZ2» DELL IS CALLED DELS IN COMMON /CL/. BASl 


53. C RASl 

54. C * * START BASl 

55. NT=0 BASl 

56 r J1=0 BASl 


I 4 
20 
ID 
30 
MO 
50 
60 
70 
BO 

9D 
1 00 
1 ID 
1 20 
1 3D 
14D 
150 
1 60 
170 
I UO 

1 90 
200 

2 ID 
220 
2 3C 
2 40 
2 5C 
260 
270 

2 BE 
29D 
30D 
310 

3 20 
330 
340 
3 5D 
3 6C 
3 7C 

3 80 
390 
4CC 
420 

4 30 
440 

4 50 
4 60 
4 70 

4 80 
i, 90, 
5:00 

5 n: 
S20 
530 
540 
5 50 



// 9 - 


57. 

K2=NB 


BASl 560 

se* 

IfLl = 1 


BASl 570 

59. 

Ifl NIN .FQ. 01 NIN = 5 


BA51 560 

6Q. 

IF 1 JFLG05.NC ,0) ,0R. nR»Kr.CQ.l>> Ki = NO ■* ) 


PASI 590 

51 . 

NORAKS r .TRUE, 


BASl 600 

62. 

IF lIRAKf .eo. 1> NORAKS = .FAl.SC. 


PASJ 610 

63. 

Norr s D 


BASl 620 

6<«.C 

9 MAJOR LOOP • NO, OF BODIES ♦ OFF BODY 

POINTS 

BASl 630 

65. 

LCNT = 0 


DASl 6"0 

66 . 

00 513 t = l ,K2 


BASl 650 

67. 

READ 15, 10 1 IGCOMF (LI ,lSICriL»,ICURVN,NONCRr ,IFORMT , 

BASl 660 

68. 

1 NN.MK ,MV,TMETA ,ADDY,ADDY 


BASl 670 

69. 

10 FORMAT(5Il,I5,5r in.OI 


BASl 680 

70. 

NONtW(L) = .FALSE. 


BASl 690 

71 . 

IF INONENF ,C0. 11 NONE«t|. » = .TRUE. 


BASl 70D 

72. 

IF ((L.E0.(NB*1M .AND. (FLCD5 .FO.O > » 00 TO 190 


BASl 710 

73. 

READ (5, 20 1 OON,SUOKS,NLF(L),XE,YE 


BASl 720 

79. 

20 FORMAT 1 3( 5X , 151 , 7F 10 .0 1 


BASl 730 

75. 

NDILirNN 


BASl 790 

76. 

IF IBON .CO. PI NOFF = NN 


BASl 750 

77. C*** •••NOiLl IS THC NU9BE(? OF POINTS ON 00t*Y 1. OR THE 

NUMBER OF OFF 

BAS! 760 

78, C*** ♦♦•BODY POINTS FOR L NR ♦ 1 


BASl 770 

79. 

IF IBON .CO. Dl CO TO 30 


BASl 760 

60. 

M = NN “ 1 


BASl 790 

61, 

1CL2 = ItLl ♦ M - 1 


BASl 600 

62. 

30 CONTINUE 


BASl 810 

63. 

IF (SUBKSI 90 , 70 , 90 


BASl 620 

BM. 

90 irt L .NE. K2 1 r>0 TO 60 


BASl 850 

65. 

NflMCS = NBOLD - NB 


BASl 690 

66. 

IFl NTIMES .LC. C 1 GQ TO 60 


BASl 8S0 

67. 

DO 50 NSKIPS = i, NTIMCS 


BASl. 860 

68. 

50 READ 113) 


BASl 870 

69. 

fcC READ (13) (U7Xim,l=l,NNI,fUTrlm,I=i,NN) 


BASl 680 

90. 

GO TO 150 


BASl 890 

91. 

70 IF IBON.EO.P) CO TO ICO 


BASl 900 

92, 

IF (FLG07) 80 , 100 , 80 


BASl 910 

93. C 

• ELLIPSE (JENERATOR FOR XI AND Y1 


BASl 920 

99. 

6D IF txr.EQ.0.0) XE=1. 


BASl 930 

95. 

IF IYC.FQ.0.0) YE=1. 


BASl 990 

96, 

EN=H , 


BASl 950 

97. 

0GAH:3. 191593 /EN 


BAS) 960 

96. 

GAM=3 .19 1593 


DASl 970 

99. 

DO "90 1=1, NN 


BASl 980 

100. 

UTXK I) = XE*COS(CAM) 


BASl 9 90 

101. 

UTVkI) = YE*S1H(CAM) 


BASllDOO 

1 02. 

90 CAM=CAH-DOAH 


DASllD 10 

103. 
109. X 

GO TO 150 


BASl 1020 
BAS11030 

lOS.C 

* READ XI AND Y1 FROM INPUT CARDS 


BAS11D90 

106. 

ICO IF IlFOPMT .CO. 2) GO TO 120 


DAsnoso 

107. 

108. C 

IF (IFORMT .EO. 1) GO TO ilO 


BAS11D6D 

BAS11D70 

109. C 

IFORMT^O ... 


BAS11080 

110, 

READ (NIN, 710 1 (UTX 1(11, 1=1, NN) 


BAS1109D 

111. 

READ (NIN, 710 1 (UT V M I ) , I =1 , NN) 


BASinOO 

112. 
113. C 

GO TO 130 


BASlll 10 
BAS11120 





•lH.c 

frORHT-1 ... 



pAsuno 

115. 

no READ (NIN, 790 1 (UT Ml 1 I> , UT V 11 1 1 , I . NN > 



BAS11140 

116. 

on TO 13D 



BASH 1 50 

1 17. C 




BASllI 60 

1 18. C 

IF0RMTS2 ... 



BASTl 1 70 

119. 

120 READ (NI N. BOD 1 (UT X HI 1 ,UT V H I 1 ,1 =1 , NN » 



BASl IIBO 

iiro.c 




BAS1119D 

121. 

130 IF <L .NE, <NB«IH RO TO ISO 



CAS 11 200 

122. 

IF IIRAKF .NE. 11 GO TO 150 



DAsm IC 

12i C 




0AS11220 

124.C 

REAP IN automatic MASS FLOW RAKE GCNEPATION INFORMAtniN 

• «9 

BASl 1230 

125. 

READ 15, 20 1 NN 



DAS1124C 

I26*. 

140 NPAKES = NN 



BASl I2SQ 

127. 

NI = NOFF ♦ 1 



RAS11260 

123. 

CAtt 1RAKES1UTXHN11 , UT Y 1 1 N H ,NNR » 



BAS11270 

129. 

NN = NOFF . NNR 



BASl 1280 

«30. 

NDILI = NN 



BASl 1290 

131. 

FLCD5 = 1 



BASl 130C 

132. 

BDN : 0 



BASl 1310 

133.C 




BASl 1 320 

134. C 




BAS1133D 

135. C 

1N1T1ALI2F ELEMENT CURVATURE VALUES ... 



BAS113MC 

136. 

ISO DO 16C n=l ELI. TELE 



BAS113SC 

137. 

160 HCURVdll = 0.0 



BASl 136C 

133.C 




BiS1137C 

139. 

IF tICURVN ,E0. 01 GO TO ISC 



BA Sin BE 

14D. 

READ ININ, 710 > IHCURVm»,II=IELl,ICL2» 



BASin9C 

141 . 

DO 170 I1=IEH,IEL2 



FAS 11 4 00 

142. 

170 HCORVdll = O.SRHCURVmi 



BASm 1C 

143. 

180 CONTINUE 



BASl 142C 

144. C 




BASlli(30 

145. C** BODIES NO. (NB-rt.6 1 M-* H TO tNB) ARE PRESCRIBED 

VORTICIT > BODIES . 

BASl 14 40 

146. C 




BASl 14 50 

147. 

IF « FLG23 .Lr. D .OR, t L.LE .NB-FLGl 4 .OP 

. L .CT. 

NBl ICO TO 

19CBAS1146G 

148. C 




BAS 114 70 

149.C«»« ♦ IF CONTROL RLACBCS THIS POINT, RING WING OPTION IS 

IN EFFECT 

ANDBASl 14 80 

150.C*>»R *L IS A PRESCRIBED VOPIICITV BOOT 



DAS114 9C 

151. C 

♦** LENT IS THE RFLATIVF NUMBER OF THE WAKE 

BODY STARTING UlfH 

1 DAS11500 

152. C 




BASl IS 10 

153. 

LENT = LCNT ♦ 1 



BASl lS2;i 

154. 

XWAKEfLCNTI = UTXHNN) 



BAS1153L 

155. 

VUAKCILCNT) = UTVHNNJ 



BASU540 

156. C 

* SAVE XI AND VI FOR SUBCASE 



DASmSL 

1ST. 

190 IF ISUDKS.EQ. El URITE (13 MUTXl «1 » , I = 1,NN), niTYl 11 1 ,1 

= 1,NNI 

BASUS6C 

158.C 




BAS1157C 

1S9.C 

CALCULATE TRANSFORMED COORDINATES ... 



BAS115EG 

160. 

DO 2CC: I =1,NN 



BA51159C 

161 . 

1X1 n » = uTxi m 



BASl 160C 

162. 

2C0 I VHI I = urvi u> 



BAST 16 1C 

1 63 . C 

NOTE THAI (X ANC TXH AND (Y AND TYl) ARC EOUI V aLFNCEO. 


CAS1162C 

164.C 




BASn630 

165. 

IF (MX .EO. O.Ct ro TO 220 



BASl 1643 

166. 

DO 21 r I=I,NN 



BAS1165D 

167, 

210 1X1(1 1 = TXl ( n Vt NX 



BAS1166C 

168. C 




PAS1167C 

169. 

22D ir (MY ,C0. Q.Cl GO TO 24Q 



BAS1168C 

17D. 

00 23c 1=1, NN 



BAS1169C 





1 71 

172. C 

173 . 
17 <«. 
175 * 

176. 

177. 
176. 

174. 
leo.c 
181. 
182. 
183. 
18U.C 

185. 

186. 

187. 

188. C 

189. 

190 . 

191. 

192. 

193. C 
199. 

195. 

196. 

197. 

198. C 

199. C 
2DD. 
201 . 
202 . 
203. C 
209. C 

205. 

206, 
2G7. 
208. 

209. 

210 . 
211. 
212 , 
213. 
219. 

215. 

216. 

217. C 

218. 

219. 

220 . 

2 21. 
222 . 
22 3.0 
229.0 

225. 

226. 
22 7. 


. *230 iVlil i = tvnn* rtf — 


290 IF (1HCTA .CO. O.oroo'fo 26T 
CT = C0S«THEU/57. 295781 
* St = SlrtltHCli/S7.T9*SfSt ' 
00 250 1=1. NN 

tcrtpi '= Tfinr” 

iJtmi r ICMPUCI 0 TYKIMST 

250 tvlfii = tnii»*ct - fcrtipr^Sf 


260 IF lADOX .CO. 0.01 00 TO 2S0 
00 270 I=1,NN 

270 IJ/IMI = TXini ♦ A'O'Dli " 


200 IF lADOY .CO. C.Ol GO to 300 
00 290 1=1, Krt 

290 lYHIl = TTKil ♦ ADDV “ ’ “ 

300 i‘f I (chord.eo.0.01 .orV Tci«RDrcQ7iTo'i > 

00 31D T=i,NN 

fxiill = TXim'/ CHORD ' ' 

310 TYllIl = TVim / CHORD 

320 IF INN .EO. 0.01 GO TO 390 

BETA = SORT rtMArtrt't ■■■"“ ' * * 

DO 330 1 = 1. KN, 

33C TXllM = TXlill / BETA 


390 NNMl = NN - 1 

NNH2 = NN - 2 ^ 

IF IBDN ,E0. Cr GO TO 950 

calculate flat CLEMENT LENGTHS, ETC. ... 
DO 350 I =1, NNMl ' ' 

II = lELJ +1-1 
DELX = XII*li - xiil 
DELY = Vn*ll - Ylll 
DELLSOIII = DCLXYDELX **OCLy*DELY 
OELLlin = SORTIDELLSOIIM 
= DELL(iri/2‘.b 

ixm *- x(i«iii / 2.0 
(fill ♦ Yii^iii / 2.0' 

= OELX / DELLIIll 
= DELV / DELLIlii 
3S0 ALFA! II " AT AN2I DfLV , OELXI 


HARCl III 
X2ITII = 
721111 = 

cosAi in 

SINAI 11) 
ALFAIII ~ 


OALFI II =0.0 

DO 360 1=2, NNMl 

360 OALFIII = (ALFAUI - ALFA(1-1II * 57.29578 
IF lIGEOMFILi .NE. 01 GO TO 910 
IF IlCURVN .NE. 01 GO TO 390 


calculate TH^ HALr-CURVATURES VALUES OF 
DO 370 I=1,NNM2 
II = TELl * 1 - 1 
J = I ♦ 1 


ALL IHE inn-2 1 possible ARCS. 


BAS 11700 
8AS11710 
BAS1172D 
RAS11750 
bA5ll790 
BAS1175D 

'bash? 60 

BAS1177D 
BAS117S0 
BAS1179D 
BAsiieoo 
Rj^iie 10 
BASM8 2b 
BAS11830 
BAS11890 
BASt.1850 
BASUB60 
BASilS70 
BA St 18 80 
BAS11B90 
BAS1190D 
BASmiO 
SAS1192D 
BASU930 

'BASil99D 
BAS1195D 
BAS11960 
BAS1197D 
BAS1198D 
BAS11990 
BASi2D00 
BAS1201Q 
BAS12D20 
BAS12D30 
BAS12090 
BAS12D50 
BAS12060 
BA SI 20 70 
BASi2080 
BAS12D90 
BASIZlOO 
BAS121 10 
BAS1212Q 
BAS12130 
BASI2190 
BAS] 21 SO 
BASI2160 
BASI2I70 
BASi2l8D 
BAS12190 
BAS12200 
BAS12210 
BAS12220 
BAS12230 
BAS12290 
BASI2250 
BAS12260 


1 





228. K = I < 2 

229. D = 4,0*n)(( J»-Xm)0(Ytai-Y<Kn-nflJ>-X(Kn*«Yl JI-Y (TM » 

23D. IJM = 2.0*<«xm*xni ♦ Yni«YfII»*IYIKI - YUn ♦ 

231. 1 iX<JI«K4,JI ♦ Y« J>*Y< JM*«Yn» -YIIO) ♦ 

232. 2 <X(KI*XIK) « Yl K >« V ( K M « I V I Jl - Vim I 

233. (3K = 2.0*HXni9X (1 > « Y III 4V 1 1 »»♦ I X ( J> - XIKII ♦ 

23<<. 1 IX<J)«X(JI « YIJKYI JM«(XIKI - XIIM * 

235. 2 IX4MI«XIK| ♦ Yl K )* Y • « I I *«X 1 1 1 - XIJII ) 

236. R = SORT! I Dox IJ I -DH I ♦*? ♦ I0*Y IJ I -DK I **2 I 

237. HCURVOnil.r -C.5 * D / R 
2 3fl. J7C! CONTI NDC 

2 39 . C 

29U.C NOW COHPUTE IME; RrOMLTRIC MCANS OVER THE 2 ARCS lEXCEPl T CR THE 
2m. C FIRST AND LAST! ... 

292. HCURVirCLJI = HCURVDIICLII 

2<t3. HCURVUEL2) = HCURVD I lEt 2-1 1 

249, DO 3BC I:2,NNN2 

295. n = lELl *1-1 

296. H1H2 = HCURVDIII--ll*HCURVOlil» 

297. If IH1H2 .GT. C, 0 1 GO TO 385 

298. HCURVIII I = O.D 

299. CO TO 3B0 

250. C 

251 . 305 HCURVmi = SQRTIH1H2I 

252. IF IHCURVOiril .Lt. 0.01 HCURVCTII =-NCURV(II» 

253. 380 CONTINUE 

259. C 

255. C NOV CALCULATE CONTROL POINT LOCATIONS AMD HALf-ARC LENGTHS ... 

256. 390 00 90D I-l.NNNl 

257. II = TELl + 1 - 1 

258. ETAQ - -MCURV (I IlflOELLSOll t / 9.0 

259. X21II1 = X2UII - ETAC9S1NAUII 

260. Y21IM = Y2MII ♦ rTAC*COSA(lT» 

261. 9C0 HARCIII) = iOCLLITII/2.l*ll.D ♦ I HCIIRV 1 1 1 I ♦♦2 I 9DELLS 0 (I ) 7 6.C 

262. C 

263. C CAN NOW COMPUTE RUNNING ARC LENGTHS ... 

269. 9ln RSDSlil = 2 . ♦PARC 1 1 ELI I 

265, DO 92r I=1,NNH2 

266. 9 20 RSDSlimi - RSDSlil ♦ 2.*MARC11FL1 ♦1-11 
26 7. C 

268. C PRINT THE RESULTS FOR ON-BODY POINTS ... 

269. LC = tCMAX 

270. DO 990 I=1,NNM1 

271. 11 = TELl * I - 1 

2 7Z‘. IF ILC .LT^ LCMAXl GO TO 930 

273. LC = r 

279. WRITE 16, 72C I HEDR , NN ,HX ,MV .THETA , ADDX ,ADDV , XE , YE 

275. IF IIGCOMFIL I .EO.OI WRITE 16, 620 I IGEOHFIL) 

276; IF UGEOMFILI .NE . Cl WRITE 16, 630 I IGEOHFILI 

277. IF USIGFILI .EQ.OI WRITE 16, 690 I ISICFILI 

278. IF llSIGFlLi.rQ.il WRITE 16, 650 I ISIGF.ILI 

279. IF I ISIGFILI .GE.2 I MR1TE(6, 660 I ISIGFILI 

'280. IF llCURVN.tQ.CI WRITE 16, 670 I ICURVN 

281, IF UCURVN.NE.OI WRTTC 16, 6b0 I ICURVN 

28“2. IF i. NOT. NONEUlLli UPETC 16, 690 I 

283. IFINONEWILM WRITE16,7D0I 

264. URITE16,760I 


BAS12270 
0AS12280 
DA512290 
BA512300 
BAS123 10 
BA5I232D 
DAS1233C 
BAS12390 
PAS123 5D 
DAS12360 
BAS1237C 
DASI2360 


DAS12900 
CAS129 1C 
PAS1292Q 
nAS12930 


BAS1295C 
BAS12960 
DA 51 29 7C 
BASi29ea 
nA512990 
BAS12500 
BAS1251C 
I BAS1252D 
DASI253D 
PASI2590 
PAS125S0 
BAS12560 
CAS1257Q 
DAS12S8C 
BAS1259Q 
GAS1260C 
RAS126 ID 
DAS 12620 
BAS 126 30 
PAS12690 
BAS12650 
BAS12660 
DAS1267C 
BASI268D 
BAS1269G 
BAS127DD 
BAS1271D 
BAS12720 
DAS 127 30 





“ /^3 


265. 


WRITE <6, 7301 


26^.430 

WRITE (6. 740 > I.UTKin T.UTVKII.TXI m.TVim 


287. 


CURV r 2.0«HC1JRV<III 


2BB. 


ARCL = 2.0*HAPC11 II 

BAS12790 

289. 


WRITE (6, 750 I K2( 11 » ,V2 « 1 1 1 . »RCt ,RSDS 111 .OAtF « I), CURV 

BAS12800 

290. 

4 40 

LC : LC ♦ 2 

BAS12B 10 

291. 


write (6 , 740 I NNtUTXKNNIiUTTlINNi.TXKNNI.TYHNNI 

RAS12620 

292. C 



BAS12830 

293 . 


GO TO 490 

BAS12B40 

299. C 



BAS1285Q 

295. C 

PRINT RCSULTS FOR OFF-SODY POINTS ... 

BAS12660 

296. 

4 50 

LC = LCMAX 

BAS12870 

297. 


IRAKE = 1 

BA5128S0 

29B . 


IPPT = 0 

BAS1289D 

299. 


DO 473 1=1,NN 

BAS1290D 

300. 


IF ILC .LT. LCMAXI GO TO 460 

BAS129 10 

301. 


LC = C 

DAS12920 

302. 


WRITE (6 , 720 1 ((EOR , NN ,HX , H¥ ,T HET A , AODX , ADOY , XE , YE 

BAS12930 

303. 


WRITE «6, 770 I 

BAS12940 

304. 


WRITE t6, 7BD ) 

BAS12950 

305. 

4 60 

WRITE' »6, 740 1 J ,UTXI 1 1 1 ,UTYl III ,TXU 1 1 ,TY1(I I 

PAS1296D 

3 06. 


IF TNORAKSI go to 470 

BAS12970 

307. C 



BAS12980 

3 08. 


IF (I .LC. NOrn GO TO 470 

QAS12990 

309. C 

THIS HOST tit ANOTHtR RAKE POINT 

6AS13000 

310. 


IF (IRPT .EQ. Cl WRITE <6, 610 I < RNAMC T IR AKE » 1 1 1 , 1 1. = 1.9 I 

DAS1301D 

311. 


IRPT r IRPT . 1 

BAS J3020 

312. 


IF tIRPT ,LT. NRPTSIIRAKEII GO TO 470 

BASI303Q 

313. 


IRAKE = IRAKE ♦ 1 

0AS13O4O 

314. 


IRPT = 0 

BAS13050 

315. C 



BASl 3060 

316. 

4 70 

LC = LC * 1 

BAS13Q70 

317.C 



BAS13080 

318. C 



BAS13D9D 

319. 


DO 400 1=1, NN 

BAS13100 

32Q. 


XPIII =TX MI 1 

BAS13110 

321 . 

4ec 

VP(IT=TYMI| 

BA SI 31 20 

322. 


WRITE »I2) IXpm ,1 = 1 ,NNI,tYP(II,I = l,NNI 

BAS13130 

323. 


CO TO 510 

BAS13140 

324.0 



BAS131S0 

325. C 



QAS1316D 

326. 

490 

DO 500 1=1,NN 

BAS13170 

327. 


Jl = J1 1 

BAS13180 

328. 


XUJll = TXMII 

BAS1319G 

329. 

500 

YltJl 1 = TYMlI 

BAS13200 

3 ‘30. 


NT = NT ♦ M 

BASI3210 

331 . 


lEll = IEL2 ♦ 1 

BAS13220 

332. 

5 10 

CONTINUE 

BAS13230 

333. 


URITET7,222 j CASE ,FLG 15 ,1 GEOMF 11 » , ISlGFll I .TCUPVN .NONFWF 


334.222 

F0RNAT|A6,51 1 1 


335. 


REWIND 13 

BAS1324D 

336. 


IF 1FLG14.LE.CI GO To 580 

BAS1325D 

337. 


IF 1FL614.LE.NBI GO TO 530 

BAS13260 

336. 


WRITE 16 , 520 1 

BAS13270 

3 39. 

5 20 

FORMAT «45H1vALUE OF FLG14 EXCEEDS NO. OF BODIES. STOP. 1 

BAS13280 

340- 


STOP 

BASl 3290 

341 . 

530 

IF 1FLG14.NE.NBI GO TO 540 

BASI33D0 





■ITT?.'"* NMA=D ■ 

3<43. CO fO 560 

S*IC L = rjp-FLGl«l 
3^5. NMA = -L 

3<i6. DO 550 I = I, L 


ntS!33lO 

DAS13300 

BA5I3330 

BAS1334C 

BAS13350 


***NHA BCCOHCS THE NUMBER OF ELEMENTS ON THE 1ST L BODIES UE THOSEBAS 1 33 60 


«*«NOT HAVING AN INPUT VORTICITV OR VELOCITYT 
3V9. 55? NMA = NMA ♦ NOU I 

350.C0** **ONR BECOMES THE NUMB CR OF ELEMENTS RFCEIVING 

351 *«»0R VELOCITY 

35Z.' 560 NR NT-NMA 

353. IF TTCNST .GT.C.TGO TO SBO 

35ij. Do '570 I = 1,NR,6 ’ “ 


AN INPUT VORTICITY 


355. 

356. 

357. 

358. C 

359. 

360. 

361. 

362. C 
3 6 3 . C 
369. 
365. 
'366. 

367. 
368 . 

369. 

370. 

371. 

372. 

3 73. 

3 79. 

375. 

376. 

377. 
370. 

379. 

380. 
3B1 . 

3 82. 
383. 
389 , 

385. 

386. 


I TGn»,TGn*ll,T6»l«2»,TCTI*3»,TCTI ♦9» ,TGn*5» 


READ <5, 710 
570 CONTINUE 
580 CONTINUE 

* SAVE PARAMETERS 

UPITE 112) ( Xltl ) ,l:=l .JI ),<YM n .1=1, JIT .<XZ( I ) ,l::l .NT) 

1 .1 Y2tl ) ,lzi .NT), I DELL ill ,1=1 .NT > 

REUIND 12 

* SAVE SINA AND C05A ON TAPE 9 FOR CALC. OF MATRIX 
SOLUTION (RIGHT HAND HATRIXl 

WRITE (91 (SlNAm,I=l,NT),(COSAII),l = l,NT) 

IF ( FLGl<Jl 600 , 600 . 590 
590 ir nCNST.CT.D.O ) WRTTE(9) (TCNST ,I = 1.NR ) 

If 1TCNST.LE.0.) WRITE) 9) (TG(I), 1=1, NR) 

600 IF )FLG22.Lr.C) RETURN 
NPOl = ND(1 ) - 1 
bo 610 I = 1 ,NPB 1 
COSSORd I = COSA( T)*<'2 
6llj‘'RHS«I ) = 2.0 9 ADS( SlNA(i) * COSA (1 > ) 

WRITE(9) ( COSSOR (1 ) , 1=1 ,NPB1 ) , (RHS(I).l = l^NPBl) 

RETURN 

620 FORMAT(29HCCURVCO EL E ME N IS I TOE OMF = , II , 1H ) ) 

63D F0RMAT(Z2HCFLAT ELEME NTS ( IGC0MF = , 1 1 , 1H ) ) 

690 FORMAT (1H*,3DX,93HPTECEWISE-PARAI10L1C SOURCE DC NS ITT E S)1 S I GF^ , 1 1 , BAS13660 
1 IH)' ) BA51 3670 

650 F0RHATnH«,3DX,9aMPIECEWISE-LTNEAR SOURCE DENS 1 T I ES ( 1 SI GF= , 1 1 , IH ) ) B A S 1 3 6 80 
660 F0RMAT(lH*,30X,92HPlECEVaSE-C0NSTANT SOURCE DENSl T1 E S (I S I GF = , I 1 , DASI369C 
1 IH) ) BAS 13700 

670 FORMAT(lH*,80y,96UINTERNALLY-C0HPUTCD ELEMENT CUR V A T URES (I CUR VN= , GAS1371G 


BAS13370 
BAS13380 
(IASI 33 90 
BAS13900 
BAS139 ID 
BASI3920 
BAS13930 
DAS13990 
BAS139 50 
BAS13960 
BAS139 70 
BAS13980 
DAS1399D 
0AS135OD 
BAS1351D 
BAS1352D 
BAS1353C 
BASI3S90 
0AS135SD 
BAS1356D 
BAS1357C 
BAS135SC 
BAS13590 
BAS1360D 
BAS13610 
BAS1362Q 
BAS1363D 
BASI369D 
BA5I365P 


1 Tl.lHl ) 

680 FORHATmH,eC;X,37HUSER-INPUT ELFHENT CUR VA TURCS ( I CUR VN=, 1 1 , J H ) 
690 F0RMAT(32H NEW VELOCITY FORMULAE ARE USED. ) 

700 FQKMAT(32H OLD VELOCI TY FORMULAE ARE USED. ) 


) 


387.710 F0RMA7(6E13.ai 

388. 720 FORMAT ( IHl Z5X 26H00UGLAS AIRCRAFT COMPANY / 

389. 1 28X 21HL0NC BEACH DIVISION It 5X 1DA6 tt 

390. 2 8X 9HNN = 19, 15X 9HMX = F13.7, 9X 9HMY = F13.7 / 

391. 3 5X 7HTHETA = F13.7. 9X 6HADPX = F13.7, 2X 6HAD0Y 

392. 9 ax 9HX£ = F13.7. 6X 9HYE = F13.7 ) 

393. 730 FORMATdH , 6 X ,9 1 H 99*U NT RAN SFORMFO^ TR A NSF ORM ED #«♦ , / 1 H 

399. 1 nx, JHX ,10 X, IHy , IDX , 1HX,10X,1HY,7X,6HX C.P. .5X.6HY C.P..5X, 

395. 2 7HDELTA S , 5 X , 5H S UMO S ,5 X ,7H0 ALPHA ,3X, 9HCURVATURE / ) 

396. 790 FORMATdH .I9.9F11.S) 

397. 750 FORMATdH ,98X,6F11. 5) 

398. 760 F0RMAT(1HD,9X,37H0 N-BODY COORDINATES) 


B AS I 37 20 
6AS1373C 
BAS1379D 
BAS137SD 

BAS 13 7 70 


BAS1379D 
F 13.7/BAS138DD 
BAS13B1Q 
BAS1382 
BAS1383D 

BAS13850 
BAS13860 
BAS13870 



■J99, 

i|OQ. 

%'Di. 

«Q2. 

904 . 

'iros. 




770 roftHATIlHO,7X»39HO rr-OOOY COORDINAIESI BAS13880 

7B0 rORHAT <lHD,bXt41H***UNTRAN&F0BH ED** * TRANSFORUtD ***,/lM . BAS13890 

1 ll)t,lHX,lDX/iHVrro¥/lMX,lDX%i1B^^^ ' " 'BAsi39bb 

790 FORMAttZFlO.SI BAS13910 

ebo r6R(iAnFib.5,icx;Fio.5i " “ basTsyzd 

eiO fORMATIlH*,55Xi8A4,A3 I BAS13930 

rwD ■“ ■ ''""bTrsilYMO' 
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1. 

SUBROUTlNi: n*SlC2 



BAS2 

2D 

" z.c 




BAS? 

10 

3.C 




BAS2 

30 

’ M.C 

• RCAD OATA ANtl SETUP TOR Nf,N-UNIFORM TLOUS 


DAS? 

90 

5.C 




DAS.2 

50 

g- — 

^COMMON / NBSAVC /'NilOLO. NIN 



RAS2 

60 

7. 

COMMON HEDRIIOI .CASE ,Nd 

,NNU 


0AS2 

70 

'b',-- 

1 ■■ .FLGG3 '.FLG09 .FLGD5 

,FLG06 

,FLG07 

6AS2 

80 

9* 

2 ,,FIG00 .FLCaV .TtGiO 

,FLGI I 

,FLC12 

BAS2 

90 

_ » . - 

3 .FECI 3 ,fLC19 .FLG15 

,FLG16 

,rLGI7 

BAS? 

1 DO 

n. 

9 .FLGie ,FLGi9 .FLCZD 

,FLG2 1 

,FLC2? 

BAS? 

1 ID 

— rsT"" 

' 5* ,FLG23 ■" ;rl029 .FLGZS 

,FLG26 

,FLG‘ 1 

BAS? 

120 

13. 

COMMON NT, NDUll, MN, NUNA( 

5). TYPCAtBl, . 

BAS? 

1 30 

-xm; 

1 NERl, NER2, NMA, NSIGA 

, NSIGC, 

BAS? 

190 

15. 

2 NUNC(5», TVPEC(5»\. NLFUll, ICC, 

NSr GEC, 

BAS? 

150 

' f6. 

3 ' TVPECC<5»,NUNEC«51 



BAS? 

1 60 

17. 

DOUBLE PRECISION HEDR, CASE 



BAS2 

170 

"~18. 

' Integer " ' flgd 3 ' ,FLGb9 .flgob 

,FLG06 

,FLGD7 

BAS2 

1 no 

19. 

1 ,FLGD8 ,FLGQ9 .FLCIC 

,FLG1 1 

,FLG12 

BAS? 

1 90 

" 2d'. 

2 ,FLG13 ,FLG19 VFLGI5 

,FLG16 

,FLGI7 

BAS? 

2 00 

21. 

3 ,FLG18 ,FLGI9 ,FLG2D 

,FLG2I 

,FIG22 

BAS? 

210 

22. 

9 ,FLG23 ,FLG29 ,FLG25 

,FLG26 

,FLG27 

■ BAS? 

2 20 

23. 

REAL HN 



BAS? 

230 





BAS? 

290 

25. 

common /CL/ XKSOQl, VUSDDI, X2<6DQl, 

Y2(50Dl , 

DELSrSOOl 

, BAS? 

2 50 

26. 

1 SINAI 50 0 ,COS Al 500 1 ,itpj 5001 , 

YPISOOI 


BAS? 

2 6C 

27. 

2 .XUAKEn IltYWAKEflll 



DAS? 

2 70 

28. 

COMMON /TL/ TXH5DDI, TYKSDOI, N6I500 1, 

TGI 50 0 , 

ALFAlSOOl 

, RAS2 

280 

29^ 

I RSOStSCOI lOALFtSOdl , 



BAS? 

2 90 

30. ' 

z' ' CHORD, tFHP(6adr,YcNST^ 

OUHMV (59 1 

SI 

BAS? 

3 00 

31. 

INTEGER BON 



BAS? 

3 10 

32. 

■ REAL’ MX ,HY . ■ ,NG 



BAS? 

320 

33. C 




BAS? 

330 

39.C 

♦ START 



BAS? 

39D 

35. C 

* SETS or NON-UNIFORM FLOW LOOP 



BAS? 

3 50 

36 . 

■ NSfGEC = 0 ' 



BAS2 

360 

37. 

KA=0 



BAS? 

370 

' 38 . 

KC = b 



BAS? 

380 

39, 

ttrc = 0 



BAS? 

3 90 

“ 90 . 

IF! NIN ,e6. C ) NTN = 5 



DAS? 

9 DO 

91 . 

DO 17G L=1,NNU 



BAS? 

9 10 

"9 2. 

READ fS, ICf’l NUN.MSFfTYPE.FG 



DAS? 

920 

93. 

1. FORMAT » 215X 151, 2F1D.0) 



BAS? 

9 30 

99 , 

IF (MSr.E0.1.0R.HSF.E0.2.0R.MSF.ED.51 GO TO 

20 


DAS? 

990 

95 . 

X A =K A ■* 1 



BA52 

9 50 

96 '. 

NSi6A=NSIGA« 1 



BAS? 

9 60 

97 , 

NUNA(MA)=NUN 



BAS? 

9 70 

" 96 . 

fVPEAiMAlrtYPE 



BAS? 

9 80 

99 . 

20 IF (MSF.E0.0.OR.MSF,E0.2.0R .KSF.CO.Ml CO TO 

30 


BAS? 

9 90 

"SO";" 

KC=KC*i 



BAS2 

500 

51 . 

NSIGCSNSIGC* 1 



BAS2 

5 10 

S'2. 

NUNC«KCI=NUN 



BAS2 

520 

53 , 

TYPECTKCirTYPE 



BAS? 

530 

' 59 ," 

Yo Tf 1mSF.LT,2.OR.'mSF,'C0.'3 1 GO TO 90 



BAS2 

590 

55 . 

KEC = KEC ♦ 1 



RAS2 

550 

56 ,' ‘ 

NSIGEC NSIGEC + 1 



BAS? 

560 



57 . 

SB. 

59. 

60. C 
bl . 
62 . 
" 63 . 

6<t, 

66. C 
66 . 

67 . 

6Q. 

• " 69 . 

70. 

71 . 

72. 
7J. 
79. 

75. 

76. 
77 . 
79. C 

79, 

80 . 

82. 

83. 

84. 

85 . 

86 . 
67. 
88 . 

89. 

90. 





NliNtCIKCCl = NUN ■ 



BAS2 

570 


T7PEEC(KtCI = lYPf 



BAS2 

5 00 

40 

IF ITYPEl 50 . 70 , 70 



BAS2 

590 


• coMpurro typt 



BAS2 

600 

50 

00 60 1=1, NT 



SAS2 

610 


Non i=v 2 in 



BAS2 

620 

60 

'1611 i=f^G-)(2Cil ' ' 



BAS2' 

6 30 


CO TO 110 



DA52 

640 


* IX,ri OR <n;ti type » rc*d input 



BAS2 

650 

70 

DO 90 1=1, NT ,6 



BAS2 

660 


READfNJN, 80 TNG < j| , NGfT > ,NC (t «2 1 ,NG <1 *3 | ,NG (T *4 > , 

NCa «S) 

BAS2 

6 70 

80 

FORMAT < 6F10.0T 



BAS2 

6 80 

90 

continue . - 



BAS2 

6 90 


00 100 1=1, NT, 6 



BAS2 

7 00 


RCADCNIN, 80 TTGUT,TGII-*1 1 ,tGn«21 ,TG(I«3) ,TG(1 ♦4) , 

TGn«S) 

DAS2 

7 10 

100 

CONTINUE 



BAS2 

7 20 

1 10 

IF (TYPE? 120 , 140 , 120 



BAS2 

7 30 

120 

DO 130 I = 1, NT 



BAS2 

740 


Ti=NG(n 



BAS2 

750 


NGUlr T 1«SINA(I i -TG( I9*C0SA< I ) 



BAS? 

7 60 

130 

TG(IT= T1*C0SA(1I ♦TG(II*STNA(II 



DAS? 

770 


* URTTE OASIC DATA OUTPUT 



0AS2 

7 80 

140 

WRITE 16, 150 T HEDR ,MSr , TYPE ,FG , NUN, ( NG 1 1 ), 1= 1 

,NTI 


BAS2 

790 

ISO 

FORMAT ( IMl 25X 26HOOUGLAS AIRCRAFT COMPANY 

/ 


BAS2 

800 


1 28X, 21HL0NG BEACH DIVISION /// 5X 10A6 // 


BAS2 

e ID 


2 6X SHHSF = 14, lOX 6HTVPE = FIO.4, IDX 

4HFG 

: FI 3.7 / 

BAS2 

6 20 


3 mo, 4X, aOIINON-UNirORH FLOW NO. 16 / 



BAS? 

8 30 


4 IHD, 4X, lOHUST OF NG// UH 6F14.7M 



BA52 

640 


WRITE (6. 160 ) (TGMI, I = 1, NT) 



BAS2 

8 50 

160 

FORMAT UHO 4X lOHLlST OF TG // UH 6F14.7T) 



BAS2 

860 


WRITE (9l MSr.lNCtiT ,‘i=l,NTT,lTG‘tI),l = l,NTT 



BAS2 

6 70 

170 

CONTINUE 



DAS? 

880 


RETURN 



BAS2 

8 90 


END 



BAS? 

9 00 





“5ro.‘(rffCPF 



( - 
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18 . 

1. 


SUBROUTINE COEFFIJl.LI 



COEF 

20 

ilc 





COEF 

10 

3«C 





COEF 

30 

4.C 

IMIS ROUTINE CALCULATES THE MATRIX GOMDINATION 

CONSTANTS 

FOR THE COEF 

40 

s.c 

LINEAR-, OR OUADRATIC-SOURCC DENSITIES. 



COEF 

50 

■“ 6.C 





COEF 

60 

7, 


COMMON 7BL0CM2/ HCURV «500» ,HARCI50D > 



COEF 

70 

8 . 


C'OMMON /BL0CM4/A1 M 5001 ,A1 2 «530 1,6131500 » , 

A21I5DD ),A 

221 

500), COEF 

80 

9. 


1A23I5C01 



COEF 

90 

id. 


DIMENSION DI 50D» ,ET50CJ,F(5DD I ,0 1 500 1 ,H> 500 I , H 5DD 1 , 

SPI 

5DCI COEF 

100 

11. 


EQUIVALENCE I SRI 1 1 .HA RCI 1 M 



COEF 

1 10 

12 • 


REAL 1 ■' ' - - - 



COEF 

120 

13. C 





COEF 

1 30 

U, .C 





COEF 

140 

. 15.C 

FOR 

FIRST ELEMENT ... 



COEF 

1 50 

16. 


J2 r J1 + 1 



COEF 

1 60 

17. 


J3 = J2 ♦ 1 



COEF 

1 70 

18 . 


SUM13 = SPi JI » ♦ Spii J31 



COEF 

1 BO 

19. 


SUM12 = Spr J1 1 ♦ 5P( J21 



COEF 

190 

20. 


SUM23 : SP(J2» ♦ SPIJ31 



COEF 

200 

21. 


BRAC = SPIJ2I ♦ Q.5*<SPfJll+SP«J3! > 



COEF 

2 ID 

22. 


A = -ISUM12 ♦ D.5*SilM231/(SUMI29BRAC» 



COEF 

2 20 

23. 


B = 2.09(SPfJ2> ♦ O.S*SUM13>/rsUM12*SUM23) 



COEF 

230 




C = -C.5*SUKl2/ISUH23*6RAt:» 



COEF 

240 

25. C 





COEF 

2 50 

26, C 

FOR 

LAST FLEMENT ... 



COEF 

260 

27 . 


LMl = L - 1 



COEF 

270 

28. 


LM2 = L - 2 



COEF 

2 BO 

29. 


SUMOl = spin ♦ SPILHl) 



COEF 

2 90 

30. ’ 


SUM02 = SPILl ♦ SPILM2) 



COEF 

3 00 

31. 

• 

SUM12 = SPILMIl ♦ SPILM2I 



COEF 

3 ID 

32. 


BRAC = SPILHU ♦ C.5*SUHD2 



COEF 

320 

33 . 


X = 0 .5*SUMD l/iSUM12*DRAC» 



COEF 

3 30 

S'*. 


V = -?.D*DRAC/(SUM12«SUHD1 I 



COEF 

3 40 

3S. 


2 = ISUM01*D.59SUm2»/ISUMDl*BRAC> 



COEF 

3 50 

36. C 





COEF 

360 

37. C 

FOR 

THE OTHER ELEMENTS . . . 



COEF 

3 70 

38. 


DO 10 J:J2,LM1 



COEF 

380 

39, 


JHl = J - 1 



COEF 

3 90 

40 . 


JPl = J + 1 



COEF 

400 

41. 


SUMl = SPIJ) ♦ SPlJPl 1 



COEF 

4 10 

42. 


SUH2 = SPIJ) ♦ SPIJMl j 



COEF 

4 20 

43 . 


BRAC = 2,0«ISPIJ1 ♦ D.5*I5PIJM1 J+ SPIJPD) 

1 


COEF 

4 30 

44. 


FRAC - SUM1/SUH2 



COEF 

4 40 

45. 


DIJ) r -FPAC/BRAC 



COEF 

4 50 

46. 


EIJ) - IFRAC-1. /FRAC) /BRAC 



COEF 

4 60 

47. 


FIJ) r I .O/IFRAOBRAC ) 



COEF 

4 70 

43. 


GUI : 1 .D/inRAC»SUM2 ) 



COEF 

4BU 

49 . 


HU) = -1.0/ISUM2PSUM 1) 



COEF 

490 

SO. 

ID 

I U) - 1 .D/IBRAC9SUH1 ) 



COEF 

500 

51 .C 





COEF 

510 

52, C 

NOW 

, STORE these in THE APPROPRIATE LOCATIONS 

WITHIN THE 

COMMON block COEF 

5 20 

53, 


AIllJl) A 



COEF 

530 

54 . 


A II 1 L ) = X 



COF.F 

540 

55 . 


A12U1 ) :: 13 



COEF 

5 50 

56. 


A12IL ) - Y 



COEF 

5 60 



57. 

58. 

rmjii = c 
A13ILI = Z 

COEF 570 
COEF 580 

s9. 

A2)t J1 1 - GIJ2I 

COEF 590 

60. 

A21(L> = GILHII 

COEF 600 

"&“i. 

A22fJ]| = HTJzT """* 

COEF 610 

62. 

A22ILI = 

COEF 620 


nST. ~*i7IfOTT = miT . . (.Qgp- 

6«l. A23IL> = KLMl} COEf 640 

“6-5;* -Do“2-o-';i=3?7rffi"'’ coir rso" 


66. AIMJI r DtJt 

~vi; 

66. A13IJI = F<J) 

"6T: 

70. A22IJI = HIJ) 

IT, "20 A 23 ur= rrjr 

72. C_ 

^ 

74. RETURN 

TSTr'""-^'" 

76. ENO_ _ 


C^F 660 
** COEritO 
COEF 680 

9or ■ 

_COEF 7 00 
COEF ‘710 
COEF 720 
COEF 730 
COEF' 740 

" cdtr-f sb 

COEF 760 





*ST.'C6Heoo 




25 

AUf. 75 

IB 

1. 

5UBR0UTINF. COHUOdL) 




CHBO 

20 

2.C 





CMDO 

10 

3.C 





CMBO 

30 

t|. 

COMMON / IPSF / PSr 


* 


CHBO 

90 

S* 

COMMON /COMBI N/CHAY12 1 




CMDO 

5D 

• 

'COhMON' HEORlibl ■ ■ .CASE 

,Nfi 

.NNU 


CMBO 

6t? 

1, 

1 ,FLGq 3 *FLb09 

.FLODB 

.FLGD6 

.FLG07 

cmbo 

70 

g, .. 

"2 .ELGOB ,FLCb9 

.FLCIL 

.FLGU 

.FLG12 

CMBO 

80 

9. 

3 . .FLG13 ,FLG19 

.FLG15 

.FLGlt 

.FLCn 

CMBO 

90 

ro~. 

■ 9 '“ * ,FlCi8 ,Ficl9 

♦FLG20 

.FL021 

.FLG22 

CMBO 

100 

11. 

5 .FLG23 ,FLg29 

.FLG25 

.FLG26 

.FLC27 

CMB^^ 

1 10 

— T?r 

''COMMON 'nt; ' NOnir," 

MN ; NUN A ( 

51. TYPCAI5), 

CMBO 

1 20 

13. 

1 NERl, NER2, 

NMA, NSIGA 

. NSI6C, 

CMtSO 

1 30 

i5. 

2 NUNCI5J, TVPECISI, 

NLriui, TEC. 

NSICEC, 

CMBO 

1 90 

IS. 

3 TYprCCiS l,NUNEC»5» 




cmbo 

1 5C 

■It . 

DOUBLE PRECISION MEDR, CASE 




CMBO 

160 

ir. 

INTEGER FLG03 .FLG09 

,riG05 

.FLGOG 

.FLGQ7 

CMBO 

1 70 

■ "'18 . 

" 1 • ■ ■ ,FLC08 - ■;rLGd9 

’ ' .FLGID 

,FLG1 1 

.FLG12 

CMDO 

ISD 

19. 

2 .FLC13 .FLG19 

,Ftr.l5 

.FLGlt 

,FLC17 

CMBO 

190 

2ir. ' 

3 vFLGia »FLG19 

.FLG2E 

.FLG21 

,FLC22 

CMBO 

HOC 

21. 

9 .FL623 ,FLG29 

.FLG25 

.FLG2G 

,FLG27 

CMBO 

210 

22. ■ 

REAL MN 




‘ CMBO 

220 

23. C 





CHBO 

2 30 

■ '''"2T. 

’■To'MHON''/C9> ■ XlisODl,’ VllSObl. 1(2I5DD>, 

Y2(SDD» , 

DELST50D) 

, CMBO 

290 

25. 

1 SINA(50GI,CO5AI5D0),XPi5CD), 

YPtSDDl 


CHBO 

2 50 

' ‘ 26 . 

COMMON /fC/ ■ RBrSDD, IDJ, 

SIGtSOO.B 1. 

A ( 5 GO J t 

B(500l , 

CMDO 

260 

27. 

1 2(5DD1, 

PHTt500,5 S, 

XWtSDC .S » 

.T 1 5DD »S ) , 

CMBO 

2’»0 

26. 

2 T'3t500,6l, 

NSIG, 

NP, 

NT , 

CMBO 

2flC 

29. 

3 SUHV, 

SUMH«5» 



CMBO 

2 9C 


" ’ofMENSlON C<2,2», bv»2». 

TF1RSTI2.5 1 

,TLAST(2 , 

5> t TSUH(2 , 

5> CHBO 

ADD 

31. 

DIMENSION CPtSDOJ 




CMDO 

3 i? 

32, 

tODIVAUENCE 1 CP(J»,A»1I ) 




CMBO 

32D 

33. 

EOUIVALCNCE « DVtU.CMAYdl 

» 



CHBO 

3 3U 

" 39 ; 

DIMENSION WXI 5G0.5) ,VY«50C.51 

,VT(500.5 ) 



cmbo 

390 

35. 

equivalence Tvxu.n .xNd.in.fVYu.n.Td, 

in. 


CMBO 

350 

' — 3t.' ■ 

1 ivtu . 1 ) .Tin , 11 » 




CMDO 

36C 

37. C 





CMDO 

3 7C 

38. C 

ICNT MILL BE THF NUMBER OF 

LIFTING BODIES 



CMBO 

3 80 

39. C 

♦ NFLOW WILL BE THE NUMBER OF 

FLOWS 



CMBO 

390 

■ *IQ,C 





CMBO 

9 CO 

91. 

ICNT “ D 




CMDO 

9 10 

■"'""92"; 

‘" "DO 'lb K=i;rgr 




CHBO 

920 

93. 

ID IFt NLF»KI ,LE. OHCNT-ICNI + 1 



CMDO 

9 3C 


NFLOW = 1 ♦ 2*ICN1 




CHBO 

9 90 

95. 

IFILL .EQ . DIGO TO 230 




CMBO 

9 SC 

96. 

HEAD! 5. 2D M OV ( I» ,1 =l .ICNT 

) 



CHBO 

9 60 

97. 

2D FORMAT (6F10.0I 




CHBO 

9 7C 

Tfe . 

" WRTTEU, "30 ■» «DV«n .irl.JCNTI 



CMBO 

9 80 

99 , 

30 FORMATUH1.92H THE INPUT f)V FOR COMBINATION 

SOLUTION 

ARE t 

CMBO 

9 90 

BO';**' 

1 t2X.6FlO,9> 1 




CHBO 

5 00 

51. C 

*99 * IPfCNT WILL BE THE LAST B 




CMBO 

5 1C 

"’sa.'c 

IIDPOINT ON BODY 

' X 


CMDO 

520 

S3.C 





CMBO 

530 

59.' 

IPTCNT = 0 




CHBO 

590 

55. C 

9 ILIFT will be the LIFTING BODY NUMBER 



CMBO 

550 

56. 

ILIFT = 0 




CHBO 

5 60 



-/ 3 /- 


sy. 


bo SO k=l.NB 


CHBO S70 

58. 


IPICNT r IPTCNT ♦ ND<K1 - 1 


CMBO S8D 

'59, 


iriRST = IPTCNT - ND«X> . 2 


CMDO 590 

60. 


IF « NLF«K» .GT. C 100 TO SO 


CHBO 600 

' iiV 


ILIFT = JLIFT ♦ 1 


CMBO 610 

62. C 




CMBO 620 

“63 V- 


'Ob'BD J=1,NFL0W 


CMBO 630 

6U. 


TFlRSmUFT , Jl = TMFIRST.JI 


CMBO 6B0 

65 * 


TLASf miFT, J> = TUPTCNT.J) 


CMBO 650 

66. 

BO 

ISUM<lLIrT,J^ = T'FIRSTIILJFT.JJ ♦ TLAST ULIFT , Jl 


CMBO 660 

67. 

50 

CbSTlNUr 


CMBO 670 

6B.C 




CMBO 680 

' •69. f 


IPVBOD WILL RE 1st pRCSCRlIifcO vbRTiCitY FLOW 


CMBO 690 

. 70. C 

* 

LASTSV WILL RE LAST STRIP VORTEX FLOW 


CMBO TOO 

7i.c 




CHBO 710 

72. 


IPVBOD = 2*ICNT 


CHBO 720 

73. 


LiSTSV = IPVBOD - 1 


CMBO 730 

IB. 


00 BO 1=1,ICNI 


CMBO 7B0 



JCNT =0 


CMBO 750 

76. 


DV(I 1 = DVn J - TSUMI I ,1 » 


CMBO 760 

77. C 




CMBO 770 

78, 


00 60 j=iPveoDTNn.ow 


CMBO 780 

79. 

60 

bvili = bvii ) - TsuHi j.ji 


CMBO 790 

80. C 




CHBO 600 

' 61. 


00 70 J=2, LASTSV 


CMBO BIO 

82. 


JCNT = JCNT ♦ 1 


CMBO 820 

83 . 

70 

CdtJCNT) = ISUHII.Jt 


CHBO 830 

SB. 

80 

CONTINUE 


CMBO etio 

85. C 




CMBO 850 

86. C 




CMBO 860 

B7. 


CALL SOLCOHI DV, C, iCXt »' 


CMBO 870 

88. 


DO no I : I, NT 


CMBO 880 

89.C 

*** AOD f’V FLOWS To AxlS FLOW' FOR COMClNAtlON SOLUTION 

ON BODY 

CMBO 890 

90. 


JCNT = 0 


CHBO 900 

91. 


DO 90 J=IP VBOO.NFLOU 


CMBO 910 

92, 


XNII.n = XNII.l 1 * XNITtJI 


CMBO 920 

93. 

90 

HI, 17 = Tci.i) ♦ Tii,j» 


CMBO 930 

9B.C 

ADD 8 • STRIP VORTEX BOOV VELOCITY FOR COMBINATION 

SOLUTION 

CMBO 9AQ 

" 95. 


DO lOo J = 2 .LASTSV 


CMBO 950 

96. 


JCNT = JCNT +1 


CHBO 960 

97. 


XN(I,il = XNliill * CHAYIJCNti* XNII,J) 


CMBO 970 

98. 

ICO 

111,17 = Tll.n ♦ CHAVC JCNT7*TII,J) 


CMBO 980 

99. 


c’Pkii = 1.0 “ Tir,ii«*2 


CMBO 090 

100. 

no 

CONTINUE * 


CMBOl 000 

101. 


"r=l‘ -7-'^ ^ 


CMBOIOIO 

102. 


J = 1 


CMBO 10 20 

103.' 


H = 1 


CMB01030 

104. 


N=ND<MI 


CMBOIOMD 

'•*105. ■ 


I'CTR = 2'2 " ■ *■ 


CMD01D5D 

106. 

120 

WPITEI6, 130 7HEDR, CASE, PSF 


CM001060 

107. 

130 

fORMATOHl,2SX, 26H00U6LAS AlftCRAtT COMPANY 7 


CMB01D7Q 

108. 

1 

1 28X, 21HL0NG BEACH DIVISION Iff 


CHBO 10 80 

1 09 . 

1 

! 6X,iOA6, BX.iCHCASE NO. A6, 9H PSF = ,AB it 1 


CHB01090 

no. 


WRITEI6, IBO > 


CMBO 11 DO 

Hi. 

IBO 

t^ORMATf iM ,2lH COMBINATiON SOLUTION » 


CMBOll ID 

112. 


WRITEI6, 15C J 


CMB01120 

113. 

15C 

fORMATIlH 5X 24H TRANSFORMED ■COORDINATES // 


CMBOl 1 30 





I Xii; • 

* * ■ 1 

i’iJx’.lHX 13X lUY 13X 2HT1 12X 2HC> ‘9X 5»'S1 N A ix 5HC0S A 

UP 

IHN 

CMti01140 

ns. 

2 // 1 



ChDOllSO 

* 116*. 

160 

WR1TE(6, 170 11, XKI 1 tVI n 1 tX2IU> • V2lvntTIJ.l > ,CPIU> .SINAI J». 

COSA(CMB01160 

117. 

ij> iXNu.n 



CMB0U70 

lie. 

170 

rORHATIlH I3,2ri4,7 / 4X 4F 14 . 7 ,2F 1 1 ,5 ,F14 . 7 1 



CMDOl 1 80 

119. 


I=l6l 



CMB0119D 


■ jrjTT" ■ ■*" ” 



CHD01200 

1.71. 


IM 1 .EQ. Nl GO TO 160 



CMBDi210 

r£2. 


I .It. LCTR 1 GO TO 160 



CMQ01220 

123. 


LCTR : LCTR < 22 



CHB0123D 

' 124'. 


Ob TO 120 



CMB01240 

125. 

lec 

M=M«l 



CH00125D 

IT6 . 


■ N'='W*N01M» ■■■ *■ 



CMB01260 

127. 


WR1TE16, 19C ii.xim.vmi 



CMB01270 

'12 ft. 

2 90 

FORMAT! IH .13, 2F14.7 n 1 



CH00120D 

129. 


1 =1* 1 



CM60129D 

130.' 


IF! J .LT. NT 100 TO 160 



CMBOl 300 

131. 


Ml = C 



CHD013 ID 

i ii . 


Nl = P 



CMBO1320 

133. 


00 220 K = l.NU 



CMD0133D 

134. 


Nt = Nl. + 1 



CHB01340 

135. 


Nl = Nl ♦ ND!KI - 1 



CMBOJ350 

136. 


CIRC = 0.0 



CHB0136D 

137. 


THRUST = D.D 



CMD01370 

* 138. 


DO 20P 1 = HI .Ni 



CMBOl3eO 

139. 


ClRC = CIRC ♦ ( TU.ll 6 OCLSIII ) 



CMBOl 3 90 

190. 

200 

THRUST - THRUST * ! V2in 9 CP (11 6 SINA!I> 6 OrtSH 1 1 , 



CMBOl 4 00 

141 . 


THRUST = -6.263186 6 THRUST 



CMBOl 4 10 

142. 


WRITE (6, 210 JK, CIRC, THRUST 



CHB0142D 

143. 

210 

rORHAT!///13H BODY NO. , ! 4 , 5X , 1 4HCTRCULAT1 ON = ,ri4.7. 

5X, 


CHB0143D 

1’ 44 . 


1 9HtHRUST z ,F14.71 



CHBO1440 

145. 

2 20 

CONT INOE 



CMB0145D 

146. 


RETURN 



CMB0146C 

147. C 

649 orr Boov combinaiion solution 



CMB01470 

14 8. 

230 

IPVCOD - ? * TCNt 



CM BO 14 80 

149. 


LAStSV : IPVBOO - 1 



CMB01490 

ISO. ' 


bo 26C 1=1 ,NP 



CMB01500 

151. 


JCNT : 0 



CMD01510 

152. C 

666 Ano PV PLOWS TO AXIS FLOW FOR COMPINATION SOLUTION 

OFF 

BODY 

CM0D1520 

153. 


DO 24C J IPVBOn.NFLOW 



CMB01530 

154. 


VXtl.lJ : VXII.I) ♦ vxn.jl 



CMB01540 

155. 

2 4C 

vy«i, 1 ) z VY ! ],n ♦ V Yti.ji 



CMBOl 5 50 

156.C 

66* ado K 6 STRIP VORTEX OFF BODY VELOCITY 



CMRO1560 

157. 


DO 2SP Jz2, LASTSV 



CMB01570 

168. 


JCNT z JCNT ♦ 1 



cHooiseo 

159. 


VX!1,H = VX«T,n ♦ CHAVIJCNTI 6 VX!],.jl 



CMD01590 

160. 

2 50 

VY(I,1» z VY(I,n ♦ CHA¥!JCNT1 6 VYd.Jl 



CMB0160Q 

161 . 


VKI.U z SORT! VX< 1,11662 ♦ VY! 1,11*62 \ 



CMB016 10 

162. 

2 60 

continue 



CMBOl 620 

163. 


I Z 1 



CMBOl 6 30 

164. 


LCTR z 45 



CMB0164D 

165. 

2 70 

UR1TE<6, 13£ IHEOR.CASE.PSF 



CMDOl 6 SO 

166. 


WPITEC6, 280 1 



CM001660 

167. 

2BC 

rORMAUlH ,31H COMBINATION SOLUTION OFF BODY ) 



CMB0167P 

168. 


WRITE (S, 290 > 



CMB016R0. 

169. 

290 

FORHATUH ,5X,24H TRANSFORMED COORDINATES U 



CMDQI690 

170. 


1 12X.1HX, 13X,iHY,13X,2HVX,12X,2HVY,12X,2HVT //I 



CMBOl 7 00 





'TUT 

172 m 

““3oo“BRn cisr^TB'iiTYPTTW'iiiTwiniv.^viTTrr.'i'rif ;Tf 
310 rORHATUH ,13.5rii«.7l 

■T:nboi7io 

CNB0172Q 

~T13, 

17*1. 

n75. 

116. 

r=i”* r~ * 

iril .CT. NPIGO TO 320 

. * CNBOlTSO 

CNBOlTNC 

~'^r 1 r ;tcT cfn» TfiiTiff'TCid ^ 

LCIR = LCIR ♦ <IS 

CNBOl'fM 

CNB0176D 

■nr:' 

CT~Tfl"JTir 

CNBOITTD 

ITS. 

320 CONTINUE 

CHB017SD 

T79." 

RETURN” * * 

CMBOi7'90“ 

ISO. 

END 

CHB0180D 









20 OCT 

76 

14 

1. 

SUDROUTlNr CROSS 

1 




CROS 

20 

2.C 






CROS 

1C 

3.C 

i 


• 



CROS 

30 

^.C 

* compi/tc 

CROSS FLOW VELOCITY COMPONENTS AND 

PRINT 

CROS 

40 

S.C 






CROS 

SO 

'iV" 

COMMON ?ipsr/ psr 





CROS 

60 

7. 

COMMON HtDRUOl ,C»SC 

,NB 

,NNU 


CROS 

70 

■'e.' 

1 .FtC0 3 

,Flca4 

, FLOO 5 

.FLCOb 

, FLCflT 

CROS 

BO 

9, 

2 , jFLGQB 

,rLG09 

,FLGID 

,FLG1 1 

,FLG12 

CROS 

90 

■ lo; 

3 .FtGl3 

,rLGi4 

,FL015 

,FLG16 

,FLr.l7 

CROS 

100 

11. 

4 ■ .rt-Gie 

,FLG19 

,FLD20 

.FLG21 

,FLG22 

CROS 

1 10 

'1?.’ 

S , ,FLG23 

,riG24 

,FLG25 

,FLG26 

.FLG27 

CROS 

120 

13. 

COMMON , NT, 

NO (111, 

MN, NUNa(S), TYPCAI5), 

CROS 

1 30 

14. 

. 1 NCRl , 

NER2, 

NMA, NSIGA 

, NSIGC. 

CROS 

1 40 

15. 

2 NUNC (51, 

TYPCC(5I , 

NLF(ll), lEC, 

NS lore. 

CROS 

150 

16. 

3 TYPECC(51 

,NUNCC(5) 




CROS 

1 60 

17. 

OOUDl-i: PRECISION 

MCOR, CASE 




CROS 

1 70 

is. 

INftGER FEGCIS 

,FLG04 

,FLCD5 

,rLG0S 

,FIG07 

CROS 

180 

1 >. 

1 ,FLCOe 

,FLG09 

,FLG1D 

,FLG1 1 

,FLG12 

CROS 

1 90 

“ ^ J. ' 

2 / ,FLG13 

,FLG14 

,FLC15 

fFLEilb 

,rLG17 

CROS 

2 00 

21. 

3 ,■ ,FtG18 

,ELG19 

,FLG20 

,FLG21 

,rLGH2 

CROS 

2 1C 

22. 

4/ ,FtG2 3 

,FLG24 

,FLC25 

,FLG26 

wFLC27 

CROS 

2 20 

23. 

XOMHON 7P/ IPUVEL 





CROS 

230 

—2Mr' 

■ VftF*!" ' ■ ‘ M'fJ ' 





CROS 

2 40 

25. C 






CROS 

250 

”'^26. 

COMMON /C4/ 71(50111, VKSOdl, X2(Gt)0), 

Y2(GDD) , 

DELStSOOl , 

CROS 

260 

27, 

/ 1 SIN/K50O1 ,tOSA(500t ,XP(5DD1, 

yP ( 5DC 1 


CROS 

2 70 

'2ft. 

COMMON 7TC/ RBI 500, 10), 

S1C(5CQ,5>, 

AtSPO), 

B( 500 , 

CROS 

200 

29, 

1 2(5C0), 

PHT(50D,5), 

XN( 5D0.S 1 

,T( 500 ,5 ) , 

CROS 

2 9C 


2 T3(5D0,5I, 

MSIG, 

NP, 

NT , 

CROS 

3 on 

31t 

3 SUMV, 

StiMHIS) 



CROS 

3 1C 

32-; c 






CROS 

3 20 

34. 

DIMENSION VX(50D,5),VY(5C0,S),V2(5O0,5),T2(5DD,S) 


CROS 

330 

34. C 






CROS 

340 

,'35. 

LOUI VALENCE ( VX ( 1 

,1) , XNIl, 

1) ), ( VYll.l), 

T(l, 1) ) 

f 

CROS 

3 50 

"■'36. 

1 ”iV?(l,U, T3(l, 

1) 1, (T2n,i), m,i) > 



CROS 

360 

. 37, C 






CROS 

3 70 

. 38. C 

* START 





CROS 

3B0 

39. 

IF (FL6D8.E0.C) GO 

TO 2C 




CROS 

3 90 

40. C 

* TITLE FOR MATRIX 

PRINT 



CROS 

4QC 

41. 

URITC(6, 190 IHEDR 

,CASE,PSF 




CROS 

4 10 

" 42i 

WRITE (6, 10 » 





CROS 

4 2C 

43. 

1C FORMAT <IH 36K MATRICES A,B, 

2 BY ROMS * CROS 

S FLOW //) 

CROS 

4 30 

44.0 

* ♦ READ CROSS SIGMaS 




CROS 

4 40 

45. 

20 00 30 N=1,NS1G 





CROS 

4 50 

46;" 

SUMM(N)=D.O 





CROS 

4 60 

47. 

30 read (3) (S1G11.N) 

,1=1, NT) 




CROS 

4 70 

48. C 

* NO. OF 

MIDPOINTS 

LOOP 



CROS 

4 BO 

49. 

DO 160 T=1,NT 





CROS 

4 90 

■■ so.c 

♦ READ matrices A,B 

,7 



CROS 

5 00 

51. 

READ (101 (A(JI,J= 

1 ,NT) ,(0(JI,Jrl,NT),(2IJ) ,J;l ,NT) 


CROS 

510 

52. C 

» NO, OF 

FLOWS LOOP 




CROS 

5 20 

53* 

H=0 





CROS 

.5 30 

■“ 54. 

00 12o‘n = 1,NSIG 





CROS 

540 

55. 

M=M*2 





CROS 

550 

5b. 

sa=6.o 





CROS 

5 60 





57. 


SB:D,0 


CROS 57D 

5a .1 


SZ=0.0 


CROS 560 

59. C 


• NO. or CIENENTS LOOP 


CROS 590 

60. 


00 40 J=1.NT 


CROS 600 

6l • 


SA=SA*«I J|451G|J,NI 


CROS 610 

62. 


SB=SQ*Bt J|9S1G(J.NI 


CROS 620 

63. 

40 

S7=SZ»2LJi*5tC<J,N> " 


CROS 630 

64. C 


• INiriALIZC ONirORH OR NON- 

UNIFORM PARAMETERS 

CROS 640 

65. 


ir trie?!. cr. Cl oo to 6D 


CROS 650 

66 « 


ir (N .EQ.l.ANn.FLGlT.LC.C) GO TO SL 


CROS 660 

67. 


C1=RB (1,M» 


CROS 670 

6d • 


CZ = -RBn,«-ll 


CROS 680 

69. 


C3=D.O 


CROS 690 

70. 


GO TO 70 


CROS 700 

71. 

50 

C1=SINA( I 1 


CROS 7 ID 

72, 


C2=C05A( 1 1 


CROS 720 

73. 


C3 = l , 


CROS 730 

74. 


GO TO 70 


CROS 740 

75. 

65 

Cl = D.Q 


CROS 750 

76. 


C2 - 0.0 


CROS 7 60 

77. 


C3 = 0,0 


CROS 770 

78. 

70 

IF TFLCIZ.CO.OI GO TO 80 


CROS 7BD 

79. C 


• OPTION FOR Z IPWn HATRI* 

SOLUTION 

CROS 790 

80. 


XNtr.N) = SA 


CROS 800 

81. 


PKin ,NJ = Y2 tn * 52 


CROS 610 

82. 


GC TO 90 


CROS 820 

83.C 


♦ REGULAR A HATrIK SOLUTION 


CROS 030 

64. 

60 

PHKI ,NT=r2II »*SZ 


CROS 840 

85. 


XN(1 ,N»r5A*C2 


CROS 850 

66. 

90 

IF IFLGll.CO.GI GO TO 100 


CROS 860 

67. C 


•OPTION PERTURBATIONS 


CROS S70 

68. 


1211 tNI=se 


CROS BSD 

89. 


T3ir,NI=S7 


CROS 890 

90. 


GO TO no 


CROS 900 

91. 

IDO 

I21I,NI=S9*C1 


CROS 910 

92, 


T2II,N)-SZ*C3 


CROS 920 

93. 

no 

IF «FLC21 .GT.T, J GO TO 120 


CROS 930 

94. 


SUMHINI = SUHHIN) ♦ PHIII.NI ♦ VZCl) 

• C2 • Df LSI I) 

CROS 940 

95. 

120 

CONTINUE 


CROS 950 

96, 


If (FLGoa.EQ.Dl GO TO 160 


CROS 960 

97, 


URiTE T6. 130 ) I , t A ( Jl , j= 1,NT i 


CROS 970 

98. 

130 

FORMAT 11H0 1 3H MATRIX A ROW T6/ IlH 

I IDFID .51 1 

CROS 980 

99. 


URJTC 16, 140 ) I,(BIJ1,J=1,WT* 


CROS 990 

100. 

140 

FORflAT 11M0 13H MATRIX B ?0H 16/ t IH 

lOr 10 .51) 

CROSIODO 

101. 


WRITE «6, 150 1 1 .iZi J|,J=},NTT 


CROSIOID 

102 . 

150 

FORMAT ( IHO 13H MATRIX Z ROM 16/ <1N 

lOF.O.S)) 

CROSi02D 

103. 

160 

continue 


CROS1030 

104. C 


* PRINT CROSS FtOU ION-BODY) 

OUTPUT 

CR0S1D40 

105, 


DO 330 L=1,NsIG’ ■ ' ■ ■ 


CRUS1D50 

106. 


AC = 1 


CR0SIO6D 

107. 


If IFLC17.LC.0I KC=L-1 


CR0S107D 

1Q8. 


IF1FLG2I .GT.O) GO TO 170 


CROS 1080 

109. 


SUMMiL) = 3.141593 •SUMRILI 


CROS109D 

110. 

170 

1 = 1 


CROSllOO 

Trr.“ 



' 

CROSlllO 

112. 


M = 1 


CR0Sn2D 

113. 


N=NDlMt 


cRosnso 





TI4. 


LCI(1=22 


CROSl 1 00 

US. 

160 

URnC(6i 190 IHCD0.CA5C.PSF 


CR0SI15D 

116. 

• *30 

FORMAT UHl Z5X, 26HD0UGLAS AlRCRA'Ft COMPANY 

/ 

CR0SM60 

U7. 

1 

28V» 21HL0NG 8FACH DIVISION /// 


CR0S117O 

ila. 

2 

6Xs 10A6.0X, tOHCASr NO. A6,10H PSF = ,A0 

// 1 

CROSn 80 

119. 


IF IFL622.GT.0I CO TO 230 


CR0S119Q 

'Ud. 


TP iLifit . l.bR,FL6l7,Ntr*0> GO TO 210 


CR0S1200 

121. 


yplTC (6. 200 > 


CR0S121D 

"122. 

2 CO 

Format <iH 27H on-booy uniform cross flow i 


CR0S1220 

123. 


GO TO 250 


CR0S123D 

i2‘i. 

210 

IF MYPECiKCf.CE.n.l GO TO 230 


CROS1200 

125. 


WRITE 16, 22D 1 


, CR05125D 

"rr6; 

220 

FoRHSt IlM 3lH FLOW GENCRAtCR • ROTATING ROtlY 

1 

CROS1260 

12't. 

230 

WRITE 16, 200 > NUNCtHCI 


CR0S127C 

128. 

200 

FORMAT IlH 35K ON-BODY NON-UNIFORM CROSS FLOW 

NO. 18) 

CR0S1260 

129. 

250 

write: 16, 260 J 


CR0S1290 

f'30. 

260 

FORMAT TIM 5X 20H TRANSFORMED COOROINATES // 


CROSl 300 

131. 

1 

12X IHX 13X IHY 13X 2HT2 12K 

2HT3 9X 

5HSIN A CR0S131D 

1 32 . 

■ 2 

6X 5HC0S A 7X 5H51GMA 1 iX IHN 13X 3HPH1 //» 

CR0S132D 

133. 

2 70 

WRITE 16 , 280 1 I 1 < I ) , Y1 ( I ) , X2 ( J ) . Y2 1 J ) , 

T 2(J, 

L» ,T3f J,L»CR0S133D 

130. 

1 

, SlNAIJt ,COSA( J),SIGt J,U,XN(J,L) , 

PHI (JU) 

CROS130D 

135. 

2 80 

format UH 13i2F10.7/ OX OFIO . T ,2F11 . 5 , 3F 1 0 . 7 » 

• 

CR0S135D 

136. 


I = l*l 


CR0S1360 

137. 


J-J*l 


CR0S1570 

136. 


IF n.eO.Nl GO TO 29D 


CROSl 300 

139. 


IF (I .LE.LCTR) GO TP 2VD 


CROS1390 

lOQ. 


LCTR=LCTR*22 


CROSIOOC 

101 . 


GO TO IBO 


CROSIO ID 

102. 

290 

M=H+1 


CR0S102O 

103. 


N=N*NPEM» 


CR05103D 

100. 


write (6, 3CD ) I tXH II, ¥1(11 


CROSIOOC 

lOS. 

3 CO 

FORMAT tlH 13, 2F10.7 ttV 


CROSIO SC: 

106. 


1 = 1*1 


CR0S106O 

107. 


1F(J.GT.NT)G0 TO 310 


CB0S147Q 

106. 


GO TO 270 


CROS1080 

109. 

3 1C 

IFIFLG22.GT .0 »G0 To 3 30 


CROSIO 90 

iso. 


URITE(6, 320 > SUMMIL), SUMV 


epos 15 00 

151. 

3 20 

FORMAT (IHO 10X,10H ADDED HASS = F1Z.7, 0X,1DH 

VOLUME = 

F12.71 CR051510 

152. 

3 30 

CONTINUE 


CR0S152S 

153. 


IF (IPUVCL .CO. ri GO TO 303 


CROS153Q 

ISO. 


U'RITE(6, 080 ) 


CR05150C 

155. 


LOC = 6500 


CR0S155O 

156. 


CALL PUNCHY 1 T2, NT, NSIG, LOC, CASE ) 


CR0S156C 

157. 


toe = 6900 


CROSl 570 

158. 


CALL PUNCHY (T3, NT, NSlG, LOC, CASE )• 


CR0S158C 

159. 

300 

IF (FLGD5.EQ.pi RFTURN 


CR0S159C 

160.C 


# OFF-BODY POINT 


CROS160D 

161 . 


DO 370 1=1, NP 


CR0S16 10 

162. C 


# READ MATRICES X, Y,7 


CR0S162P 

163. 


READ (101 (A( Jl,J=l,Nn,(P(Jl,J = l,NT),(Z(J),J: 

a ,NT) 

PROS 16 3C 

160.C 


if NO, OF FLOW 


CR0S160C 

165. 


DO 370 N=1,NS1G 


CR0S16SD 

166. 


SXrO.D 


CR0S1660 

167. 


SY=D.P 


CR0S1670 

168. 


SP=D,D 


CR0S168C 

169 .C 


« NO. OF ELEHENIS LOOP 


CROSl 6 90 

17D . 


DO 35P J=1,NT 


CR0S17DD 





i 71 ; 


's>f=is;xfAiJiisiGij;wr' 

CROS17iO 

172. 


SY=SV«BI jl*SIGU»Nl 

CR0S1720 

173. 

350 

S7>zSP«2tJ't*S'lGIJ,Ni ‘ ■ * '■ ‘ '■ * 

CR051730 

I7«l. 


VKUgNizSX 

CR0S1790 

17S. 


PMiii 

CR0S175D 

176. 


ir (FLG22.Cf.0l GO TO 360 

CR0S1T60 

177. 


IF ifiGi 1 .dr.T.oi» :fft n^oFrfc'cTTT^o 1 * * 

“CRbS177d 

178. 


vrii(Ni=sv«i. 

CROS17B0 

179. 


V2(I,NliSP*^.- * ' *' : 

CR0S1790 

180. 


GO TO 370 

CROSIBOO 

iSl .C 


• PERfUROAti ON OR NON-UNI FORM VV.VZ 

CROSIS 10 

182. 

360 

¥Y(I,NI=SV 

CR0S1820 

183. 


V2U,Nt = SP'"' “* ~ 

CRGSiB3D 

18<I. 

370 

CONTINUE 

CR051B90 

185.C 


• PRINT CR0S5 rtOtf fOFF-BbbYl OUTPUT 

CROSieSO' 

186. 


00 970 L=1,NS1G 

CR0S1S6D 

187. 


XC = L *■' ■ 

CR0S1870 

188. 


IF (FLG17.LE.0) NC=L-1 

CROS1880 

*189. ' 


1 = 1 * *■ . '■**' 

CR0S189C 

190. 


LCTR=93 


191. 

360 

WRITE(6, 190 iHEDRfCASE.PSF 

CROSI910 

192. 


IF (FLG22.GT.01 GO TO 910 

CR0S192D 

193. 


IF (L,GT,l,0R.Ft617.NC.Di GO TO 900 

CB0S1930 

199 . 


WRITE (6 . 390 > 

CROS1990 

195, 

390 

FORMAT (IH 28'M i5T"F-BODV'UNfFl3RH"CPO^ » 

CR0S19S0 

196. 


GO TO 930 

CROS1960 

197, 

9 00 

IF (TYPEc«Mc’i .iE.o; » GO' To ‘910 

CROS197D 

198, 


WRITE (6, 220 ) 

CROS1980 

199. 

910 

WRITE <6. 920 T NONCIKCT ‘ 

CR0S1990 

2Q0. 

9 20 

FORMAT (iM .3 6M OFf-BODY NON-UNIFORM CROSS FLOW NO. 18) 

cRosznoo 

201. 

9 30 

write (6,: 940 ) ■•■■■"* — 

CROS2D10 

202. 

990 

FORMAT (IH 5X, 29M TRANSFORMED COORDINATES // 

CR0S202D 

203. 


1 12X IMX 13X IHY 13X ZMWX 1 2lf '2tt?r'i2X 2HVZ 12X 3HPH1 //) 

CR0S2D30 

2 09 . 

950 

WRITE (6, 960 ) l,XP(Il,YPlll,VX(r,LI,VVn,L),VZ(I,L l.PHICI.L) 

CR0S2090 

205. 

9 60 

FORMAT (IH 13, 6F19.7i * - • ' 

CROS205D 

206. 


1=1 + 1 

CROS2Q60 

207. 


IF (I.GT.NP) GO TO 970 

CROS2070 

208. 


IF (1 .Lt.LCTRt GO TO 950 

CROS2080 

209. 


LCTR=L‘CTR+93 


210. 


GO TO 380 

CR0S210D 

211. 

9 7Q 

CONTI Nur 

CR0S21 10 

212. 


IF ( IPUWEL .FO. P 1 RETURN 

eR0SZ12D 

213. 


WRITE (6, 980 1 ' ■ . - * - 

CR0S21 30 

219. 

9 8C 

rORMAT(lHl,88H THE FOLLOWING NUMBERS ABE THE CARD IMAGES THAI GET 

CR0S2190 

215. 


IPUNCHED WHEN THERE IS PUNCHEt) OUTPUT///! 

CR0S2150 

216. 


LOG = 7300 

CR0S2160 

217. 


CALL PUNCHV « VX, NP , NSIG, LOC, CASE » 

CR0S217D 

216, 


LOC =7700 

CR0S2I6O 

219. 


CALL PUNCHY j VY ; NP , NSID, LbC. "cBE 1 

CR0S219D 

220. 


LOC = 8100 

CROS2200 

221. 


CALL PUNCMV(V2,NP,NSI d, LOC, CASE » ’ 

CROS2210 

222. 


RETURN 

CB0S222D 

2 23. 


END , : 

CHOS223D 



-/3B- 


SOVeCTNT 



25 AUG 75 

1 8 

1. 


SUOPOIITINF ELTNT3«XKS0,XN,PH1 .PIE) 

ELNT 

20 

2.C 



ELNT 

10 

3.C 

THIS SUBROUTlNr CALCULATCS THE INCOHPLCTE ELLIPTIC INTEGRAL 

OF THE ELNT 

30 

ii.C 

THIRCl kind, the arguments ARE* 

ELNT 

40 

5.C 


KKSQ VALUE Of K SQUAREO 

ELNT 

SO 

&Vc 


’"XN VALUE OF MINUS ALPHA SQUARED 

ELNT 

60 

7.C 


PHI VALUE OF PHI 

ELNT 

70 

s'.c 


PIE VALUE OF INCOMPLETE ELLIPTIC INTEGRAL OF THIRD 

KIND ■ ELNT 

80 

9. 


DATA HP /lr570796/ 

ELNT 

90 

10. 


DATA ROUND /. 0000050/ 

ELNT 

100 

11. 


SK=XKSO 

ELNT 

1 10 

* 12. 


FN'SXN 

ELNT 

120 

13. 


P=PH1 

ELNT 

1 30 

14'. 


IF (FN.EO.-l .O.ANO.SK .EO.1.0) GO fO 480 

ELNT 

140 

15. 


IFtSK .GT , 1. ) GO TO 470 

ELNT 

1 50 

16. 


if tFN.LT . T-1 . )) GO TO 470 

ELNT 

1 60 

17. 


IF TP) ID 1 4 70 , 20 

EMIT 

170 

tb;c 


NORMALISE PHI 

ELNT 

180 

19. 

10 

A--1 , 

ELNT 

190 

' 20 . 


P=-P 

ELNT 

200 

21. 


GOTO 30 

ELNT 

210 

22. 

2D 

Arl. 

'ELNT 

220 

23. 

30 

R=l. 

ELNT 

2 30 

' 2Mi' 


DBii. 

ELNT 

240 

25. 


IF TARSTP-l .570796 I.LE.10.099T-7 1) CO TO lOD 

ELNT 

2 50 

26. 


irtp-Mp) ilo , ion , 4c 

ELNT 

2 6D 

27 = 

4D 

j:rP/(2.4HP) 

ELNT 

270 

2'8. 


XX=29j 

ELNT 

2 80 

29. 


Plrp-XX«HP 

ELNT 

290 

'3b'. 

" 

P:NP 

ELNT 

3 00 

31. 


Or-1. 

ELNT 

310 

32. 


GOTO 100 

ELNT 

320 

33. 

SO 

OrsUM 

ELNT 

3 30 

34. 


D::0. 

ELNT 

340 

35. 


IFCPl-MP) 60 , 70 , flC 

ELNT 

3 50 

"36. 

6f 

P=P1 

ELNT 

3 6D 

37. 


XXX=1, 

ELNT 

3 70 

'38. 


Goto no 

ELNT 

360 

39. 

70 

PIE=T XX. 1 .l«A90 

ELNE 

3 90 

40.' 


Goto 460 

ELNT 

400 

41. 

CD 

XXX--1. 

ELNT 

4 10 

42. 


XX=XX.2. 

ELNT 

4 20 

43, 


P=2,«HP-P1 

ELNT 

4 30. 

**4, 


GOTO 110 

ELNT 

4 40 

45. 

90 

P1£=A*TXX90.XXX*SIJM) 

ELNT 

4 50 

46.' 


GOTO 460 ' 

ELNT 

4 60 

47. 

ICO 

IFTSK. EO, 1. ) GOTO 470 

ELNT 

4 70 

40. ' 


ZF?('N.Eb,T-l. )) GO TO 470 

ELNT 

4 80 

49. 

^110 

IFTP.GT.},0.E“4 )GOTO 130 

ELNT 

490 

'so; ' 


IFTF^T.Gr.b. )GOTO 123 

ELNT 

500 

51. 


SUM=P 

ELNT 

5 10 

"52. 


GOTO 440 

ELNT 

520 

53. 

,l?p 

RRT=SORTTFN) 

ELNT 

5 30 

' 547 


' S*UH= A T a'N t'p 91? R T ) / R RT 

CLNT 

540 

55, 


GOTO 440 

ELNT 

5 5C 

56“.' ■ 

130 

SiSINfP) 

ELNT 

560 





57. 

52=5692 


CLNT 570 

58. 

C=COSfP) 


ELRT 500 

59. 

iriSK .07.0.66 ICOfO 2lC 


ELNT 590 

60. 

ir(AOS<rNI.GC.0.6IGOTO 160 


ELNT 600 

61. C 

POWCR 5FRICS Tt.= N *N0 K 50U8RCO 


ELNT 610 

62. 

S8 = J . 


ELNT 620 

^ 3 « 

Sn=SK/2. 


ELNT 630 

6M. 

CB=S9C 


ELNT 660 

65. 

CA=P 


ELNT 650 

66 * 

FH=0. 


ELNT 660 

67. 

5»K=P 


ELNT 670 

6B. 

X=SUH*1. C-B 


CLNT 600 

69, 160 

SA=SB-SA*FN 


CLNT 690 

70. 

CA=l-CB/(2,*<FM9l .1 1 ) ♦! I.-,5/iFM*l, I l*CA 


ELNT 700 

71. 

V=SA*CA 


ELNT 710 

72. 

S»M=SUM*Y 


ELNT T20 

73. 

1FHSB9CAI.GT,KI GO TO 150 


CtNT 73Q 

76. 

IFIABSTYI ,LT.X» GO TO 660 


ELNT 760 

75. ISO 

FM=FMM. 


CLNT 750 

76. 

CP=C69S2 


ELNT 760 

77. 

5B = T1 ,-,5/TFMtl, n#SK*SB 


ELNT 770 

78. 

GOTO 160 


ELNT 780 

79. C 

POWER SERIES TN K SQUARED 


ELNT 790 

80. 160 

PX=SK 


ELNT 8 00 

81. 

R7=SQRT( U*FNJ 


ELNT 810 

82. 

iriRT.NE.O. 1 GO TO 170 


ELNT 020 

83. 

G = S/C 


ELNT 830 

86. 

GOTO 190 


ELNT 860 

65. 170 

IFIC.GT.6.E-3TGOTO 180 


ELNT B5D 

66. 

G = IHP-(C/(RT9Sm /RT 


ELNT 860 

67. 

GOTO 190 


ELNT 870 

66. 180 

G=ATAN(RT9S/C)/RT 


ELNT 880 

89. 19G 

ci=c9i.r-a 


ELNT 890 

90. 

L=P 


CLNT 900 

91, 

F=S9C 


ELNT 910 

92. 

H=l. 


ELHT 920 

93. 

SUM=G 


ELNT 930 

96. 

F«=0. 


ELNT 960 

95. 2 nr. 

0=TE-G»/FN 


ELNT 950 

96. 

M=H*n.-0.5/CFH+l .11 


ELNT 960 

97, 

G2=H*G9PK 


ELNT 970 

98. 

SUM=SUH*G2 


ELNT 980 

99. 

1F*62 ,LE .GUGOTO 660 


ELNT 990 

100. 

FM=F«-*1. 


ELNTIOCD 

101. 

E=-F/<2.*rM)*U. -0.5/FNi«r 


ELNTlOlO 

102. 

F=F*S2 


ELNT 10 20 

105, 

PK=PK95K 


ELNT1030 

106. 

GOTO 200 


ELNT1060 

IDS. 210 

5XP=1,-SK ■■■ ' ■ ' 


ELNT105D 

106. 

IFIS.LT.O GO TO 320 


ELNTld6Q 

idr.c 

ADDITIONf formula “ 


ELNT1D70 

108. 

ZP=SORT( 1.-SK9S2 1 


ELNTlOeO 

109, 

RT1=SQRT<ADS1 FN* i FN «■ 1 , > ♦ IFN ♦SK 1 1 i 


ELNT109D 

110. 

SSTrJl.-ZPIATSK’AIC*!. »» 


ELNT 11 00 

111. 

XP = 15SI*S*RT1 >yi i .♦FN9S2-FN»SST*C«2P» 


ELNT n ID 

112. 

IFTFNl 220 , 290 , 250 


ELNT1120 

11 3. 220 

IFTRtl.NE.D. » 60 TO 260 


ELNTll 30 




n¥. 

.. ... 

T^S/ilC*!. 1 

tLNni90 

us. 


lF(fN.Nr.<-l. 11 GO 10 23C 

cum 1 515 

116. 


Cr = l2,9R-SK*SST9S-tS/CI*2Pl/SI*P .• 

ELNTl 1 60 

111'. 


GOTO 300 

FLNTIUD 

118. 

230 

Cr=lSSI9<S-«2./RU»S*C/ZPl9ISK/SKP> 

CLNTll 80 

119. 


GOTO 300 

CLWTn9D 

1 ZH*.' 

290 

1F(FN9IFMSK> .tl.O.I GO TO 2bd 

CLNT12CI0 

121. 

250 

Cr=irN/RTl»9ATANlXPl 

CLNTJ21C 

122. 


goto 300 

ELNT1220 

123. 

260 

IFIABSIXPI.GO.D.I (GOTO 270 . 

ELNT1230 

m 


YX=xP**2 

CLNT1Z90 

125. 


yx=2,9*p9(l.»vx*j 1./3 .*YX9< .2*YX/7.»n 

ELNT12S0 



■GOfo'5'80 ” 

ELNT126D 

127. 

270 

YX=ALnCUl.*XP)/U.-XPI > 

CLNT127D 

i?8. 

260 

CF=irN*YX)/(2.*RTl» 

rCNTlZBD 

129. 


GOTO 300 

ELNT1290 

130. 

290 

CFrO. 

CLNT1300 

131. 

3CD 

BB=-1. 

CLNT131D 

■ 115.- 


S=SQRTISSt» 

ELNT1320 

133. 


C=SQRT<1 .-SSTt 

ELNT l 3 30 

139 . 


goto 320 

ELNT1390 

135. 

310 

SUM=2.*SUH-CF 

CLNT135Q 

116. 


GOTO 990 

CLNT136C 

137. 

320 

U=S/C 

CLNn3 7G 

"il8. 

" 

V=l./C 

rcNT1380 

139. 


T=U9V 

ELNT1390 

190. 


W=U#*2 

CLNT1900 

191. 


IMS.GT.O.llGOTO 7,30 

ELNT19 10 

192. 


R=S9( 1. *529(1 ,/3. *529 (.2+SZ/7. t it 

n.NT19 20 

193 . 


GOTO 390 

ELNT193Q 

l99. 

330 

R^ALOnCU* VI 

ECNT1990 

195. 

390 

0=1. *rN 

CLNT1950 

196. 


lF(D.Gt.SKPJ GOTO 360 

f.CNTl9 6C 

197. C 


POWER SERIES IN 1 *N AND 1 - (K SOUARfOl 

ECNT19 70 

19Q. 


CA=J . 

ELNT l 9 BO 

199. 


CP=-D.59SKP 

ELNT19 90 

ISO. 


AL=(T*R) /2. 

ELNT1500 

151. 


DC=1)9V993 

CLNT151C 

152. 


FM = 0. 

ELNTl 5 20 

153. 


5UH=AL 

CLNT153D 

159 . 


Ti=SUM91 .C-B 

ELNT1590 

155. 

3 50 

CA=-09CA *CD 

ELNTl 5 50 

l56. 


AL=(DC-(2.9FM*1. 1 9AU /(2.9(FM*Z. I I 

CLNT1560 

157. 


X=CA9AL 

ELNT1S70 

158. 


SUM = Sl)H*X 

ELNT1S80 

159. 


IriABStXl.LT.TUGOTO 930 

FLNT159D 

I 60. 


FP=FH*i. 

LLNT16CC 

161 . 


CB=-« (2.9FM*1 .)/(2.9(rM*l. JM9CB9SKP 

FLNT1610 

162. 


ir(ABS(OEJ.LT.10.F-30 » Be=D . 

ELNTl 6 20 

163. 


BE=BE9W 

ELNT16 30 

169. 


GOTO 350 

ELNT169D 

165, C 


POWER SERIES IN 1 - (K SQUAREOl 

ELNT165D 

166. 

360 

RTrSORKABSIFNll 

ELNT166D 

167, 


iriFNI 370 * 38C , 390 

ELNT167D 

168. 

370 

0=A(.ar.( (1 .*RT9S> 7(1 .-RT9$> »/(2.«RT> 

ELNTl 6 80 

169 . 


GOTO 900 

ELNTl 6 90 

170, 

3 80 

Q=S 

CLNTT7 00 



vu. 

172. 

173. 

nn. 

'175. 

176. 

T77; 

17a. 

179. 

18G. 

”iai, 

162. 

' 163. 
164. 

185. 

186. 
187. 
lae. 

189. 

190. 

191. 

192. 

193. 

194. ( 

195. 

196. 

197. « 

198. 

199. 

200 . 



COto 400 . 

390 0=ATANIRI*S»/RT 

4 00 'SUH^fNi'OVR '■ 

PKP=SKP 

"-aps-ij.S-'- 

FH=l. 

■ — ii=iu>iii;r^r — 

410 0=«R“0»/D 

fizt/i 2 ;'*r H li -1 i . - , b/fB » • r ' ’ 

X=6P*fFN4C»R»*PKP 

siiH=suli*x ■■ ‘ ■■ " 

iriABSIXI.Lt.TlIGOTO 420 

■**' 'T=T*K - ^ — ■ 

PXP=PKP*S«P 

'■ ■FM=rh*i. 

AP=-AP*f l.'.5/FH) 

■* GOTO 4"id’ - ' ' ' " 

420 SUH=SUM/0 

4 30' irteB .It ;o, » 60 l 6 "SfiJ ” ' " 

440 IFtet 50 . 90 t 450 

450 PIt=A*SUM ■' ■ ■' 

460 PIE=PIE*P1E*R0UND 

■ RETURN ' . ■' 

ERROR RETURN 

4 7d PTE=0,' *' . ■ " ’■" 

GOTO 460 I 

' CASE oF pHl,l,P‘Htl ““ * 

4B0 PIE = 0.5*(TAN(P 1/ COSfP I *AL0G ( T AN 1 1 HP*P I/2.0IM 

GO TO 46 CT “ * 

END 


ELNTlTfo* 
„E1.NT1720 
ELNfi"7 3b 
ELNTl_740 
*" ELNtlTBD 
__EJJ4U7^ 
ELNT177D 
ELNT1780 
ELNT'179D 
EtNTiaOO 
ClNTiaiQ 
ELNT1820 
'"“ELNtlaie” 
CLNT1840 
"ElNfiaSo 
ELNTieSO 
'CLNTietO 
_ELNn8 8D 
ETNT18 9b 
ELNT1900 
ELnT1910 
ELNT1920 
ELNT1930 
CLNT1940 
ElNtifSO 
ELNT1960 
ELNT 1 9 70 
ELNU980 
ELNT1990 
ELNT2DQ0 
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25 

AUG 75 

1 8 

1. 

SUBROUTINE 

CUP 





ELIP 

20 

* * 2.C 







EUP 

ID 

3.C 







ELIP 

30 

4.C 

* 

HASTINGS 

APPROXIMATION 

FOR ELLIPTIC INTEGRALS 

EUP 

*»0 

s.c 







ELIP 

50 

6 • 

COllHON' ’ 

MroR( jdi 

,CASC 

,NB 

,NNU 


CLIP 

60 

7. 

1 

,FLG03 

,FLGO«) 

,FLG05 

,FLG06 

,FLG07 

EUP 

70 

8. 

2 

,rLG08 

,FLGD9 

,FLGlb 

,FLG1 1 

,FLG12 

CLIP 

80 

9. 

3 

,FLG13 

,FLC1*I 

,FLG15 

,FLC16 

.FLGI7 

ELIP 

90 

10. 

*« 

,FLGle 

,FLG19 

,FLG20 

.FLG21 

.FLG22 

CLIP 

I 00 

11 . 

5 

,CLG23 

,FLG2*4 

,FLG25 

,FLG26 

,FLG27 

ELIP 

1 10 


12 . 

13. 

14. 

15. 


23. 

•24'.c’ 

25. 

26. 
27. 
26 , ■ 
29. 
30 . 


COMMON 


NT, 

NCR I , 
NUNCI5I . 


ND (11 >, 
NCR2, 


MN, 
NH/» ■ 


TYPCC15J, NLPUII, 


NONA (6 ) , 

NSIGA, 

ICC, 


TYPCACB 1, 

N$ICC, 

NSIGCC, 


IYPECC(5 l.NUNECtGI 


16. 

DOUBLE 

PRECISION 

HEDR, CASE 




17. 

INTEGER 

FLGO 3 

,FLGO*» 

, FLGO 5 

.FLG06 

.FLC07 

I'e. 

'1 

,FLGOe 

,FLGb9 

,FLG10 

,FLG1 1 

,FLG12 

19. 

2 

,FLG13 

»FLG1*I 

.FLGIS 

,FLG16 

,FLG17 

20. 

3 

■.ri'oie 

,FLG19 

.FIG2D 

.FLC21 

,FLG22 

21. 

R 

,FLG23 

.FLG29 

,FLC?5 

.FLG26 

.FLC27 

22. 

REAL 

MN 






LOGICAL PF 


COMMON /CL/ 


COMMON /TL/ 


XH5QD1. Y1I5DD1, X2(50a), 
SINA(5C0I ,COSA(50C]1 ,XP(5U0). 
,XWAKE» lll.YUAKCtll > 

A(5C0), B(500», AX(5D0), 

CX(GOCl), CYISODI, C7(50a), 
VN(‘liOD,5i,Vtr5aO,5> .DON, 


Y2«500» 
YPI 5001 


DCLU50QI , 


AY(500), AZ(500), 

AXV15l'D» ,flYV(ODD) , 
lAC , 


CLIP 120 
CLIP 130 
CLIP 1*10 
CLIP 150 
CUP 160 
CLIP 170 
CLIP 180 
CLIP 190 
CLIP ZOO 
CLIP 210 
CLIP 220 
CUP 230 
CUP 2*)0 
CUP 2 50 
CUP 2 60 
CLIP 270 
CLIP 280 
CLIP 290 
CUP 300 


31. 

3 

It J» 

Jl. 

5 J. 

OS , 


CLIP 

3 10 

32. 

4 

OX, OY, 

NI, 

X J, 

YJ, 


CUP 

3 20 

33. 

5 

XK, EEK, 

CKK , 

Kt 

PF 


CLIP 

3 30 

' ‘ 39 .C 







EL IP 

340 

35. C 


* START 





CLIP 

3 50 

36 .* 

eta‘ = 

i, - XK 





CLIP 

3 60 

37. 

IF (CTAI 10 , 10 , 40 





CLIP 

370 

■ :'3e". ■■ ■ 

ib IF (BON .GT. n.Sl GO TO 20 





CLIP 

3 00 

39. 

XI - 

X2(l) 





CLIP 

390 

40. 

YI = 

Y2CI1 





CLIP 

400 

41. 

GO TO 

30 





CLIP 

4 ID 

1 ^ 2 , 

20 Ti ' = 

xpdt 





CLIP 

4 20 

43. 

Y1 = 

VPdt 





EUP 

4 30 

'* 44 ; 

30 WRITE 

16, 50 ) 1 ,XI ,Y1 ,J,XJ.YJ 

,XK,CTA 




CLIP 

440 

45. 

ETA 

= 0. 000005 





CLIP 

4 50 

" “46; 

4Q EtN-ALOGlETA » 





CLIP 

4 60 

47. 

EKM = 

1.386294ED ETA * 

1 .9666344E-1 

♦ eta 4 



CLIP 

4 70 

48, 

1 

i.359b0 92'E-i •* ETA * 

1 .3742564E-1 

♦ e;t a 4 



CUP 

4 80 

49. 

2 

.1451 196E-1 t n - ELN 

* (.5 CTA 

4 ( , 12498S9ED 

♦ 

CLIP 

4 90 

'"50. ~ 

3 

ETA * ( .688 0249 C-1 ♦ 

ETA 4 (.3328355E-1 « 

CTA 

4 

CLIP 

500 

51. 

4 

.441787DC-2 TtM 





CLIP 

5 10 

52. 

ECK = 

t. ♦ ETA * (.4432514 e6 

♦ CTA 4 t 

.626060IC- 1 

4 

ETA 4 

CLIP 

5 20 

53. 

1 

(.4757384E-1 + ETA * 

. 17365D6E-1 

MI- ELN 

4 (ETa 4 

CLIP 

5 30 

54. 

“ 2 

(.2499837EQ ♦ ETA * ( 

.92C0180C-1 

♦ CTA 4 



CLIP 

540 

55. 

3 

(.4069698E-1 ♦ ETA * 

.52644960-2 

Ml) 



EUP 

5 50 

56 ■ 

RETURN 





ELIP 

560 



57. C“ ' ' ' ' ’ CLIP 570 

58. 50 F0RHAH* ERROR IN Clip. I = ',T3,*, Xlr* .F10.5 , • , YI=»,F10.5, CLIP 580 

59. i», J = XJ=SFlD.5,', yj-*,FiD.5,% XKr • ,r8 .5 , • . E T A=* , FB .5 lELI P 59D 

60. END CLIP 600 





‘sv.rate 

1. 

■ ‘'2.C' 
3«C 

5.C 

V.T 

7.C 

a;c 

9.C 

la. 

11. 

12 . 

17. 

U. 

15. 

16. 

17. 

** iB. 

19. 

20 . 

21 . 

22 . 

23, 

■' 2M. 

25. 

■26. 

27. 

2e. 

29. 

" iTi Z ’ 
21 . 

32. 

33. 

34. 

35. 

36. 

37. 

3B. 

39. 

40. 


SUBROUTINE CtLC («\,K.E,n 


THIS SUBROUTINE CALCULATES THE ASSOCIATEO COMPLETE ELLIPTIC 
'Cr THE FIRST OR SECOND KINO 
THE ARGUMENTS ARC* 

“ ■* A * ARdUMENT (K SOUAREdl FOR 
K VALUE OF 

E VALUE or 

I IF EO 1, 


TiHl 

ASSOCl ATED COMPLETE 
ASSOCIATED COMPLETE 
COMPUTE K ; ir EO 2 
DOUBLE precision K,E , CONI 32 1 , A ,LN4 
EQUIVALENCE < CON ( 1 1 i CE U I) . <C0N(3 
” DATA Cr /9. 65735907975890180-2,3. 
1 7 C462 90-2, 9. 6 587 579 8 6 175 31130-3 ,1 . 
2156560-2,6.69055099068979360-3 ,6’. 4 
379230-1,7.03124264646273610-2,4.68 
454220-2,2.7189661 116788250-2,1 ,410 
58 860-3,1 .504918178360 18 830-4 ,4 . 'U 1 
63580-2,2 . 187622D6471 861980-2,1 .251 
74320-2,1 .53771025285520190-2,7.335 
82290-4,2 .499999999361 76220-1,9. 374 
90240-2,4 . 2 38 2BU74 569 4 79 0-2 ,3.03027 
DATA CL / 1.55251299480407210-2,3 
170480250-4 / 

'LN4 = 1.38629436 11198900 
IF (A.EO.C.Di DO TO 4D 
GO TO 1 10 , 20 1 ,I 
10 K = LN4 ♦ « ( 1 m ( CON ( 8»'>A<C0NI7J »* 
:♦ C0N(3t M>A^CON< 2U4A +CONn n«A - 
2C0NI 1 5»)*A + CQNn4 H « A .CON( 1 3M «A-*c 
3* C0N19) »>»A > 

GO TO 30 

20 £ = 1 .000 + U ( 11 M CONi 24i«A^C0N123 > 
1 » )»A*C0N(19 M*A-*cnNl 1 0) 1#A*C0NH7 1 
2 * C0N131) )*A + CON I 30) ) «A + CON 129 ) )*A 
3 AtC0N»251 )*A ) 

3D RETURN 

4D H = 0 .99999999030 
C - 1 .ODD 
RETURN 
END 


CH E* OR K* WILL B 
ELLIPTIC INTEGRAL 
ELLIPTIC INTEGRAL 
, COMPUTE r 
,CFC29),CL<3»,DL0G 
0)jCH 1 > » 

08855734867526940- 

12089185546440920- 

99844332939D10D-4 , 

16E585654D39520-2, 

53807761500480-2,3 

4718U21558D6D-1 ,5 

05924108446440-2.1 

6164 9742903650-3,7 

99202496801130-2,5 

4772041284BD-2 ■/ 

.48386794358964920 


A+C0NI6) ) ■^A-tCON IS ) 
DLOGl A)0(0.5« < lilt 
0NI12) )4A + C0N(11 I ) 


)«A*C0N(22 

X-A - DLOClAXl IM 

■*CON12a)l*A+CON<27 


25 AUG 75 18 : 

ELLC 20 
ELLC 10 
INTEDRALSCLLC 30 
ELLC 40 
ELLC 50 
E FOUND ELLC 60 

OF FIRST KINOELLC 70 
CF SECOND KINELLC 80 
ELLC 90 
ELLC 100 
-FTLc no 
2 ,1 ,4976988178ELLC 120 
2,1. 385S601247ELLC 130 
1 .2499999994 llELLC 140 
3.706839893415ELLC 150 
.1831309927862CLLC 160 
.68D5657874695ELLC 170 
.3034146073731ELLC 180 
.C9S09640a9987CLLC 190 
.8582a39536S59EU,C 200 
ELLC 210 
“3,1 .642721079ELLC 220 
ELLC 230 
ELLC 240 
ELLC 250 
ELLC 260 
ELLC 270 
ELLC 280 
ELLC 2 90 
ELLC 300 
ELLC 310 
.<•1 ) )#A + C0N12DELLC 320 
lll(C0N(32)*A ELLC 330 
))«A+C0Ht26) )»ELLC 340 
ELLC 3 50 
ELLC 360 
ELLC 370 
ELLC 38D 
ELLC 390 
ELLC 400 


)«A+C0Nt4))*A 
1 (CDNl 16)9A4 

AA+CONflO » >*A 




rCYCR ™ 



.4t,« ... iM I* ■ 


* ‘ " 2 5' iilG ’ 7 * 5 " 

1ft' 

1. 

SUBROUTINE EXCROS 


- 


EXCR 

20 

2.C 






EXCR 

10 

3 .C^^^ 

♦♦♦COMPUTE EXTRA CROSS FLOW 

VELOCITY COMPONENTS AND 

PRINT 

EXCR 

30 

4. 

COMMON 

/IPSE/ PSF 




EXCR 

40 

5. 

COMMON 

HCORIIOI tCASC 

,NB 

• NNU 


EXCR 

50 


’I '■ 

.FieoT ,FLGD4 

.Fi.'e’DB 

,FLG06 

,FtG(T7 

EXCR 

60 

7. 

2 

.FLCOU ,rLC09 

tfLGlO 

.FLGIl 

,FLD12 

EXCR 

70 

■ft.' 

'3' ■■ 

,f'LgD“ ;flgi4' 

■"■'" .FLGIS 

'■,f1G!6" 

tFLGlT 

■ EXCR 

SO 

9. 

4 

,FLG18 .FLG19 

*,FLG20 

»FLG21 

kFL622 

EXCR 

90 

Tff; "■- 

"S 

.FiC23 »FLCZ4 

;FLG25 ' ” 

,f1G26 

,FLF,27 

EXCR 

100 

11. 

COMMON 

NT, NOUll, 

HN, NUNAIS). TYPCAISI, 

EXCR 

no 

12 * 

“I 

ii'ERi, ‘ "iiiwz ; 

NMA, NSI'CA, NSIGC, 

EXCR 

120 

13. 

2 

NUNCI5), rVPECIB), 

NLFIll). lEC, 

NSIGEC, 

EXCR 

•30 

14. 

3 

‘ TYPtECIS I.NUNECISI 




EXCR 

140 

15. 

DOUBLE 

PRECISION HEDR, CASE 




EXCR 

150 

16. 

INTEGER FLGD3 .FLG04 

,'FLG0 5 

.FLGD6 

,FLG07 

EXCR 

160 

17. 

1 

,FLGQ8 ,FLCQ9 

,FLG10 

, FLGIl 

,FLG12 

EXCR 

1 70 

18. 

2 ” 

,FLGi3 ,'FLGI4 

TFLOiS 

,FLG16 

,FLG17 

EXCR 

18Q 

19. 

3 

,FLGie ,FLG19 

,FLG2D 

,FLG21 

,FLG22 

EXCR 

190 

fa.' ' ~ ■■ 

4 

,’FL(;2'3 ,TlG24 

■ ,FLG25 

,fLG26 

, FIG 27 

EXCR 

2 00 

21. 

COMMON 

/P/ IPUVCL 

’ 



EXCR 

2 10 

ii~. 

REAL 

’ ' ‘ 'M'N - * - - - 




EXCR 

220 

23. C 






EXCR 

2 30 



'-cieiiTro'fF-'m? ~ ‘Sfn-foo i r Tiiwo 17 ' x2rrdBTr 

■■ Y2r^0’0'f ' 

"OELSIBdO 1, 

excR 

2 40 

25. 

1 

SINA(SOOI,COSA(500I,XP(SDO», 

TPI500I 


EXCR 

250 

26. 

COMMON 

/TC/ RBI500, lot, 

SIGI 500,51, 

AISOO 1 ■ 

Bl 500 1, 

EXCR 

2 60 

27. 

1 

ZI500I, 

PHI (500,51, 

XN(500,5 1 

,T I 500,5 1 • 

EXCR 

2 70 

28. 

2 

’ 7’ T3t5'bb,5i, 

NSIG, 

NP, 

NT , 

EXCR 

280 

29. 

3 

' SUMV, 

SUHMI 51 



EXCR 

290 

"ro.c 




EXCR 

300 


31. 

32 .C 
33. 

3 *t; 

35. C 

36. ‘ 

37. 

36 

39. 

9 D. ' 

41. 1L‘ 

4'2.C**# 

43. 20 

44. 3tl 

45. C*** 

46. 

47 

'' 48 “;Cft »4 

49. 

SQ.CV**' 


DIHCNSION VXI500,51« V VI 500(5 »,VZ(SOD»S 1.72(500,5 • 


E 0 UIV 4 LENCE 
1 IVZd .li , 


( VX (1.1 i . XNIl ), I VVll.ll, 
T3H ,n I, i*i2i i , 1 It f iT,"i i I 


TU.U I. 


fetWiNb 8 ' - * - 

IF IFLGDa.EO.OI GO TO 20 

♦ ♦♦TITLE FOR MATRIX print ‘ ' 

WRITE (6, no IHEDRtCASCtPSF 

WRITE" 16 , To T - -- - : ■ - 

FORMAT IlH 4ZH MATRICES A,B,Z BY ROWS ♦ EXTRA CROSS FLOW //I 
♦♦♦REAt) extra CROSS SIGMAS - "r 
DO 30 N = ItNSlG 
READ (31 I SlGn.Nl.I = irNT >' 

♦♦♦NO. OF MIDPOINTS LOOP 
00 90 I = l.NT - 

♦♦♦READ MATRICES A.B.Z 

'♦'♦♦YOU must solve PO TENTI AL NAtRT X FOR EXCROS 

READ tei I A(J),J = l.NTt.l 0 (JI.J = l.NT 1. I ZIJI.J :: 1 ,NT I 
♦♦♦NO. OF FLOWS LOOP • 


EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 

EXCR 


310 
3 20 
3 30 
340 

3 50 
360 
370 
380 
390 

4 00 
4 ID 
420 
4 30 
4 40 
4 50 
4 60 
4 70 
4 80 

4 90 

5 00 


51. 

M = 0 

EXCR 

510 

52, 

DO 50 N : I'.NSIG' 

EXCR 

5 20 

53, 

M i M ♦ 2 

EXCR 

530 

54. 

SA 'r D.d " ' '■ 1' 

EXCR 

540 

SS. 

SB = 0,0 

EXCR 

550 

56. 

S2 = 0.0 ■ ' ■ ■ 

EXCR 

560 





'”'57*.( 

C**9 

•♦♦NO. OF ELEMENTS LOOP 



tXCR 

570 

58. 


DO 90 J = 1 f NT 



EXCR 

580 

&9. 


SA = SA * AtJ) ♦ SIdU.NI 



EXCR 

590 

60. 


SB = SB * UtJI ♦ SIGIJ.NI 



EXCR 

600 

‘61’. 

' 90 

SZ = SZ ♦ Zi Ji ♦ SlGl J.NI 



EXCR 

610 

62, 


T21I.NI r SB 



EXCR 

620 

13. 


nii.Nr = SZ 



EXCR 

6 30 

69. 


KNll .Nl = SA 



EXCR 

690 

IS. 


PHlll.NI = Y211I *52/ 2.0 



EXCR 

6 50 

66. 

SO 

CONTINUE 



EXCR 

660 

'67 ; 


IF (FLGde.tC.PI GO TO 90 



EXCR 

6 70 

68. 


WRITE 16, 60 1 I, lAlJI.J = l.NT) 



EXCR 

680 

•■■69. 

- ■ ■ 60 

FORHAT 11M0'13H MaTIJIX A liOW 167* OH 

lOFlD ,5) 

) 

EXCR 

6 90 

70. 


WRITE (6, 70 1 r. (DIOI.J = l.NT) 



EXCR 

700 

71. 

70 

FORMAT IlHO 13H MATRIX B ROW 16/ (IN 

IDFID .5) 

» 

EXCR 

7 10 

72. 


WRITE (6, 00 ) I. ( ZUT.J = l.NT) 



EXCR 

7 20 

73. 

80 

Format lino 13 m matrix 2 row 16 / iIm 

ioriD.5) 

) 

EXCR 

7 30 

79. 

90 

CONTINUE 



EXCR 

790 

"75. 

t*** 

' ♦♦♦PRInI EXtRA CROSS FLOW (ON BODY) OUTPUT 


EXCR 

7 50 

76. 


00 210 L = 1 .NSlG 



EXCR 

760 

^ 77 ; 

■ 

KEC = L 



r.xcn 

770 

78. 


1 = 1 



EXCR 

780 

79. 


J = 1 



•EXCR 

790 

80. 


H = 1 



EXCR 

800 

' sr; 


■R' = N'OTM) 



FXCR 

8 10 



♦♦♦H IS THE BODY NUMBER 



EXCR 

8 20 

01 . 

r.*** 

♦♦♦N IS THE NUMBER OF POINTS ON BODY 

M 


rxcB 

8 30 

89. 


LCTR =22 



EXCR 

890 

65 ■ 

' 1 CIO 

WRITElG, 110 IHEDR.CASC.PSF 



EXCR 

8 50 

66 * 

no 

FORMAT (IHl 25X, 26H00UGLAS AIRCRAFT 

COMPANY 

/ 

EXCR 

8 60 

87. 

- • 

1 " 28X, 21ML0NG BEACH DIVISION 

/// 


EXCR 

B70 

88, 


2 6X,IDA6,9X,10HCASE NO. A6.1DH PSF = ,A9 

// > 

EXCR 

880 

■“89, 


IF (FLG22.GT.DI GO TO 130 



EXCR 

8 90 

90. 


WRITE (6, 120 »NUNCC(KEC) 



EXCR 

900 


91. 1?0 rORMATi*»lH ON-(jODY NON-UNIFORH EXTRA CROSS TLOU NO. Ifil EXCR 910 

92. GO TO 150 CXCR 920 


"W. * 130 BfilTC ■ 16, 'i4o » ■ fXCR 930 

99. 1*ID FORMAT160H ON BODY GENERATED JRCSEPi BOUNDARY CONDITIONS EXTREXCR 990 

95. lA CROSS FtbUI EXCR 950 

96, 150 WRITE 16. 160 » EXCR 9 60 

’97, 160 FORHAT IlH 5X 29 H tRANSFORMCD COORDINATES // EXCR 970 

9a, 1 12X ItlX 13X IHV 13X 2HT2 12X 2HT3 9X SMSIN A EXCR 980 

99 . *2 ' 6X ‘ShCOS A 1 % 5HS1GMA llX IHN 13X 3HPHI //> EXCR 990 


IDD, 170. WRITE <6, 180 I I ,X 1 1 1 » , Y1 1 1 I , X21J1 , Y? IJ » , T 21J, L> ,T3 IJ.LIEXCRIOOD 


lOl’,- 1, SINAI j) ,CQSAlJI,Slr,lJ,E),XN( J.LT.PHIM, LI EXCPIOIC 

102, 180 FORMAT flH 13.2F19.7/ 9X 9 F19 . 7 ,2F 1 1 . 5 , 3F 1 9 .7 » • CXCR102D 

'IDS. 1 = 1*1 EXCR1D30 

109. J = J ♦ 1 EXCRin90 

ICfS-, ' IF U.CO.'Ni 60 TO 190 ■ EXCRlODD 

106. IF n.tC.LCTRl GO TO 170 EXCR106Q 

107. LCTR = ICTR ♦ 22 CXCR1070 


loe. GO TO 100 

IO 9 ;; 190 M ■= M ♦ i 

IIQ. N = N * NDIM) 


CXCRIOBO 

EXCR1D90 

EXCRilDD 


Trr.*""' " g— -J j. ^ ^ j j V yj, J j EXCR U 10 

112. 2CQ FORMAT T1HI3,2F19.7 // ) CXCR1120 

ri3. ■ 1 = 1 * 1 EXCR113D 





"114. 


If IJ.CE.NTl CO TO 21C 

EXCR1140 

115. 


CO TO 170 

CXCRl 150 

A16. 

210 

COTJTlNUr 

EXCR116U 

117. < 


•♦♦THIS IS WHERE THE CALL FOR PUNCHED OUTPUT WILL GO 

EXCR117D 

lie. 


IF 1FLOD5.EQ.01 RETURN 

EXCR118Q 

119. 

c**« 

♦♦♦OFF BOOT POINTS 

EXCR1190 

120. 


00 230 I = 1,NP 

CXCR120D 

121.1 

C4<*« 

♦•♦RFAn HATRICCS X.V.Z 

EXCR12 ID 

122. 


READ 18) f A«,ll,,|7l.NT ),(b(JI«J r l.NT). ( 2(J).J = l.Nr \ 

EXCR1220 

123. 


00 23C N r 1 ,NSIO 

EXCR1230 

124. 


SX = 0.0 

CXCR124D 

125. 


SY r 0.0 

CXCR12S0 

■ 12&. 


SP‘ r 0.0 

EXCP1260 

127. 


♦♦•NUMBER or ELEMENTS LOOP 

EXCR1270 

12« . 


do 22D J - l.NT 

EXCR1280 

129. 


SX r 5X + A1 J) ♦ SIC U.NI 

EXCR1290 

1 3o. 


Sir = 5Y ♦ B«JI ♦ SIC TJ.NI 

CXCR1300 

131. 

220 

SP = SP ♦ ZIJI • SiG(J,N» 

EXCR1310 

132. 


VX(l.N) = SX 

EXCR132D 

133. 


wm.N) = SV 

EKCR1330 

134. 


WZil.N) = SP 

EXCR134D 

135. 


PHUI ,N) = YPCI) ♦ SP / 2.0 

EXCRI350 

i36. 

2 30 

CONTINUE 

EXCR136D 

137. 

C**« 

••♦PRINT EXTRA CROSS FLOW lOFF-BODY) OUTPUT 

EXCR137D 

13ft. 


00 3'2b L = l.RSIG ‘ ‘ 

EXCR130D 

139. 


KEC = L 

EXCR13 90 

140. 


1 = 1 

EXCRI400 

141o 


LCTR = 45 

EXCR14 10 

1‘42. 

2 40 

WRITE <6, no IHEOR.CA SE.PSF 

EXCR1420 

143. 


IF IFLG22.GT .0) GO TO 260 

EXCR14 30 

* "144". 


"WRITE (6, 250 I NUnEO KECI " * ' 

EXCR144D 

145. 

2 50 

FORMAT »43H OFF BODY NON-UNIFORM EXTRA CROSS FLOW NO. T8) 

EXCR14 SO 

146. 


GO TO 2G0 

EXCR1460 

147. 

260 

WRITE(6, 270 ) 

EXCR14 70 

148, 

2 70 

F0RMiT(68H OFF BODY GENERATED IRESEP) BOUNDARY CONDITIONS EXTREXCR148D 

149, 


lA CROSS FLOW) 

EXCR1490 

'150. 

280 

URrir «6 , 290 1 ' ' ' 

EXCRISOD 

151. 

290 

FORMAT (IH 5X, 24H TRANSFORhED COORDINATES If 

EXCPIS 10 

152. 


1 12X IHX l3X IHY 13X 2HVX 12X 2HVV l2X 2HVZ 12X 3MPHI //» 

EXCR1520 

153. 

3 CO 

WRITE , 31C ) I.XPtn.yPm.VXtl.Ll.VYd.U^VZU.L ).PHrn,L> 

EXCR1530 

154. 

310 

FORMAT UM 13, 6F14.7 ) ' 

EXCR1S40 

155. 


1 = 1 ♦ 1 

EXCRJ550 

' 156. 


If l-r.GT.NPIGb fd 320 

EXCR1560 

157. 


IF 11 .LE.LCTR) GO TO 300 

EXCR1F70 

1 58 . 


LCtR = LctR ♦45 

EXCR1580 

159. 


GO TO 240 

EXCR1590 

' 160. 

320 

'CONTINUE 

EXCR1600 

161. 

c*** 

•••THIS IS WHERE THE CALL TO PUNCHED OUTPUT OFF BODY WILL CO 

EXCR16 10 

162. 


RETURN 

EXCR1620 

163. 


eno 

EXCR163D 



T^O.HLAMG 

-///' - 
' « 


25 AUG 75 

le ^ 

1 • 

FUNCirON MLAMB «BrT«,HJ 


HLAH 

2D 

2.C 



ML AH 

10 

3.C 

IMIS SUBROUTINE CALCULATES THE MEUHAN’S LAMBOA 

FUNCTION 

CF BETA AND KHLAM 

30 



noMBLr PREcisioji A,r ,x 

ML AM 

RO 

5. 

REAL N 


HLAH 

50 

6 • 

— am ~mp/D.imrmzii/ — • ■ 


HLAH 

60 

7. 

CALL INEl in ,EI tPI ,BETA;OETAt J . 0 -K*'i 2 
A z 1 .0 - K **2 ' 

.0.1 »u 

HLAH 

70 

V. 


HLAH 

SO 

9. 

CALL ELLC lA ,F,C,1T 


HLAH 

90 

Tff.- 

CilL tLLC lA »r,E,2» 


HLAH 

ICC 

u. 

HLAMB = TWOP*lF*ET *IC-FI*F1> 


HLAH 

1 ID 

T2. 

RETURN '■ 


HLAH 

120 

i’J. 

END 


HLAH 

1 30 



■TOniijMCt' 
1 • 

2'.C”“ 

3*C 

v.'c*' 


_SUBRO UJ irJt IWCL ir,E^P I,» ^PHl»SWI ,K3 ^K2,K 1 » - 

IHZS SUBROUtlNC. CALCUUkTCS IHE lMCOHy.ElE_£LUPf IC INTEJSRALS OF THE 
Fi'RSfrSECOVo ANtTfHIRD "KfNDS. TilTAODUHENt 5 ’ ARE 


25 AUG 75 

ms. 

I»IEt 
IKEt, 
INEL 


18 

20 

io 

AO 


s.c 

F 

VALUE OF INCOMPLETE ELLIPTIC 

1NTE*'RAL 

OF THE HR ST MIND 

INEL 

SO 

"" 6.C ' 

e 

VALUE OF INCOMPLETE ELLIPTIC 

INTEGRAL 

OF THE SECOND MIND 

INEL 

60 

7.C 

FI 

VALUE or INCOMPLETE ELLIPTIC 

INTEGRAL 

OF THE THIRD KIND 

INEL 

70 

sTc 

A 

VALUE OF ALPHA SOUAREO 




INEL 

80 

9.C 

PHI 

VALUE OF PHI 




INEL 

90 

- "rtrrr 

SKi 

VALUE* OF K SOUAREO 




INEL 

100 

11. c 

K3 

IF EO 0. 00 NOT COMPUTE PI ; 

IF 

NE 0* 

COMPUTE PI 

IHEL 

110 

X 2 Vc~ 

M2 

IF EQ 0, 00 NOT COMPUTE E ; 

IF 

NE Ot 

COMPUTE E 

IHEL 

120 

13. C 

Ml 

IF E6 0 . 00 NOT COMPUTE F ; 

IF 

NE Of 

COMPUTE F , 

INEL 

130 


■ oouTle 

PRECISION ARG,FO,EO 




INEL 

lAO 

15. 

DATA PIT/1.57079633/ 




INEL 

ISO 

16. 

£- 0.0 





INEL 

160 

17. 

F=0.0 





INEL 

170 

i'a.-”' 

* "iF"«k3 

.Ed. 01 GO tb io 



INEL 

180 

19. 

CALL ELINT3 ( SKI , -A ,PHI .PIl 




INEL 

190 

' 20 . 

10 IF IKl 

.CO.O) GO TO 30 




INEL 

200 


_ 21. IF lAGSlPHl-PITI .GT.l O.D**C-7»» GO TO 20 

"122T ■* ' “ARG‘=i .0-SKI “■■ ■" 

23. ^ CALL ELLC I ARG.FO. ED , U _ 

25. ^0 TO 30 _ 

'“26*. 20 CALL ELI NT3 “( SKn a.T) , PHI iri 

27. 30 IF IK2.E0.01 GO t 0 ^0 

' "2ir. IF lA*B5(PHIrPili.~GT.roT0*Si^7rf*Gd fd’AO“^‘“ 

29. ArG=1.D-SK1, 

'"t’ALL TlL"C ■" ( A RG ;FD';EDVr»'’“ 

31. C=ED 

32; Gd*T'o*'50 " * ■ 

3;^ AD CALL ELI NT3 t SKI , -SKI ,PH1 ,E » _ 

jA."* E=11.0-SKl»*L*0.'5’*SKl isrNC2.0*PHn7sORTI r.D-dKl*'5IN t PHI »**2i 

35. 50 RETURN 

— :jisv“‘""“T:Nti " - - 


INEL 210 
INeI 220 
INEL 2 30 
INEL 2 AO ' 
INEL 250 
INEL 260 
INEL 270 
INEL 280 
INEL 290 
' INEL 3 00 ' 
INEL 310 
iNEL 320 
INEL 330 
INEL 3 AD 
INEL 350 
iMEL 360 



'/sil? : 


rSDTlRTKCS ' ^ 

25 

AUG 75 

1 fl 

1. 

SUtlROUTINET IR AKCS «X , Y ,NN » 


IRAK 

20 

■ 2.fc 

-r- - •« - - . 


IRAK 

10 

3.C 

IHIS ROUTINE READS IN HASS-FtOM RAKE TYPE INPUT AND CALCULATES 

THE 

IRAK 

30 

^Tc' 

'paiNrSPACiNij.’ OFr^^^ LOCAfrONS, rake UNii NORMAL VECTORS, 

IRAK 

4D 

5.C 

AND AREAS, AND IDENTIFIER STORAGES. 


i'RAK 

50 

sr ■ 

XWfHON 7DVO«R/ NP*RE5%R»AHCr5o ,T»\,R'/nfCA r2o f.RUNl t 2CT , 


IRAK 

60 

7. 

1 RUN1TYI20T ,R0S«2 0T ,NRPTSr2QI .COSTHI2D » , IRAKF ,NOFF , X IRt20l , 


IRAK 

70 



?“yiR4 2'ni,X2R<2dT,^2R< 201 ' 


IRAK 

80 

9. 

oiHENSinv xnt.Ym 


IRAK 

90 

“'•‘■'lor- 

DATA PI/1, 1415927/ 


IRAK 

100 

u.c 



IRAK 

1 10 

rr."*- 

■ — WIY -ff*- * ' ■ ■“ — — 


IRAK 

120 

13. C 



IRAK 

130 




IRAK 

140 

is. 

DO 4D IRAKE=:1,NRAKES 


IRAK 

ISO 

" — 

READ is, 50 > Xl,Yl,X2,Y2,N,(‘RNAMEiJRAKE,I i,lrl,9l 


IRAK 

160 

17. 

XlfillRAMEI = XI 


IRAK 

170 

Tff7~' 

'*'■ 'yiRiiRKkEi ■=■ Yi "* * 


IRAK 

180 

19. 

X2RiIPAK£» = X2 


IRAK 

1 90 

2)3T 

■ V2R(lRAKCi = Y2 ' ' 


IRAK 

2 00 

21. 

IF IN .GE. 41 GO TO 1C 


IRAK 

210 

2-2','- 

WRITE |6, 60' I N 


’ IRAK 

2 20 

23. 

N = 4 


IRAK 

230 

24 

GO 10 20 '■ ' ' 


IRAK 

240 

2S.C 



IRAK 

2 50 

26,‘ 

"I'D NO = N" 


IRAK 

2 60 

27, 

N = IN/2142 


IRAK 

270 

* 28. 

Ik In .EQ. NQl GO TO 20 


IRAK 

2 80 

29. 

' WRITE 16, 70 ) NO,N 


IRAK 

290 

■ — 3c:c 



IRAK 

300 

31, 

20 DX = X2 - XI 


IRAK 

3 10 

~32. ’ 

DY = Y2 -VI 


-IRAK 

320 

33. 

D = SORT 10X4*2 * DY442I 


IRAK 

3 30 

'■■■ , 

UX = OX/O ' 


IRAK 

340 

35. 

UY = DY/D 


IRAK 

350 

"36. ■ 

■■ ’■COSTHURAKEJ = UY ' ‘ ” 


IRAK 

360 

37.C 

CONSTRUCT UNIT NORMAL TO THIS RAKE ... 


IRAK 

3 70 

-"-38. 

■WNITxOrAKEI i UY 


IRAK 

3 80 

39. 

RUNITYIIRAKEI = -UX 


IRAK 

390 

“ 9fi;c 

CALCULATE RAKE AREA ... " 


IRAK 

4 00 

91. 

RAKCAIIRAKEI = P140*(V1*Y21 


IRAK 

4 10 




IRAK 

420 

93. C 

THE NUH8ER OF NEEDED OFF-BODY POINTS IS 1 LESS THAN THE NUMBER 

OF 

IRAK 

4 30 

— '^‘.T 

TNTERY'ALS' nHE ACTUAL'WATOES’ AT BOTH ENDS WILL BE OBTAINED BY 


IRAK 

440 

45. C 

F.XIRAP0LAT10NI ... 


IRAK 

4 50 

h;- 

rN 'r'N" 


IRAK 

4 60 

47, 

RDSIIRaKEI = D/FN 


IRAK 

4 70 

4B.“" 

DT'^'DX/FN ■ ■ 


IRAK 

480 

49. 

OY = DY/FN 


IRAK 

490 

50 . 



IRAK 

500 

51, 

NRPTSIIRAKEI = M 


IRAK 

510 

— ” 

'B*e~3D i='i,M 


IRAK 

5 20 

S3, 

NN = NN ♦ 1 


IRAK 

530 

54. 

rr="T : ^ 


IRAK 

5 40 

5S. 

XINNI = XI * ri40X 


IRAK 

550 

“■"56%" 

•"3o“fi-NNi' r y1-t FfiMtrt ' 


IRAK 

560 



-/5f- 


ST.C 

se.c 

59. t I 

60. crc 

bl.CCC 

62. CCC 

63. CCC 

64. C 

65. 

66 . 

67. C 
66 . 

69. 

70. 

71 . 

72, 

73. 

74 . 


CMPOPARy WRlIt ... 

URlTt (6,2) lRAKi:.Xl,Vl,X2,y2,N,(RNAH{:(IR«Ht:,I 
H) = NN - H ♦ 1 

URITC (6,3) ( X(J) ,y( J),J=H1,RNI 

IfRlTC 16,4) RUHlTX(lRAXtT,RUNrTr(rRA«E),'RAKEA(lRAKC) .RDS(IRAKE) 


40 


CONTINUE 

RETURN 


20 rORHAT(4n0.5,I5,8A4, A3) 

60 rORMATCOINPUT ERROR FOR TLOlf RAKE NUNGER X 3 ,».* ,/l D X, ' ATTEMPT 
1 USE FEWER TUAN 4 INTCRVAES. PROGRAM MAS RESET N=4.*l 
70 f ORK-ATCdlNPUT ERROR FOR FLOW RAKE NUMGER * , 13 , • , * , /I OX, * ATTEMPT 
1 USE AN ODO NUMGER OF INTERVALS ^ N=» » 13^, •>.*,/ lOX ,• PROGRAM HAS 
2SET Ni*,13,*.M 
ENO 


TRAM S’O 
IRAK 580 
IRAK 590 
IRAK 600 
VRAK 610 
IRAK 620 
IRAK 630 
IRAK 6*10 
IRAK 650 
IRAK 660 
IRAK 670 
IRAK 680 
rOIRAK 690 
IRAK 700 
roiRAK 710 
REIRAK 720 
IRAK 730 
IRAK 7*<0 





To:miTf 

1. 

2-.r 

3,C 
T.C 
s.c 
ST 


D8 


SUDROUTINi: MATRIX 


• COMPUTE MATRIX A,BtZ OR X,Y,Z 


“S; C OM M OR 76 L 0 C K 1 / * f r»E 0 M fT9 I ,TS I G fW T I P N C M F , N ON E uTv I 

T. COMMON /BLOCH3/NOAXJ ,NOCROS»NDVORT ,NOV I ,N0V2,F IRSIE , L AS TE.LSSE 

'8, ■■■ ■*! NSMrC'L 

9. COMMON /BLOCK'i/A 11I50CI,A12 <530 I,A13«5D0 I.A2U500 I. AZ2f5DC», 


MTRX 
MTPX 
MTRX 
MTRX 
MTRX 
MTRX 
, SO, MTRX 
MTRX 
MTRX 


"Tb. 

11. 

'rA23<'5‘0b) 

COMMON 7PRINTF/ PRINl 

,PRIN2,PR1N3 




MTRX 

,MTRX 

IS. 

LOGICAL PRINl ,PRIN2,PR1N3 




MTRX 

13-. 

^ COMMON HEORIIDI 

,CASE 

,NB 

,NNU 


MTRX 

— it; 

■"T" " '7FLGD3 

,FLGQ9 

,FLGb6 

,FLG06 

,FLGC7 

MTRX 

IS. 

2 ,FLC08 

,FLGQ9 

,FLG10 

,FLG11 

.FLGI2 

MTRX 

■ TT.' 

"S* ,FLg13 

,FLGl9 

,FlGi5 

,rLGl6 

,FLG17 

MTRX 

17. 

9 .FLG10 

,FLG19 

,FL620 

,FLG21 

.FLG2Z 

MTRX 

Tfl.' 

-rt-bss ■*- 

; FUG 2 9 

iFL625 

,FL626 

»FLG27 

MTRX 


19. 

-ffl. 

21 . 

~-'2T, 

23. 

gjj-- 

25. 

26 . 

27. 

28 . 
29. 

-""30. 

31. 

■■ ■■ 32. 
33. C 


COMMON 


1 

2 

3 


NT, 

■her 1 , 

NUNC<5) 


Nom ), 
NER2\ 
TYPECISl , 


MN, 

'nma7‘ 

NLFlin, 


NUNAI5) 

NSIOA, 

TEC, 


TTPEA(5 », 
NS I GC. 
•NSIGEC, 


OOUBIE 

INTEGER 


1 

2 

3 

9 


TyPEECI 5 >,NUNEC<5t 
PRECISION HEDR, CASE 
’F1G03 ' ,TLGa*l 

,FLG08 ,FLG09 


REAL 
LOGICAL 
LOGICAL 
REAL tSSE 


VFtGi3 ‘ ,FLtii«t 
,FLG10 ,FLG19 

,FLG23 ,rLG29 

MN 

NONEiTtOLDTES ,PF ' " ' 

NOA X I .NOCROS.no VOR I ,N0 VI ,N0V2,KIRSTE .LASTE 


,FLG05 

,FLG10 

,FLG15 

,FLG20 

,FLG25 


,TlG06 
,FLG1 1 
.FLG16 
,FL621 
,FLG26 


.FLG07 

,ELGJ2 

,FLW7 

,.FLG22 

.i,FLD27 


MTRX 

MTRX 

MTRX 

MTRX 

MTPX 

MTRX 

MTPX 

MTRX 

MTRX 

MTRX 

MTRX 

MTRX 

MTRX 

MTRX 

MTRX 


34; 

‘COMHON /ECF / ■ ECX ( SDO 1 , ECV 1 500 I , 

Fez <5 Ob » 




MTRX 

35. 

COMHON /RNGWNG/ VA<5C0,21, VR <500 ,2 t ,V AN ( 500 1 

, VAT <500 » 

HtRX 

T6. 

COMMON /cL7 xnsooT, vnsbbi. 

X2<50DI , 

Y2(50DJ , 

DELL (500), 

MTRX 

37. 

1 SINAiSODI ,C0SAt5001 

,XP<50Q», 

YP<50C> 


HTRX 

'3 8 . 

2 .XWAKCf 1 1) , YWAKE< i n 





MTRX 

39. 

COMMON /TL/ A<SCO», B<5D0>, 

AX <500 ) , 

AYCSOOl, 

A2 (500) . 

MTRX 

90. 

1 CXfSOOl, CV(5DDT, 

CZ'<5 001 , 

AXV 

(50CI , 

AYV (500) . 

MTRX 

91, 

2 ' VN<500,S> ,VTI5D0,5> 

,f!ON, 


TAC , 


MTRX 

42. 

X if ' J, 

*jl. 

SJ. 


DS , 

HTRX 

93. 

9 OX, DV, 

Nl, 

Xsl, 


VJ, 

MTRX 

49. ■ 

5 xk , EEk , 

‘ tkK , . 

K, 


PF 

MTRX 

45. C 






MTRX 

96.C 

* START 





HTRX 

97, C 

9 INITIALIZE 





HTRX 

9 8. 

Ll=NT 





MTRX 

99, 

B0N=0.0 





MTRX 

SO. 

Y ZERO =0.0 





MTRX 

St. 

NSHALL = 0 





MTRX 

52. 

REWIND I 





MTRX 

53. C**# 

999TEST TYPE OF FLOW AND SET INDICATORS lAC 

AND lEC 


MTRX 

59,C**9 

999CR0SS FLOW ONLY 

I AC = 

-1 

lEC = 

-1 

MTRX 


999AX1S YMMCTRIC FLOW ONLY 

lAC = 

♦1 

lEC = 

-1 

MTRX 

56.CP9* 

949CXTRA CROSS FLOW ONLY 

lAC = 

0 

IFC = 

0 

MTRX 


IR 
20 
10 
3D 
90 
50 
60 
70 
BO 
90 
100 
1 10 
1 20 

1 30 
1<40 
150 
160 
175 
1 80 
190 
200 
210 
220 

2 30 
2W 
250 
260 
270 
2BL 
290 
300 

3 10 
3 20 
3 30 
3 90: 
3 5C 
36C 
3 7C 
38C 
3 90 
ROD 
9 10 
9 20 
9.30 
9 90 
9 50 
9 6C 
9 70 
980 
9 90 
.5 03 
5 1C 
5 20 
5 30 
590 
5 50' 
5 6C 






57. C**« 

58. C««* 

59. C*«* 
60>C*«« 

' 61. ' 
62. 10 

«**CROSS!^FLOW AND AXtSTHHETRIC FLOW lAC r 0 lEC 
**«CROSS FLOW AND EXTRA CROSS FLOWW lAC r'-l lEC 
♦♦♦AXlSYMNETRrc ANO'tXtRA"CROSS'rL‘OM TaT = ’lEfc' 

*«*AXISVHHCTRIC. CROSS* AND EXTRA CROSS lACrQ ICC 
1 r IFL Gb3 i '60 T fO '* 6 (T 
iriFLGOA) 30 « 20 • 30 

i 

-1 ■ 
♦ 1 
♦ 1 

,♦!_ 

"lITRX 5 TO 
KTRX 580 
HTRX S'VO 
HTRX 600 
MTRX*6id 
HTRX 620 

65. 20 

lAC s 0 



’ UTR'X 630 

66. 

lEC = 0 



HTRX 660 

65. 

Go 'TO 100 , ‘ ' 



"hTrX 65D‘ 

66. 30 

lAC = -1 



HTRX 660 

6T. 

GO TO 70 ■ - . 



HTRX 670 

68. 60 

ir(FLGD6> 50 f 60 , 50 



HTRX 680 

" ^ 69.’ '50 

■lAC = '0 . ■“ ■*" 



"■ ‘ HTRX 69D 

70. 

60 TO 70 



HTRX 700 

'71. 60' 

lAC = 1 



HTRX 710 

72. 70 

IFIFLC21I 60 * 90 « 80 



HTRX 720 

7J. . 60 

l'EC"= *i ■■■■'" - 



HTRX 730 

76. 

60 TO 100 



HTRX 760 

“-Tsr ■ 90 

lEC = -1 



HTRX 750 

76. 100 

assign 220 TO K1 



HTRX 760 

If* 

IF IFLG15.GT. 01 ASSIGN 160 TO K1 



HTRX 770 

78. 110 

00 IJO I-1,L1 



HTRX 780 

79. 

DO 120 J = 1 ,5 



HTRX 790 

80. 

VNUtJI = 0. 



HTRX 800 

ei. 120 

VTII.jl = OT " " ' 



MfiRX 8'iO 

82. 

VANIII=0.0 , 



HTRX 820 

83. 130 

VATIi 1=0,0 , 



HTRX 830 

86. C CHECK FOR NECESSARY INITIALIZATIONS REQUIRED WHEREVER THE 

NEW tl 

.E. HTRX 860 

BS.C RARABOLICI FORNOLAE ARE TO BE U%EIJ'... 



HTRX 850 

86. 

NOAXI = .TRUE. 



HTRX 860 

87. 

noCros = ;trUe. ~ - -- 

■ 


'■ HTRX 870 

88. 

NOVORT = .TRUF. 



HTRX 880 

89. 

IF «tIAC.CO.-ir , AND. iTEC,EO.-fll NOCROS = .FALSE, 



MtRX 890 

90. 

IF |(IAC.EQ.*lt .AND. UEC. £0.-111 NOAXI = .FALSE. 



HTRX 900 

91. 

IF fllAC.EO.Oi .AND. tIEC.EO.-lll NOAXI = .FALSE. 



MTRX 910 

92. 

IF MIAC.EQ.OI .AND. tlFC.EO.-lll NOCROS = .FALSE. 



HTRX 920 

93. 

IF t(TAC.EQ.l) .and, llEC.EOLfill NoCRo'S'r .'FALSE. 



MTRX 930 

96. 

IF (FLG15 .NE, 01 NOVORT = .FALSE. 



MTRX 960 

9S. 

OLDIES = .tRiJE. 



MTRX 950 

96. 

J1 = 1 



H7RX 960 

97, 

00 160 L=l,Ne 



MTRX 970 

98. 

J2 = J1 ♦ NDttl - 2 



MTRX 980 

99.” 

IF iNONEWlLil GO TO 160 



MTRX 990 

100. 

OLOIES = .FALSE. 



HTRXIOOO 

'TO IT 

CALL CbEFFtJl.JZl 



MTRXIDIO 

102. 160 

JI = J2 ♦ 1 



HTRX1020 

ID 3 ; 

'IF tPRlN3l WRITE 16. 610 1 



MTRX1D30 

106. C 




MTPXID60 

‘105. C 

-- - 



HTRXiOSd 

106. C 

♦ I HIDPOINT LOOP 



MTRX106D 

107. 

DO 390 1 = 1 , LI ■ 



MTRXiOTO 

108. C 

* J ELEMF-NT LOOP 



HTRX1080 

109. G 

^ Jl is THE COORDINATE COUNTER 



MTRX1090 

IIO.C 

J IS THE ELEMENT COUNTER 



MTRXll 00 

111. ' 

Jl=o ' ■■ ■■ ' ■ " 



MTRXlilD 

112. 

N1 = 0 



MTRX1120 

M3.C initialize THE ENTIRE ROW ... 



MTRXll 30 



-/J-V- 


ipr 


00 l5o' 0=1,NT 




MTRXllRO 

ns< 


AXIJl = 0.0 




MTRXllSO 

116. 


AYfJ) = 0.0 




MTRX116Q 

117. 


A2IJI = O.U 




MTRX1170 

118. 


CX(J) = O.D 




MTRXll BO 

119. 


CYTJ) = O.D 




MTRX1190 

120. 


cTijT =0.6 




MTRX1200 

121. 


AXVIJ) = 0.0 




MTRX1210 

122* 

150 

Avwi.n =0,0 




MTRX1220 

123. 


IF TFLD23 .CT. OTCALL NOTS 




MTRX1230 

' i 2'<* . 


IF iPRIN3 » 'write 16, 620 1 I 




MTRX129Q 

125. 


DO 220 H=1,NB 




MTRX1250 

“126. 


Mdvi = .False. 




HTRX126D 

127. 


N0V2 = .FALSE. 




MTRX1270 

128. 


ir IlSlBFIH) .EQ, 11 N0V2 = .TRUE. 




MTRX120O 

129. 


IF IlSIGFtKI .EO. 21 NOVI = .TRUE. 




MTRX1290 

' 130.C 






MTRX130D 

131. C 

BEGIN MATRIX FORMULATION OF THE COLUMNS OF THIS ITH 

ROW 

AS INFLUENCED 

MTRX1310 

m.c 

BY THIS ktii Body ... 




MTRX132Q 

133. 


HI = N1 ♦ 1 




MTRX1330 

‘139. 


N1 '= N1 -• NDIKI - 1 




HTRX13R0 

135. 


FIRSTE = .TRUE. 




MTRX13SD 

136. 


lASTE = .false. 




. MTRX1360 

137. C 






MTRX1370 

llfl.C 






MTRX1380 

139. 


00 170 J=H1,N1 




KTRX139D 

i<4D. 


J1 = J1 ♦ 1 




MTRX1900 

l«ll. 


PF = IFLGia.GT.O .AND. J.CT.NMAT . 

OR, (FLG20.CT 

.0) 


MTRXIRIO 

1*12. 


IF IJ .EO. Nl) LASTE = .TRUE. 




MTKX1420 

193. 


IF INONEUIKU GO TO 160 




MTRXIR 30 

199.'C 






MTRXlR*f,0 

1*15. 


CALL PARAB 




MTRX1R5I 

196. C 


CALL OVERLAY (PAN ,1 , 1 ,6HRECALU 




C 

197. 


GO TO 170 




MTRX1R60 

“i**a.c 






MTRXliiTO 

1**9. 

160 

CALL XY2 




MTRXl*t8I 

"isb.c 

160 

call OVERLAY (PAN ,1 ,2 ,6MRECALL t 




C 

151.C 






HTRX1990 

152. 

170 

FIRSTE = .FALSE. 




MTRXISDO 

1S3.C 






MTRX15 10 

159 .c 






MTRX1520 

155. 


J1 = J1 ♦ 1 




MTRX1S3C 

156.C 






MTRX15R0 

157, C 

matrix formulation of columns for this 

BODY HAVE BEEN COMnETED. 

MTRX155G 

158. C 






MTRX156C 

159. 


GO TO Ml , ( IBQ , 220 > 




MTRX157C 

160. 

180 

IF INLMM 1 .GT .01 CO TO 220 




MTRX15BD 

161. 


IF JBON.EO.0.1 GO TO 200 




HTRX1590 

Ifa2. 


DO 190 J = Ml, Nl 




MTRX1600 

163. 


VNtI,M = VN(1,K MAXV(J) 




MTRX161D 

lb*t. 

190 

VT(I,K) = VT( I,K) *Ayu IJi 




MTRX1620 

165. 


GO TO 220 




MTRX163D 

166. 

2CD 

DO 210 J = Ml, Nl 




MTRX164D 

167. 


VN(l,Mi = VN(J,K» ♦AXV(JT«5TNAm 

- AYV( jnCOSAl t ) 


MTRX165D 

168. 

Tio 

\fT(I,K> = VT(1,XT *AXV( JJ#C05A(ii 

♦ AYV( J1*SINA( I 1 


MTRX1660 

169. 

2 20 

continue 




MTRX1670 

17G. 


IF (PPINU WRITE in (AX(Jt ,AY( J» , 

CX(Ji,CV( JT,CZ( J> 

, A XV IJ 1 , 

MTRX168D 





“171. 1 AVVI J»,J=X iNTJ MTRX1690 

172, IT( FtGOe .Lt.O .OR. FIC15 .Lf. 0 »GO TO 270 HIRX1700 

173. C MTRXmO 

17<t.C*** 0 PRINT STRIP VORTEX MATRICES MTRX1720 

175. C " “ *■ MTRX1730 

lit, 1F( I ,E0. 1 .ANO. BON .EO. D. INRITCIG. 230 1 MTRX1740 

177, IFt I ,EQ. 1 .ANO. BON .EO. ir "iWRlVEro, 2<|'o > MTRX17S0 

178, 230 fORMATIlHl,31H STRIP VORTEX MATRICES ON BODY 2/> MTRXI76D 

179, ^^Q FOBMATHHliSlM STRIP VORTEX MATRICES OFF BODY //» HTRX1770 

160. WRITEf&t 250 »l,f AXV (J) «J=1,NT ) MTRX17B0 

161. WR7TE(6t ?60 T '« AYW Ul ,J=1,NT» MTRX1790 

182. 25G F0RMAT<1H0,5M R0W,IV/9H X MATRIX / 16E20.71 I MTRX1800 

183. 260 F0RMATI9H Y MATRIX / l6C20.7rT MTRX181D 

184. 270 IF <B0Nf 260 » 320 . 280 MTRX182D 

185. C * SAVE X,Y,2 ON TAPE ♦OFF BODY POINTS MTRX1B30 

1B6.C«*« ♦♦♦SAVE X,Y,2 ON TAPE • OFF BODY POINTS MTRX1640 

187. C*** ♦♦♦AXISYMMETRIC FLOW ♦ TAPE 9 MTRX1B50 

188. C*#* ♦♦♦CROSS FLOW ♦ TAPE 10 MTRX1860 

189. C*^* ♦♦♦EXTRA CROSS FLOW ♦ TAl'L'e ^ * MTRX1870 

19D. 280 IFIIEC.EO.-l IGO TO 290 MTRX1880 

191. WR1TEI81 (ECX(Ji.J-l ,RTI. lEC Y t J»; ,NT 1 , «EC2 T J ) , J : l^NT ) MTRX189Q 

192. IF UECl 290 . 390 . 290 MTRX19DQ 

193. 290 IFIlACI 310 , 300 , 300 MTRX1910 

194. 300 WRITE 191 < AX fJI , J: 1 , NT t , ( A VIJI «J= 1 .NT » , ( A2 |J) , l.N T t MTRX1920 

195. IF IIACI 390 , 310 , 39c MTRX193Q 

196. 310 WRITE (10MCX(JI,J::1,NT),ICY(J»»J=1,NTI,<C2(J).J=1,NTI MTRX1940 

197. CO TO 390 MTRX1950 

198. Ct*A ♦♦♦SAVE OK Tape ♦ on body MTRX1960 

iVV.CYYt ♦♦♦AXISYMMETRIC FLOW ♦ TAPE 9 MTRX197D 

200. C*^^ ♦♦♦CROSS FLOW ♦ . TAPE ID MTRX190O 

201. C*^* ♦♦♦EXTRA CROSS FLOW ♦ TAPE S ■“ MTRX199C 

202. C*t* ♦♦♦!£€ = -1 MEANS NO EXTRA CROSS FLOW MTRX20DO 

203. 320 IF (ICC. to. -II GO TO 340 - - - MTRX2010 

204. DO 330 J = 1,NT MTRX2D?0 

205. A(JI = -ECX(Jl ♦ SlNA(l) ♦ tCY( Ji *♦ COSA (I I MTRX2030 

206. 330 BUI r ECXIJI ♦ COSAdI ♦ ECYJIJI ♦ SJNAII) MTRX204Q 

207. WRITE (8l I A ( J| , Jrl ,N Tt . (BLIiT ,'J=iVntT,'1‘ECZ'« J|7j=1,NT> MTRX2050 

206. IF ( TEC I 340 « 390 . 340 MTRX2D60 

209. 340 IF (lACI 370 , 350 . 350 • - MTRX207D 

210. 350 DO 360 J=1,NT _ MTRX2D 80 

211. A(JI=-AX( JT*S1NA(TM AY( Jl4C0SA(il MTRX2090 

212. 360 B(JI = AK1 J)«COSA( I l«AV IJ)4SINA(IT MTRX2100 

213. WRITE 19) (A(J),J-l,NTl,(EIJ).J=l.Nt),(AZiJI,J = l,NTI MTRX2U0 

214. IF I I AC) 390 , 370 , 390 MTRX2120 

215. 370 DO-SIbO J = 1,NT MTRX2130 

216. A(J)=-CXIJ)4SINAI1|«CYIJ)^C0SA(I) • MTRXZ140 

217. 380 B(JI=CX(J)4C0SAI l')«CV <j)4SINAU) HTRX2150 

218. WRITE (Id) (AIJ),J=1,NT).(BIJ),J=],NT),(CZ(J).J=1,NT) MTRX2160 

219. 39'0 continue ■■ , MTRX217Q 

220. C MTRXZieO 

221. IF I.NOT.PRINI) 60 TO 410 MTRX2190 

222. C MATRIX PRINT ... MTRX2200 

'223. REWIND r* - NTRX2210 

224. WRITE (6, 580 » MTRX2220 

~225. "DO 400 1-1,1 1 — - . MTRX223D 

226. READ (1) ( AX ( J) , A VIJ > ,CX lUI ,CV I J) ,C2I JI , AX V I J) , Ay V( J ) »)= 1 ,NT I MTRX2240 


' 227. WRITE (6 , 590 )■ I i , jVAX ( jfVAVI J) ,CX‘( j)'',CY( j) ,C2I JT,A XV( J I , AYV ( J) , MTRK22 50 



- 


zTe*. ' '1 j=f,NT» 

229i. (|0D CONTINU 

■ " 23D'; ftrwiND i 

231. C 

232. **)0 ir IPRIN2) WRITE t6, 600 I l.t, A 1 H J) , A 12 C Jl , A 1 3< J I , A 2 1< J > . A22 IJ> 

233. 1 A23IJI I J=1,NTI 

Z3¥, iT'fft'GTS.LE ,D> GO TO'j’SO *■ ‘ ' 

235. ir TBON.NC.O.T GO TO 520 

■23S.fc*’*'»' ♦♦♦ON BObV 


HTRX2260 
NTRX227D 
HTRX226D 
HTRX229D 
, MTRX23D0 
MTRX231D 
MTRX232D 
HTRX2330 
MTBX234U 


237. READ TNI , HTRX23S0 

‘238.C HTRX2360 

239.C«^« ♦ ir FLG23 .GT. 0 INPUT NNU HUST DC NONE, HENCE NNU = 0 HERE HTRX2370 

' 2Nti;c MTRX238D 

2N1. ir (NNU.LC.Ot GO TO N 30 MTRX2390 

’2i|2. 00 <(2D T = 1, NNU - - - MTRX24D0 

243. READ (4) HSF , ( AT J I , J~ 1 ,NT I , <81 , J = 1 ,NT ) HTRX24 ID 

' 244. 420 WRITE <31 H5F ,{ A < Jl , J =1 ,NT » , < B < Jl t J=1 .NT » HTRX2420 

245. REWIND 3 HTRX2430 

246. ' REWIND 4 MTRX2440 

247. READ (41 MTRX2450 

2'48.' 430 N=NSIGA-T ‘ HTRX2460 

249. IF (FI.C1 6.GT . I» N=NSIGA MTRX24 70 

25D.C*^i> ♦♦♦N = 0 HEANS 1 RHS ONLY NO NON-UNIFORM FLOW MTRX24 80 

251 , ♦ IF FLG23 ,GT. 0 INPUT NNU MUST DE NONE, HENCE N = C HERE MTRX2490 

“S&Z.C ■ ■ MTRX2500 

253. IF TN.EO.D) GO TO 450 HTRX2610 

'254. DO 440 I = 1, N ' ‘ MTRX252D 

255. read <31 MSr,lA(J>,J=I,NTl,(B(U).J=l.NTI MTRX2530 

256 . 4 40 WRITE <4» MSF , < A ( J I , J= i.NT » , ( B I J > , J = I , NT ) MTRX25 4D 

257. 450 M=0 ^ HTRy255C 

'25e,t*^4 ♦ SNIP PRESCRIBED VORTEX INPUTS ON 4 SO THAT STRIP VORTEX* HTRX256D 

259. C*9« ♦ SUMMATIONS CAN CO BEHIND IT HTRX257D 

260. c MTRxasec 

261. 1F(FLG23 .DT. D»READ(41 MTRX2S9CI 

262. DO 460 J = 1, NB MTRX260G 

263. IF TNLFT JT.GT.Cl GO TO 460 MTRX261D 

"264 . NSIGA=NSIGA-*l MTRX2620 

265. NNU=NNU«1 MTRX2630 

266. WRITE <4» M , < VNT 1 , J) ,1 = 1 ,NT » , < VT t T , J) , I = 1 , NT I MTRX2640 

267. 46t3 CONTINUE MTRX265C 

268. C MTRX266D 

269. ♦ SINCE NO NNU IS INPUT WITH FLG23 F.T 0, NSICC IS MAX OF 1 AND H HTRX2670 

27C.C*9« ♦ SHOLO BE 0 IF FL617 LE G. OONT USE FLG17 WITH ELG 2 3 MTRX268D 

271. C MTRX2690 

272. IF TFLG23 .LE. DIDO TO 490 MTRX27P0 

273. C MTRX2710 

274. C**« ♦ RING WING OPTION - FORM COLUMN (PARTLY! FOR PRESCRIBED VORTICIV MTRX272D 

275. C*^* ♦RHS M7RX2730 


276. C 

277. 
276. 
279. 

2 80. 

281 .C 

282 

283. C 

284, 


IBOD r 0 
00 480 J = 1,NB 

1F< NLFTJI .GT, PTCO TO 480 
IBOD = IBPD + 1 

♦ CONVERT (ON COOT! X.Y TO NORMAL , TANGENTIAL 
DO 470 1=1, NT 


MTRX274C 
MTRX275D 
HTRX276D 
MTRX2770 
MTRX27B0 
MTRX2790 
MTRxaaOU 
MTRX26 10 
KTRX2620 





285. V*Nti)=' vitI«I800l*SiN«Yir-VR'f 

2&6.*iTn vjtTiii=v«ii,ieoDi*casAiii* vRit ,ieoD»* siN»«n 
£67. URltE<«)iVANfirtI=ltMtt»i«NAff'ir»l=l.Nt¥ ~ 

286. ^eO C0N11RUC 

289. 990 H = NSIBC - I - - -- - 

£90. IF (FLG17.GT.0I f(=NSlCC 

291. IF (H.'LE.OI GO 10*^10 

292. DO 500 I = 1, N 

293. READ (31 HSF.'IAl ji,J=^l«Nnt(B(JI.J=l»Nf) 

299. 500 WRITE (9 ) HSF # (A ( Jl .*(=1 tNT t ,(B< Jf . J=1 .NT I 

29S, 510 REWIND 3 " “ ' 

295. CO TO 550 

297. C9**”***0FF BOOT ' , 

298. 520 DO 530 J = 1 , NB 

299. IF lRtF(j».GT.O» GO T6'530*' ' 


NTRX2850 
NTRX2860 
(lTRX2e7D 
NTRX2860 
* HTRXie 90 
RTRX2900 
HTRX29rO 
HTRX2920 
HTRX29 30 
WTRX299£ 
'"HTRX2950 
NTRX2960 
NTRX297b 


300. URITE(9I (VNd.JI, I = ULlt* (VTU,J>.1 = I.LIT NTRX2980 

301. 530 CONTINUE ’ NTBX2990 

302. IFIFLC23 .LE. QIGO TO 550 N;RX30Q0 

303. ' 1600 = 0 . - ' ftVRXSdlb 

309. DO 590 J=l,NB _ !n?RX3Q20 

305. IF( NLF(J) .GT. OIGO to 59'6 NtRXIOSO 

306. IBOO = IBOD ♦ 1_ _ NTRX3090 

3C7. MRITE(9I ( WSTl.lBOdr.'f riVt f Tt' ('V rTkTbOO » 7f = l\vU^ MTRX3050 

308. 590 CONTINUE HTRX306D 

309. C • TETriF OFF B00V~ COMPLETED ' ‘ HtRXSOTO 

310. C ♦ TI^SI IF OFF BOOT MTRXSDeO 

311 . 550 IF (FLG0 5.E6.0ldR«6^0N.NE.07"» CO fo' 570 ’ ' ' HTRX3090 

312. c ♦ Initial for off body * then re-entfr loop?> htrxsiod 

313. D0N=1. ' , .V ■ ■ ■" — ■ - HTRX3110 

319. Ll=N0(N6nl- MTRX3120 

3l'5. IF (.NOT. OLOiESi Go' fO'iiO ' . ■ ' MTRX313D 

316. 00560 I=1»L1 HTRX319Q 

317. X2(ll = XPUl ■' ■ *' MTRX3150 

318. 560 Y2(II = yp(l> MTBX3160 

319. CO TO no " ■ " MTRX3170 

320. 570 REWIND 9 HTRX3180 

321. REWIND 8 - . - MTRX3190 

322. REWIND 10 MTRX320D 

323. REWIND 9 MTRX3210 

329 , return MTRX 3;;20 

325. C ■' ' HTRX3Si30 

326. 5B0 F0RMAT(51HIVEL0CI7 T INFLUENCE COEFFICIENT NaTRICES FOaOU ..../ MTRX329D 

327. 1 3X,lHI,9X,lHJ,"7X,2HAX,'ilX,2HAV,19X,2HCX,llX,2HCV » 1 1 X ,2HC2 ,19 X , MTRX3250 

328. 2 3HAXV,1DX,3HAVV,/1H I NTRX3260 

329. 590 FORHFTHH ,I3,I9,2F13,6,3X,'3F13.6',*3X72F13,6) MTRX327D 

330. 6CC F0RMAT(9MI J,5X , 3HA 1 1,8X, 3HA12 ,8X , 3HA 13 ,8K ,3HAZ1 ,6X , 3HA 22 ,8X , HTRX3290 

331. 1 3HA23,>/(1H ,13 , lX,6Fl 1 .6 11 MTRX3290 

332. 610 F0RnAT(]Hli20X,36HDETAIL OF VIJ MATRIX FORMULATION ...,/lHD) MTRX3300 

333. ' 620' F0RMAT(iHD,25(5H9*9**l,/lH V6'GX ,3HR0W, 19 ) MTRX33I0 


339, END 


MTRX3320 
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SiiaffOUTINC MISNA2 (STGI 

HSNA 

20 


■ 2.C 


HSNA 

ID 


3.C 


MSNA 

30 


4.C 

• SOtVC tINtAR SIHULTBNtOUS COUMJONS BV ilCIPCL ITEH ATIONMSNft 

90 


s.c 


MSNA 

50 


"'6« 

COMMON HEOBIIOI .'CASC' kNO ,NNtf 

MSNA 

60 


7. 

1 ,FtG03 ,fLGd9 ,riGOD .FLD06 ,FLCD7 

MSNA 

7D 


A. 

2 ,FLG08 ,FL0D9 .FLOIO .FLOll »n.G12 

HSNA 

80 


9. 

3 <,Ft013 ,FLD19 ,Ft015 ,FL5J6 tFLG17 

MSNA 

90 


10. 

9 ,FtC18 ,FtC19 ,FLG20 ,FLG2l ,FLG22 

MBNA 

100 


11. 

5 ,FI.G23 »FLG29 ,FLG25 ,FLG26 ,FtG27 

HSNA 

1 10 

- 

COMMON NT, NOtili, MN,' NUNM5). TVPCAI5I, 

HSNA 

12G 


13. 

1 NCNl, NER2, NHA, NSICA, NSIGC, 

HSNA 

130 


19. 

2 NUNC<5», TYPCCISI, NtF (I 1 > . ICC, NSIGCC, 

MSNA 

190 


15. 

3 TTprCCiS I,NuS!CC»ST 

MSNA 

1 50 


16. 

OOUBLV- PRECISION HEDR, CASE 

MSNA 

1 60 


17. 

INTEGER FIG03 ,rtGQ9 ,fLGD5 .FLGQ6 ,FLG07 

MSNa 

170 


‘'Tb; ‘ 

1 ” " VflGOB ,FLGd9 ,FLG1D .FLCll ,FLG12 

MSNA 

180 


19. 

2 ,FtG13 ,FL6I9 ,FlG15 ,FLG16 ,FLG17 

HSNA 

190 


"'m' 

3 ,FLCle ,FLGI9 ,FLG2D ,FLG21 ,FLG22 

MSNA 

200 


21. 

9 ,FLG23 ,FLG29 ,FLG25 ,FLG26 ,FLG27 

MSNA 

210 


-yj;-; - 

REAL ' HN 

• MSNA 

220 


23. C 


MSNA 

2 30 


—TT, 

' ■ '“C&HM'ON'?C?T"'“Ti^^ RT5dO,9T,' * '"'"nsi g, it 

MSNA 

2 90 


25. C 


MSNA 

2 50 


-"26. 

dlMENSlflN ‘5tG<5D0,9I, MFLAGI9), OSiGldtl, I)SlG<D0O,9» 

MSNA 

260 


Z1,C 


MGNA 

2 70 


2B.C 

• START 

HSNA 

280 


29. C 

* INH1AL17E 

HSNA 

270 

'' ■ ■ 



"'■"■"WTUrO 

MSNA 

300 


31. 

1IER=D 

MSNA 

3 10 


32. 

NC0NW=0 

MSNA 

320 


33. 

00 10 J=1,NSIG 

MSNA 

330 


""39. " 

t(FLA6(jl=0 

MSNA 

3 90 


35. 

00 iO 1=1, NT 

MSNA 

3 50 


36. 

io SIGTI ,J»=a.D 

MSNA 

360 


37, 

20 DO 30 I=1,NSIG 

MSNA 

3 70 


3 a*; 

30 DSI6im=0.0 > 

MSNA 

380 


39, C 

♦ COMPUTE SIGMA AND DELIA SIGMA 

HSNA 

3 90 


90. 

DO 190 1=1, NT 
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LOGICAL PRINI .PR1N2.PRIN3 


PRDl 

2 30 

— 2lj . 

L (JG I C A 1. N 0 A X I .,N 0 C RO 5 , N 0 V 0 R'T ,*N 0 V 1 ; N 0 V 2 , F I R S T E , L A S T E 


PRBl 

240 

25. 

REAL LSSr 


PRBl 

2 50 

25. 

DATA ALOGfi/2 .CV94 4/, TUOP 1/5.283185/ 


PRBl 

2 50 

27. 

LOGICAL PF 




26.C 

NOTC 


PRBl 

270 

29. C 

LSSE = DIMENSIONAL HALF-LENCTH OF THE SINGULAR SUB-E LIM ENT . 

PRBl 

280 

■ '30.C 

capital S PRIrtt = CAP5.P = NON'DIMFNSibNAL HALF-ARC LENGTH 

OF-'"' ■ 

PRBl 

29C 

31. C 

SINGULAR SUB-FLEMFNT (WHICH R6V BF .LE. TOTAL HALF-ARC Li - 

>’RBl 

3 00 

32. C 

OF THIS ELfMENTt 


PRBl 

3 1C 

33. C 



PRBl 

320 

3*1. 

R = Y2(J» 


PRB.l 

3 30 

35. 

C - HCURV(UI*R 


PRDl 

34C 

' ■' '36 . 

CAPSP=LSSE/R 


PRBl 

3 50 

37. 

SIN;;SrNA ( Ji 


PRBl 

3 60 

■ 3fS, 

C0S=COSA(J) 


PRBl 

3 7C 

39. 

SC=S1N*C0S 


PRBl 

3 80 

?i0. 

S0a=CAPSP/8 .0 


PRBl 

3 90 

>11 . 

ALOGSa = ALOG(SO£,‘ 


PRBl 

400 

42. 

A|^0G5=AL0G( CAPSP ) 


PRBl 

4 10 

93. 

SSQ:=STN«42 


PRDl 

4 20 

44 c 

tSQ=C0S9*2 


PRBl 

4 3D 

45. 

' $3 =CAPSP4«3 


PRBl 

440 

45. 

RSO=R**? 


PRBl 

4 50 

47. 

CC - C**2 


PRDl 

4 50 

Hi, 

>r'"rj ■ 


PRBl 

4 70 

49. 

IF (FIRSTEI M=J+1 


PRDl 

4 80 

'50. 

IF TLASTET M=J-l 


PRDl 

4 90 

51. 

HM1=M-1 


PRBl 

5 DO 

52. 

MP1=H+1 


PRRl 

510 

53. C 

CHECK FOR A XI SYMMETRIC FLOW..... 


PRBl 

520 

54. 

JF(NOAXU CO TO 10 


PRBl 

530 

55. 

VCAX=(2.*SC-4.*C4SIN 1 <>C AP5P ♦ ( S C« ( S S 0/ 1 2 . + , 1 B05 5 55 S'* A L OGS 6 / 1 2 . ) 

PRBl 

540 

56. 

I 'iC/32. 1« (-4 ,*SC-8 .*C4 5rN'i?.*SI.N*SS0 + 2.«SlN-8.4C*SC-2 , 

«AL0G6*srN 

PRDl 

5 50 



s5”“" 


•’ S'f. 

58. 

' 59. 
60. 
61 . 
62. 
63. 
69. C 
65 • 
6b. 

67. 

68 . 

69. 

70. 

71. 

72. 

73. 
79. 

75. 

76. C 

77. 
75. 

79. 

80. 
81. 
82 . 
S3. 
89. 

85. 

86. C 

87. C 

88 . 

89. 

90. 

91. 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 

100. c 

101 . 
102 . 
103. 
109. 

105. 

106. 

107. 

108. 

109. 

110. 
'III. 

112 . 

113. 


2*£IN*16.*At.ODS*SlN» |*S3 * TWOPl^SjN 
VCAyr t2,#AL0GSe+2 .*SS 0« 9 .*C *COS I *C APSP * ( -3 . *3 , **LOCS 8 «2 . ♦£ S09*2 

1 •3»*SSO-8.9C*CCOS + 1 . l-6.*C**LOG6#COS-32.*C**3*COS*l 6.'*C**2 

2 ♦2.*C*COS-12.*C*SIN*SC+ALacS*l9,*C l~l . 3 33 3333*C* COS > 953 /29 , 

3 -7W0PI9C0S 

AXtJ) : AX<JI « VtAX 

AVlJl '= AVlJ) ♦ VOAV 

IF IWOVII GO TO 1C 

V1AX= R*H<.*COS*CAPSP ♦ «COS*(-7.'-6.**LOGS8-6.*SS01*29.*C9 
1 (C5O-2.*C6coS-2.*SS0n9S3/36.l 

V1AY= R6(9.#SIN*C APSP*I-6.*5IN*SSO+6.9SIN9ALOGSS-11 . 9SIN»H8.*C*! 

r -98.9C6929£IN1«£3/36 .) ' ' 

AXINH1I=AX<KK1 M AIK J19V1AX 
AVIHHl )=AY(hMl)*ftn<J)*VlAT 
AXIM»=AX CHM A12( J »*V1 AX 
AYIM1=AVC«1< A1Z( J!9V1 AY 
AXIMPl l-AXCKP 1 1 + A131J )*V1AX 
A Y «HP 1 i = A V 1 HP H ♦ A i 3 ( -* 1*V 1 A Y 

IFiNOVZt GC TO 10 
•.f2AX=RS09((2.9SC-9,*C9SINl9S3/3.» 

l'2AY= RS09«Al.OCG8 «0.6 66 66667 + SSO+2.9C'*C0S»*2.'»S3/3. 

AX|MMH = AX(KMl l*A21« J19V2AX 
Ay|MHn = AYTHH n + A ?H JT9V2AV ' 

AX1H1?AX1M»*A22( J 1*V2AX 
AYTM1=AY CUM A221J 1*92 iiV 
AXfHPl ) = AX1KP1 M A23< JHV2AX 
AYIMP1 »=At1MP1)«A23I J»*V2AY 

CHECK FOR CtJOSSFLOU. . . . . . . 

ID IF iNOCROSt 60 TO 20 

V0CX-2.9)SIN9 CC0S-2.9CI9CAPSP+ I-SC*(9. +6.*ALOGS8“2.*SSO> 

1 ♦SIAf9C9T12.*ALOGfi-lD.-12.«SSO-8,9CS.Q-32.9C*COS*8.*SIN 

2 *32. 9C992+9 .-12. 9AL0GS >1953/98. i v‘tH 0P1*SIN 
VCCV-Z.*n2. +SSO^ AL0G5B*2.*C>*>CAPSP*I9.'* C 2 7. -2 9. *550 KALOGSB 

1 ♦6,*S50*92-9 3.9SS0-36.9C*sTN«SCT 9 a .*C9929CSfJ--9 6 . 9C**3*COS ♦ 
2C9T6D,9C0SfrAL0GSS*e9.«C0S-l2.)>*S3/199.» - TUOPIA'COS 
WDC7= -9. ♦(l.-*AEOCS8)«CAPSP+f (6,6550-9. liALOGSB *10. «SSQ 
1 *C*( 29. -16 ,*COS-29 . « COS6ALOGS 8 M #5 3/36. 

CX(J>=CX1J)+V0CX 
CV( JirCYJJl+VOCY 
C2(J>=CZ(J)*VCC2 

IF (NOVI > GO TO 2C 

V1CX = P#(9 .#COS#CAPSP« C. 6666666"7#(COS>*(D.75*ALOGS8*0. 3 75 
1 -D.ZB^SSOl+C^ICSO-SSO-B.frC^COS) 1#S31 
WICVS R#(9.#SlN*CAPSP«(SINiM-6 .*SSO-*30.'»ALOGS8*29. 

I ♦98,*C#(C0£-C»n#$3/36, > 

V1C2= R#(D.66666667#S IN*(-ALOGSfi-l .3333333 )#S3) 
CX(MHJ)=CX(HM1>+All( J)#V1CX ' 

CYCHHl >= CY(MH1I*A11 (J>*W1CY 
,2lMnn~CZ(HMl>*All( J)#V1CZ 
CXIMI = CX(H) « A12(J>*V1CX 

CY(H) - CY(H) A12IJ>#V1CV 

C2(M) = C2(H> * A12(J>*V1CZ 

CXIHPII =CX(HP1) ♦ A13tJ)*VlCX 


PRBl 

5 60 

PRbl 

5 70 

PRBl 

580 

PRBl 

590 

PRBl 

6 00 

PRCl 

610 

PRBl 

620 

PRBl 

6 30 

PRBl 

690 

PRBl 

6 50 

PRBl 

660 

C PRBl 

6 70 

PRBl 

680 

PRBl 

6 90 

PRBl 

7 00 

PRBl 

710 

PRBl 

720 

PRBl 

730 

PRBl 

790 

PRBl 

7 50 

PRBl 

760 

PRBl 

7 70 

PRBl 

780 

PRBl 

7 90 

PRBl 

600 

PRBl 

810 

PRBl 

8 20 

PRBl 

8 30 

PRBl 

690 

PRBl 

8 50 

PRBl 

8 60 

PRBl 

8 70 

PRBl 

8 80 

PRBl 

8 90 

PRBl 

900 

PRBl 

9 10 

PRBl 

9 20 

PRBl 

9 30 

PRBl 

990 

PRBl 

950 

PRBl 

9 60 

PRBl 

9 70 

PRBl 

980 

PRBl 

990 

PRBl 1000 

PRBllOlO 

PRBllOZO 

PRB11030 

PRBnORO 

PR61105D 

PRBllDbO 

PRBl 1070 

PRBllD 8D 

PRBI109C 

PRBlllDO 

PRBlll 10 

PRBl 11 20 





'114. 

lis. 

116. C 

117. 
116^ 

119. 

120 , 
121 . 
122. 

123. 

124. 

125. 

126. 
127. 
126. 

129. 

130. C 

131 .C 

132 . 

133. 

134. 

135. 

136. 
i 37 . 
136. 
139. 


CYlHPll = triHPlI ♦ ftl3tJ14VlCV 
C21MP11 = C2<HP1I ♦ Al3fJ»*VlCZ 

If (N0V21 60 TO Zr 

V 2CX = RSO* <0. 66666 667 *S1N4( COS-2. *C »*S3) 

V2CY=RSO#M 16. *6 .4*1-0658 ♦6.4SS0«12.*C«C0S»4S3/9,» 

V2CZ = RS041C.66666667* 1-2 .4AI OGS8-3 . 333 3333 »4S3 1 

CX«HN1I=CX<HMII« A2H JI4V2CX 

CY»HM1»=CY1MM1 >♦*?! 1J»*V2CY 

CZIMMl I = C2»MM1MA21IJ»*V2C2 

CX(H» = CXIMJ «A22 <JI 4V2CX 

CY(H|-CYIMMA22( JI4V2CY 

CZlh I =CZ <MM A22( J 14V2CZ 

CXIKP11=CX1MP11«A23<J»*V2CX 

CYCHPl ):C yIMP 1 l*AZ3i J14V2CY 

CZIMPl J=C7lMPl>«A23fJI*V2CZ 


PRU11I3D 
PRBlll 40 
PRBU ISO 
PR1311160 
PRBU17C 
PRBU 180 
PRBIl 1 90 
PRB1120C 
PRBU21D 
PRB11220 
PRB11230 
PPBI124C 
PRDH2SD 
PRBn260 
PRB11270 
PRBUZeD 
PRB:i29a 

CHECK FOR yORTEX FLOW PP0113DD 

IF INOVORT) GO TO 30 PRim3lQ 

WCVX= i2.4IAL0GSa-SS0-2.4C*C0S» UCAPSP *■ I -9 , ♦ ALO GS8 « (-9 . + 1 2 . 4SS0 IPR B 11 3 20 

1 ♦5504(23. <1«4.4CC-6.4SS0I -24t4C ♦ COS* ( -72 . 4S 5 C ♦ C4(-22. PRCI1330 

2 +12 .4ALOGB + 108 .*SSO*GO.*ALODS-4B ,4C*(C0S*C» 1 J MS3/72. PRBU 340 

3 ♦ TW0PI4C0S ‘PRBIUSD 

VCVY= 2.*(SC-2.*C«5IN»4CAPSP-(Sr*(9,*6.*AL0GSB PPB1136D 

1 -2.4550-24 ,4C4C05*96 .*C*42 »«-SIN4C« (62.+ 132 .4SS0 PRCU 370 

2 “36.4AL0Gfi M4SZ/24. * D.860888P84ALOGS4C4SIN4S3 + TH0PI4S1N PPR1138D 


140. 

AXV(J> = VOVX 

PRB1139C 

141 . 

AYVUl = VCVY 

PRB1140D 

142. C 


PRBU4 10 

143. C 


PRB1I420 

144. 

30 ir (.NOT. PRIN3) GO TO 40" ' 

PRB11430 

145. 

URITE (6, 50 » J.fAPSP 

PRBJ 1440 

146. 

WRITE <6, 60 » VDAX,VrAY,yOCX,VnCY,VOC2,VDVX,VOVY 

PRB114 50 

147. 

ir (NOVI I GO TO 4D 

PRBl 1460 

148. 

WRITE (6, 70 1 Vl*X»VlAV,ViCX,VlCY,VlCZ 

PRR1147D 

149. 

IF (N0V21 GO TO 40 

PPBI148D 

T50. 

WRITE <6, 80 1 W2AX,V2AY,V2CX,V2CV,V2CZ 

PRBIl 4 90 

151. C 


PRBl 1500 

■ 152.40 

1F(.N0T.PF1RXTURN 


153. 

AX(J)-AXV') J»-TWOPI*COS 


154. 

AY(JI=AYV(J»-TW0PI*S1N 


155. 

AXV( J)=AX( Jl 


156. 

AYV( J»=AY(J) 


157. 

RETURN 


158. C 


PRBU5ZQ 

159. C 


PR B 1 1 5 30 

160. 

55 rORHAU'OPARABl. I=J=*,13,*, CAPSP = * ,F8 . 5 ) 

PRBl 1540 

161 . 

60 rORMATIlH , 10X,’VrAX=*,F9,5,+, VO A Y=* .F 9 . 5 , * , V0CX=*,F9,5, 

PRBUS5D 

162. 

1 •, V0CY=^,F9,5, ♦ , VQCZS*,F9.5,», VCVXr* ,F 9 ,5 , ' . VDVY=* ,F9.5> 

PRB1156C 

163. 

70 FORMATUH , 1 OX , • V 1 AX= *,F9. 5 , • , V 1 A Yr • , F9 . 5 , • , W1CX = ',F9.S, 

PRBJ157D 

164. 

1 ♦, V1CY=*,F9.5, • , ViCZ = »,F9.5) 

PRB1158C 

165 . 

80 FORMATUH , 1 OX , • V 2AX = • ,F9. 5 , • , V2 A Y = • , F9 . 5 , • , V2CX=»,r9.S, 

PPB1159D 

166. 

1 *, V2CY“«,F9.5,** V2CZ=*,F9.5» 

PRB116D0 

167. 

END 

PRBU 610 





SUflROUTlNi: PARAB2 


25 AUG 75 
PRB2 


IHIS ROUTINC CALCULATCS THE VEtOCITY CONTRIBUTIONS OF PRD2 

OFF-OTAGONAL ( AND EAlDS OF THE W-DI AdoNA L ) ClEHEN TS BTA PRB2 

S1MP50N-RULE. ELEMENTS MAY BF FLAT OR CURVED, WITH PTECEUISE PRB2 

CONSTANT-, LIN'CAR'-, Ofi OUAdRATIC-S OURCC DENSITY. PRB2 

COMMON /DLOCK2/HCURV(5QOI, HARC"5rDI PRD2 

COMMON /BLOCK3/NOAXI,N6CROS,NOVbRT , NOV 1 ,NO V2 ,F IRS TE , L AS T C , LSS E , SO , PRD2 
I NSMALL PRII2 


10. 

COMMON /BL0CK4/A1 H50L»,A12IS3D 1 , A 1 3 ( 5DD » , A 2 H 500 1 , A 2 2( 5DC ) , 

PRD2 

1 00 

n. 

1A23«5CC» 



HRB2 

1 10 

12. 

COMMON /BLOCKS/ K ,Y , SINAL ,C05A'L,MC ,Tl ,HMl ,HP 1 

,R 


PRB2 

120 

13 . 

COMMON /CL/ XI(500>, YK5D0I, X2(50U», 

Y2(5DD) , 

DELL(5DDI, 

PRB2 

130 

14. 

1 SINA<5CCI ,C0SA«50DJ ,XP(5DD) , 

YPiSODI 


PRB2 

140 

15. 

2 ,XHAKCIll»,YWAKCm» 



PRD2 

ISC 

1 £i * 

COMMON /TL/ ATSODJ, BTSOOl, AXISOO), 

AY (5001 , 

A2 (SQO) , 

PR02 

160 

17. 

1 CXT5001, CY(500», CZTSQOl, 

AXV(500I 

,AYV(500> , 

PRB2 

no 

la. 

2 VNT5D0,5I,VTI50D,51,B0N, 

lAC 

t 

PRB2 

lOD 

IV. 

3 1, vt, Jl, 

SJ, 

DS , 

PR02 

1 90 

20. 

4 DX, OY, NT, 

XJ. 

VJ, 

PRB2 

2 00 

21. 

5 XH , EEK, EKK, 

K, 

PF 

PRB2 

210 

22. 

COMMON /EPSBLK/ CPSLON 





23. 

COMMON /PRINTF/ PRIN 1 ,PRIN2 ,PRI N3 



PRB2 

220 

2V. 

LOGICAL PRINl ,PRIN2,PR1N5,YSHALL 



PRB2 

2 30 

25. 

LOGICAL NOAXl.NOCROS .NOVORT ,N0 V 1 ,N0V2 , FI RS T E 

.LASTF 


PRB2 

240 

26. 

LOGICAL PF 





27. 

DIMENSION VDAXIXI 129 1 ,V OAX 1 Y 1 1 29 > , VQCRSX (1 29 l\VOCRS V (129 », 

PR 02 

25C 

28. 

1 VDCRS?(1291, WCVORX( 1291,V0V0RYU29),XRINGn29) ,YR1NG(129» 

PRB2 

260 

29. 

DATA PI/3.1415927/ 



PRB2 

2 70 

30. C 




PRB2 

2 80 

31. 

IF (BON .07. C.5I GO TO 10 



PRB2 

290 

32. C 




PRB2 

3 00 

33. C 

on-body ... 



PRB2 

310 

34. 

X = X2(U 



PRB2 

320 

35. 

Y = Y2tl » 



PRB2 

3 30* 

36. 

GO TO 20 



PRB2 

34D 

37. C 




PRB2 

350 

38. C 

OfT-GODY ... 



PRD2 

360 

39. 

1C X = XPU) 



PRB3 

3 70 

4Ge 

Y = YPU » 



PRB2 

3 80 

41 .C 




PRB2 

3 90 

42. 

20 S)[NAL = S1NA( J) 



PR82 

4 00 

43. 

COSAL=COSA( Jl 



PRB2 

4 ID 

44. 

tic = HCURVIJI 



PRB2 

420 

45. 

M = J 



PRB2 

4 3D 

46. 

IF (FIRSTEt M=J«1 



PRB2 

4 40 

47. 

IF (LASTE) M=J-1 



PRB2 

4 50 

48. 

MHi:M-l " 



PRB2 

4 60 

49. 

MP1=M*1 



PRB2 

470 

50. 

IF (Y iEO. 0.01 GO TO 30 



PRB2 

4 80 

51. 

OX = X - XJ 



PRB2 

490 

52. 

OY = Y - YJ 



PRD2 

500 

53. 

R = S0RT(0X**2 ♦ 0V*92I 



PRB2 

510 

54 . 

If (1 .Co. J) R ~ etLLll)/*2. 



PRB2 

5 20 

55. 

IF ((R/YI .GE. EPSLONI 60 10 30 



PRB2 

5 30 

56. C 

USE SMALL ELEMENT FORHULAF ... 



PRB2 

540 



S7. '* " cTLL“PARAf33'“ ' ' * ' 

58^ NSMALL = NSHALL <1 

-"• 59 . ’REIURN 

60 *C 

61, C ...... 

62. C OCGIN BY GCNERATIMC THE INOUCCp__«C LOCI TIES AT THE ENOS OF HI 

ST. C ■ I N T E*R V AL'S to F~UN f r 0 B M LE NGTh I . . . .' 

6A. 30 S = SO 

S?, Do’rib'r = 1 ,Ni‘ 

66 . 1S0^S#*2 ■ < 

"’“nS'T.C CALCOLA’fE LTCAL^sbURCTfiToiUS, QA, AUD AXIAL LOCATION, OB... 

68, QA = yj * SiNALYS*HC*COSAL*SSQ 

— e;^-; OP 'S XJ V"CoSAtvs-HC*^lti^ALYSSo 

70. XRINGCLI = OB 

7lT" 'VRINGfLT = OA ■ 

.72. IF IQA ,GT. O.Dl 00 TO 39 

.... .... vbAxix«Li"= b .0 

TH. VDAXIYTL) = O.D 

■ 7S; ■■ “WCCRSX(L> = o.c 

76. WDCPSytL) = C.b 

“ - 7'7, VCiCRSETL l = D ,C 

78. VCVORX(L» = Q.O 

79. VCVORVCLl =0.0 


PRB2 550 
PRB2 560 
PRU2 STD 
PR02 580 
PRB2 590 
PRB2 600 
PRB2 610 
PBH? 620 
PRB2 630 
PRU2 640 
PRB2 6 SO 
PRB2 660 
PRD2 670 
PR02 6B0 
PRB2 690 


80. CO TO 110 

^ 


82. C 

calculate the COUPLETf ELLIPTIC INTEGRALS, K(K) AND UK J , 

PRO? 

700 

' 83.C 

(Vf the FIRST AflE- SECOND KINDS.... 

PR&7 

710 

sBM. 39 X«0=X-0B 

PR82 

7 20 

8ST. 

XHBSOr XH0«<r2 

PRD2 

730 

86. 

YMASO = (V-QAJ4*2 

PPB2 

740 

‘"-BT. 

VPaS0=«Y'*CIA)A*2 

PRB2 

7 5G 

BB. 

T1 = YPASO + XHBSO 

PRB2 

7 60 

■ 89, 

XK= 4 .AO APV/T i 

PPB2 

7 70 

9Q. 

CALL CLIP 

PRB2 

7 80 

91, C 

SUBROUTINE ELIP RETURNS THE VALUES AS EKK AND EEK . 

PRD2 

790 

92. C 


PRB2 

BOO 

93. 

VSti = V*A2 

PRB2 

B 10 

94 . 

ASQ = 0A«#2 

PPB2 

820 

95, 

ROOT! = SORT T Til 

PRB3 

0 30 

96. 

T2 ir YHASO + XHDSQ 

PRB2 

040 

97, 

T3 = XHBSO ■* ASQ 

PRB2 

0 50 

98. 

01 = l-4‘.*EEK 1/(R00T1*T21 

PRB2 

8 6C 

•"99. - 

02 = T2./R0OT 1 1«< EKK^TYSQ-ASQ-XHDSQ)yEEK/T2 1 

PRB2 

87C 

100. 

YSHALL = 1YS0/T31 ,LT. .0001 

PRB? 

8 8C 

101. 

IF TYSHALLl GO TO 4Q 

PPB2 

890 

102. 

GO TO SD 

PRB? 

90C 

103. t 

ROOT32 = (SORT (T3 n«*3 

PRR2 

910 

104. 

T4 = P1P0A/R00T32 

PRB2 

9 20 

i OS ' 

T3S0 = T3*P? 

PRB2 

9 30 

106. C 


PRB? 

94D 

107. 

50 IF INOaXU tiO TO 70 

PRB2 

9 SO 

106. 

IF tYSHALU GO TO 60 

PRB2 

960 

109. 

VCAXlxai = 01#OA«XHB 

PRU2 

9 70 

110., 

VOAXIVIL) = “03Y0A/Y 

PRD? 

980 

1 11. 

CO TO 70 

PRB2 

9 90 

112. 1 

60 VCAXIXTLl = |-2.«‘XHBPT4 lA^Cl .0+0,7SAYS0'»(3.D + AS0-2.*XMPS0 )/T3SQ) 

PRB2lQaC 

113. 

VPAX1YCI.I - -Y»T4Ai(2.«XMBSO-ASO»/T3 

PRB2 

10 ID 








im.c 


- - .. 

PRD21020 

US. 

70 

ir INOCROSl GO TO 9D ‘ 

PRB2ID30 

116. 


ir iVSHALLI GO TO 80 

PRB21080 

117. 


VCCRSXILI = 2,*IXHB /( Y*ROOT U I'MCXK -1 V50 *T3 » 8ECK/ T 21 

PRB2105D 

US. 


VCCPSr It. U2,*li;XIVSQ*fjOOTl 1 S»*tKi?^rf3**2*¥S08 <xmbso-*som 

PRB2i060 

119. 


1 *t:C«7T2> 

PRD21D70 

120. 


VDCRS7U »=2.i ' “IROOT 17VS0 >i( (VStfiT31*CRK7ri-tCx i 

TRBZiOOO 

121 . 


GO TO 90 

PPe21090 

122. 

80 

VDCRSXIU = -3.*0A**Hn*T*T¥/r3 

'PRB2U00 

123. 


VOCRSYILI = 0**T8«U.0“a.l25*YS06t8,*XMeSQ“ASQ)/T3SQ J 

PRB21110 

12*t. 


YCCRSZILI = QA*T8*U;D*a.375fYS&*rASO-8r*XHfSO ‘ * 

PRP2U 20 

12S.C 



PRB211 30 

126. 

90 

ir INOVORTJ .GO TO 110 " ‘ 

PRB2U80 

127. 


VDVORXILI = IftSO-VSOUQl - 02 

PRB21150 

128. 


ir lYSMiLLl GO TO 100 

PRB2U60 

129. 


VCVORYIH = V^XMO^Ol XMD*02/Y 

PRC211 70 

130. 

. 

60 TO no 

PHB2U80 

131. 

ICO 

VCVORYIL) = O.D 

PRB21190 

132. C 



PRB212DD 

133. 

110 

S = S ♦ DS 

PRB21210 

138. C 



PRB21220 

13S.C 



PRB21230 

136. C 


ASSEMBLE THE ROU OF EACH DEllREO HATRI X. . . 

PRB21280 

137. 


IT INOAXll 00 TO 120 

PRB21250 

138. 


CALL SIMSOMlYCAXlX.Nl ,OS,YG*>) 

PRD21260 

139, 


CALL SIMSONCVDAXIY.NI .DS.VOAVJ 

PRB21270 

180. 


AXIJt = AXIJ) ♦ VOAX ' 

PRB212G0 

181. 


AYIJ> = AYlJT ♦ VOAY 

PRB21290 

182. C 


.« * * 

PRD21300 

183. 

120 

IF (NOCROS t GO TO 130 

PRB2131Q 

188. 


CALL SIMSONlVOCRSX,NI,DS,VOCXT 

PRB21 320 

185. 


CALL SIMSONIVCCRSY.NI .DS.VOCYI 

PRB2133D 

186. 


CALL SIMSONI vaCRS7,Nr,0S,V0CZ) 

PR B 213 80 

187, 


cxij) = cxiJT + vncx 

PRB2135D 

14B. 


CYIJ) = CY( J> ♦ VOCY 

PRD21360 

189. 


C?(J» = C2(J) + VDC2 

PRB21370 

ISO.C 



PRB21380 

151. 

130 

IF INOVORTJ GO TO 180 

PRB2139D 

152. 


CALL SlHSONtVOVORX.Nl .DS.VDVX) 

PRB218D0 

153. 


CALL SIMSONI VPVORY.NI .DS.VDVYI 

PRB218 ID 

158. 


AXVIJ) - AXVIJ) ♦ VDVX 

PRB21820 

155. 


AYViJT = AYVIJI ♦ VOVY 

PRD21830 

ISb.C 



PRD21880 

157. C 



PRB21850 

ISB. 

180 

CONTINUE 

PRB2186D 

159. C 



PRB21870 

160. C 



PR B2 18 BO 

161. 


IF I.NOT. PRIN3) GO TO 150 

PRB2189D 

162. 


WRITE 16, 260 ) 1 ,J,N 1 ,SD,05 .X.V 

PRB21SdD 

163. 


WRITE 16, 270 1 IL.XRINGIU .YRINGILT.VflAXlX (LI .VOAXr VILl » 

PR8215 10 

168. 


1 V0CRSXIL5 fVOCRS YIL> .VOCRf^Z IL » , VC VORX (L 1 , VO VOR Y < L 1 , L=1 »NU 

RRB21520 

165. 


WRITE 16 , 280 » VOAX, VDAV.VDCX .VOCY, VOCZ.VOVX.VOVY 

PRB21530 

166. C 



PRB2158C 

167. C 



PRB21550 

168. 

150 

IF INOVl ) CO TO 250 

PRB21560 

169. 


IF INOAXI) GO TO 170 

PRB21570 

170. 


S r SC . 

PRB2158d 





i7i. 

DO 160 L = 1 ,NI 

“RB2159D 

172. 

VOAXIXtLl = V0AX1X«U>*5 

PRB216DD 

173. 

VOAXIYIU t VCAXIYCLJ9S 

PRD21610 

17<«. 160 

5 = S«DS 

PRB2162C 

175. 

call SIKSON IVOAXTXtNTf DS.VIAX I 

PRB216 3D 

176. 

CALL SlHSON <VOAXlVtNI,DS,VlAY» 

PRR21690 

177. 

AX«HHJ» - AXlHMlJ ♦ A1HJ)*V1AX 

PRB21650 

178. 

AYIHMII = AYnmi) * AlltJl«VlAY 

PR021660 

179, 

AXIHI = AX5M» ♦ A12«J»*V1AX 

PRD21670 

IBO. 

AYtHJ = AV-IMl ♦ A12,'J»«V1AV 

PRB21680 

161. 

AXIMPJI = AXIMPII + A13(J1«V1AX 

PRB21690 

lez. 

AYlKPn AYtHPl) ♦ A131J»#V1AY 

PRB21700 

103. I7a 

IF INOCROSL CO TO 190 

PRB2171D 

169 . 

s = sr 

PRB21720 

165. 

DO 160 L = l.NI 

PRD21730 

166. 

VCCRSXlLt = VCCRSX1L19S 

PRB21790 

167. 

VCCRSYIL 1 : VDCR5Y(L) «S 

PRB21750 

166, 

XCCRSZ«LI = VCCRS7<LI« 

PRB21 76D 

1B9. 160 

S - S ♦ OS 

PRB21770 

19D. 

CALL SIHSONC VDCRSX.NI tPS.VlCX) 

PRB2178D 

191. 

CALL SIMSON t VCCRS Y.Nl ,DS ,V1CY) 

PRB21790 

192. 

CALL SlHSONt VDCRSZ.Nl ,DS,V1C2» 

PRB21BDD 

193. 

CXIHMl) = CXIHHJ; ■* A1HJ»*V1CX 

' PRB218 10 

199. 

CYIMHI) r CYIHHI; '■> All(J)«VirV 

PR02162O 

195. 

CZIHHl) = C7(f^Hl) + MltJ>*VlC2 

PR B2 18 30 

196. 

CXIHl = CXiMI *■ A12(JKV1CX 

PRB2169C 

197. 

CV(fn = CYIMI + A 12 (J»*V 1 CY 

PRB2185D 

196. 

C7fM) = C7IM> + A12(J>^V1C2 

PRB2186C 

199. 

CX(HPn = CX(HPl) * A13tJ)«VlCX 

PRB2187D 

200. 

CV<«P1» = CYlKPl) ♦ A13(J)*V1CY 

PRB216B0 

201. 

C7lMPn = CZIMPll ♦ A13<J|9V1C2 

PRB21890 

202. 190 

IF l.NOT. PRIN3) GO TO 200 

PRB219CO 

203. 

WRITE (6, 29D » t L, VJR I NC ( L) , YR 1 N6 1 L t , V GA XI X « L ) 

.VQ AXI Y »L) ,V0CRSX(LiPRB219 IP 

209. 

1. VOCRSYCL 1 , VOCRSZCL J,L-1 ,N1) 

PRD2192C 

205. 

WRITE <6, 260 1 V lAX , Vl A Y , V 1C X , V 1 C Y , V 1 CZ 

PRB2’930 

206. C 


PRB2199L 

.207 . . 2 00 

IF »N0V2 » 60 TO 250 

PRB2J9S0 

20B, 

IF CNOAXI) GO TO 220 

PRO? 19 60 

209. 

5 = SO 

PRB21970 

210. 

DO 21D L = 1,NI 

PRC219R0 

211. 

WDAXIX(L) = V0AXIX(L»*S 

PRE21990 

212. 

yCAXIYCL) i VOAXIY(H« 

PRB22000 

213. 210 

S = S ♦ DS 

PRP.2201U 

219. 

CALL SlHSON « VDA X IX , N I , PS , V 2A X 1 

PRB22C20 

215. 

CALL SlHSON 1 VGA X lY ,N I , PS , V2A Y ) 

PRB220 30 

216. 

AXlMMIli = AXIHHII ♦ A21(J1'*92AX 

PRB22D90 

217. 

AYlMKl) = AYIKHI) ♦ A 21 ( J ) 9^V2 A Y 

PRB22D SO, 

218. 

AXIH) = AXIHI + A22(J)*V2AX 

PRB22D6G 

219. 

AYIHI = AVLMl ♦ A72Ui>V2AY 

PRD22P 70 

220. 

AXIHPll = AXIHPl) ♦ A23(J)9V2AX 

PRB72082 

221. 

AYTHPil : AYlHPlJt A23tJI«V2AY 

PRB22B 9C 

222. C 


PRB2210D 

223. 220 

IF INOCROSl 60 TO 290 

PRB221 10 

229. 

S = SO 

PRB2212C 

225. 

DO 230 L = l.NI 

PRB221 3C 

226. 

WOCRSX<L> = vnCRSX«L)9S 

PRB221 9D 

227. 

WDCRSY(L> - V0CRSY(L)9S 

PRB2215D 



-/ 7 / 


22fi. 


VdCRS7«l > = V'-CRS2(LI 95 

PRB221 60 

229. 

2 3^* 

S = S ♦ DS 

PRB2217Q 

2 30. 


CAUL SIMSOfMVDCRSX.NI ,0S,V2CX» 

PR022.1aa 

231. 


CALL 51MS0NI VCCRSy.NT ,05 ,V2CtJ 

PRB2219S, 

2 32. 


CALL JIMSONI VnCRS?,Nl ,0S,V2CZI 

PRBZ22CD 

233. 


CXIMHIl = CXlHMll ♦ A2HJMIV2CX 

PRB222 10 

23M. 


CYtMMlI - cY<hhu • A21tJI*V2(:V 

PRB22220 

235. 


= CZIHHH ’ A2HJ)9V2CZ 

PRBZ2230 

236. 


CX(«> = CX«M) *■ A?2(J)*V2CX 

PRB2229D 

237. 


CYlHt = CY(H> ♦ A22<JI9V2Cr 

PRD22250 

236 . 


CZIM) = CZ<M1'+ A22<J»9VZC2 

PRB2226D 

2 39. 


CXCMPII = CXlMPlt ♦ A23IJI9V2CX 

PRB22Z7C 

290. 


CVlwm = CV<MPil ♦ A23»J)*W2CV 

PR B2 2260 

291 . 


C2IMP1) = CZlMpn 4 A23«J»9V2C2 

PRB2<?290 

292 . C 



PR32Z30Q 

293. 

293 

ir (.NOT, PRIN31 GO TO 25D 

PRB2231Q 

299. 


WRITE (6, 300 1 (L,XRING<L»,rPING(L»,VCAXlXIU ,VD ftXIV (L> ,V0CRSXR>PRB2232D 

295, 


1, VOCRSV(L) ,VQCRS2(L »,L=1 ,NII 

PR62233Q 

2 96. 


UPITC (6 , 260 > V2AX,V2AY,V2CX,W2CY,V2(5z 

PRB22390 

297. C 



PRB2Z350 

296. C 



PRB22360 

299.25 

0 

irt.NOT.PFIRFTURN 


250. 


AX(J)=AXV(JI 


2-71 . 


AYU)=AYV< J) 


2S2. 


RETURN 


253. C 



PRD2238D 

259 . 

2 6C 

FORHAT(12MOPAPA02. I =,I 3,9H, J=,I 3 ,5H , Nl=,l3,5H. SC=,F10.5, 

PRB2239D 

2 55. 


1 5H, DS=,nO,6,7H, X ( TI = ,F10,5t7H, Ym = ,F10.5> 

PRB22900 

256. 

2 70 

FORHAT(9HO L ,7X , 5HX R INC ,&X ,5H YRING , lOX , 6fl VOA X I X , 7X , 6 PWO AXI Y, 

PRB229 10 

257. 


1 10X,6HVQCRSX ,7K , 6HVQ CRS Y , 7X , 6HV0 CRSZ , 10 X , 6HV3 VOR X , 7 X ,6H VC VORY/Z 

PRB2292C 

256. 


2 (IH ,I3,2Fl3.5,3X,2Fl3.6,5X,3F13’.6,3XV2Fi3.6») 

PR8229 30 

259. 

2 60 

rQRMAT(29HCRESULT5 OF S I MP SON -RULE ,9X , 2F1 3 . 6 ,3 X ,3F13 .6, 3 X ,2F 1 3 . 6 , 

PRB22990 

260. 


1 ZIHC) 

PBB2295D 

261. 

290 

FORMAT (9 HP L,7X ,5HXR ING ,8X ,5HYRINC, ID X , 6HV 1 AXl X , 7X , 6MV1 AXIY, 

PRB22960 

262. 


1 10X,6HV1CRSX ,7X ,6HV1 CRSY,7X,6HVICRSZ, // ( 1M , 1 3 ,2ri 3 . 5, 3 X ,2Fl 3 .6 ■ 

PR0ZZ9 70 

263. 


2 3X,3fl3.6I» 

PRB22980 

269 . 

3 CO 

F0RMAT(9H0 L ,7X , SHX R ING ,eX »5HYRI NG,J0X,6HVZ AX IX , 7X , 6HV2AXIY, 

PRB2299D 

265 . 


1 1DX,6HV2CRSX ,7X , 6M V 2 OR S Y , 7X ,6HV2CRSZ , // ( IH ,I 3 ,2F1 3 . S, 3X ,ZF1 3,6 , 

PRB2Z500 

2 66. 


2 3X,3F13.6) ) 

PRBZ2510 

267. 


END 

PRB22520 





” 25 AUC 75 

1. SUBROUTINE P ARAB 3 

li, 'return 

J, END 
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SO.^ATl 25 AUG 75 18 ^ 

1. SUBROUTINE PARTI PRTl 21 

2. r * PRTI in 


3.C OVCRLAY IPAN,],QI C 


4 .C 

PROGRAM 

PARTI 



C 

5.C 




PRTl 

30 

6.C 


• CONTROL ) OR BASlt' OIaTA'ANT fO^ 


PRTl 

40 

7.C 




PRTl 

50 

8. 

COMMON 

/ NBSAVE t NBOLD.'NIN 


PRTl 

60 

9, 

COMMON 

HEORllQI ,CA5C *,NB ,NNU 


PRTl 

70 

ID. 

1 

,FLGD3 ,FLG04 ,FLGD5 ,FLG06 ,FLG07 


PRTl 

80 

11. 

2 

.FLOOe ,FLG09 .FLGID ,FLGH ,FLC12 


PRTl 

90 

12. 

3 

,FLG13 ,FLG14* ,FLG15 ,rtC16 ,FLG17 


PRTl 

ioo 

13. 

4 

,FL018 ,FLGt9 ,FtG20 ,FLD21 ,FLG22 


PRTl 

1 10 

IR . 

5 

,Fl623 ,FLG24 ,FL625 ,FLG26 ,FLG27 


PRTl 

120 

15. 

COMMON 

NT, ND(ll), MN, NUNA15), TYPEA15), 


PRTl 

1 30 

16. 

1 

NERl, NER2, NMA, NSIGA, NSlGC, 


PRTl 

140 

17. 

2 

NUNC15), TVPEC15) , NLFU 1 ). lEC, N5IGEC, 


PRTl 

150 

16. 

3 • 

TYpEECl 5 t,NUNCCT5I 


PRTl 

160 

19. 

DOUBLE 

PRECISION HFDR, case 


PRTl 

170 

20. 

INTEGER 

FLg03 ,FLC04 ,FLG0S ,FLGD6 ,FLGD7 


PRTl 

1 80 

21 . 

1 

,FLGD8 ,FLG09 ,FLG10 .FLGll ,FLC12 


PRTl 

190 

22. 

2 

,FLG13 ,FLG14 ,FlG15 ,FLG16 .FLG17 


PRTl 

200 

23. 

3 

.FLGIB ,FLC19 ,FIG2D ,FLr.21 ,FLG22 


PRTl 

210 

2R. 

4 

*FIG23 ■ ,FLG24 ,FL625 .FLG26 ,FLG27 


PRTl 

220 

25. 

COMMON 

/IPSF/ PSF 


PRTl 

2 30 

26. 

COMMON 

/P/ IPUVEL 


PRTl 

240 

27. 

REAL 

MN 


PRTl 

250 

28 .C 




PRTl 

260 

29, 

COMMON 

/cl/' XU5001, YH50DI, X2150D), Y21500), DELS(500) 

t 

PRTl 

2 70 

30. 

1 

SINAI 5DD» ,COSA«50D»,XP(5001 , YPl 5DC1 


PRT 1 

2 80 

31 . 

2 

,XWAdE(ll),YUAXEflll 


PRTl 

2 90 

32. 

COMMON 

/TL/ TX1155D), TY1I53Q), NGI5001, TG15DD1, ALFAlSOOl 

t 

PRTl 

300 

33. 

1 

RS0S150D) ,DALFfS001 , 


PRTl 

310 

34. 

2 

CHORD, TtMPl6D0),TCNST, 0UMMY15915I 


PRTl 

3 20 

35. 

COMMON 

/PRINTF/ PRIN 1 ,PR1N2,PR1N3 


PRT 1 

330 

36. 

COMMON 

/BLOCKR/ NRAKES,RNAME120 ,9 » .RAIKE A 1 2D » , RUN I T X 1 2C) , 


PRTl 

340 

37. 

1 PUNITVT 201 ,Rr5(2ni ,NRPTS120I ,COSTH<20»,IRAKF,N0Fr,X lRf20) , 


PRTl 

350 

38. 

2 Y1R( 201 ,X2R(2a) ,V2Rf 20) 


PRTl 

3 60 

39. 

COMMON 

/CP5BLR/ EPSLON 




40. 

COMMON 

/RNGWNC/ VA15D0,2), YR 1500 ,2 J ,V AN 1 5D0 1 , VATI5QD) 


MtRX 

350 

41. 

COMMON 

/BLOCK 1/ ICE0MF19),rSIGri9) ,IPNCHF ,NONEU 1 9 ) 


BASl 

70 

42. 

COMMON 

/BLOCKS/ HCURV ISPD) ,HARCi5CQ> 


BASl 

80 

43. 

COMMON 

/BLOCK 3/NO AXl , N0CR05 .NOVORT ,NOV 1 , NO V2 , F I RS T E , L AS T E ,L SS E , 

SO 

,XV22 

4 30 

44 . 

r NSMALL 


XYZ2 

440 

45. 

COMMON 

/BL0CK4/A1 115QU,A12 1500 ),A 131500 l,A2 11 5001 , A 22(500 , 


MTRX 

90 

46. 

1A23ISCD) 


MTRX 

100 

47. 

LOGICAL 

PRrNl,PRlN2,PRIN3 


PRTl 

3 70 

48. 

INTEGER 

BON ,SUBKS 


PRTl 

380 

49. 

REAL 

MX ,MY ,NG 


PRTl 

390 

50. C 




PRTl 

400 

51 .C 


* start 


PRT 1 

4 10 

52. C 


■* READ INPUT DATA 


PRTl 

420 

53. 

10 read 15 

, SD ,ENO= 590 ) HEDR, CASE, PSF, ND, NNU, ELGD3, ELG04 ,ELG05, 

FLGPRTI 

4 31 

54. C 

10 READ 15 

, 5D ) HEDR, CASE, PSF, NB, NNU, FLG03, FLG04 ,FLG05, 

FLGPRTl 

43C 

55. 

106, 

FLGDT, FLG08, FLGDV, FLGJO, FLGll, FLG12, FLG13, 

PRT 1 

4 40 

56. 

2FLG14 , 

FLG15, FLG16, FLG17, FLGie, FLGI9, FLG2D, FLG21, 

PRTl 

4 50 





S7. 

5&. 

69. 

60. C 

61. 
62. 
63 • 

6*t. 

66 . 

66 . 

67. 


3FLC22, 


6RIN1, 1PR1W2 ,JPR1N3, IRftKr 
IPUVCI. = 1 

ir «E0F(5I1 590, n 
11 CONTlNUr 

PRINl = .FALSE. 

IF IIPRINI .EQ. 

PP1N2 = .FALSr. 

IF UPRIN2 .EQ. 

PRIN3 = .FALSE. 

IF UPRIN3 .'EO. 


FLGZ3, FLGZM, FLG25, FUG26. FLG27, IPUVCL, NlN.IPPRTl 


PRTl 


11 PR JNl = .TRUE. 


1 1 PR1N2 = .TRUE. 


It P R 1 N 3 


.TRUE. 


PRTl 
PRTl 
PRTl 
PRTl 
PRTl 
PRT 1 

68. C**« O^^TRIANRULARIZATION OF THE MATRIX fSOLVITJ IS THE DEFAULT SOLUTIONPRTl 

69. inFLG09,E0.O.AND.FLGlQ.FO.OlFLG13=l PRTl 

70. CO9# 9#PFLG22 15 GENERATED TRESEPt BOUNflARV CONDITIONS . PRTl 

♦ ■»*rLG21 IS EXTRA CROSS FLOW PRTl 

IF <FLG22.LC.0)GO TO 20 PRTl 

FLG21 = 1 PRTl 

FLG03 = 1 PRTl 

FLGQ'i =1 PRTl 

PPOIF FLAG IP IS NOT EQUAL TO FLAG IM YOU MUST USE OIPECT MATRIX PRTl 


71 

72 . 

73. 

7<t . 

75. 

76. C**# 


77 . 

78. 

79. 

ec. 
81. 
82. 
83. 
814 . 


20 


30 


RQ 


IF (FLG18.NE.FLClf()C0 TO 30 
IF (FtC21 .LE.OGO to t)0 
FLG12 = 1 
FLG13 = 1 
FL609 :: 0 
FLGIO =■ 0 
CONTINUE 

IFt NBOLD .FO, 0 ) 

85. CP«9 «9«r.ARPS (UNIT 51 ARE 

86. IFT MN .EQ. D ) 

87. 50 FORMAT ( 10A6, 3X A6, 7X Aij/ 20TI, 12, Rill 

88. READ (5, 6D 1 CHORD, HN , TCNST , LPStON 

89. 6D FORMAT ( *iri0.0 1 

90. C9'»« «>»«THE DEFAULT CHORD LENGTH IS l.C 
91 . 

92. 

93. 

9<t . 

95. 


NBOLD = NB 

THE DEFAULT METHOD OF INPUT 
NIN z 5 


PRT i 
PRTl 
PRTl 
PRTl 
PRTl 
PRTl 
PRTl 
PRT 1 
PRTI 
PRT 1 

PRTl 

PRTl 

PRTl 

PRTl 


R60 

R70 


MSD 
M9D 
5 DO 
5 ID 
5 20 
53D 
590 
5 50 
560 
5 7C 
580 

5 90 

6 00 
6 10 
62C 
6 30 
6RC 
650 

6 6C 
67C 
680 
69C 

7 00 
7 10 
7 20 

7RC 
7 50 
7 60 
77D 


I F(CHORD.GT.-1.0C -5. AND.CHORD.lt. 1 .DE-5 » CHORD = 1 .0 
URITE (6, 70 » HCDR, CASE, NB, HNU , CHORD, HN, TCNST, CPSLON, PSF PRTl 780 


70 FORMAT t IHl 25X, 26HD0UCLA5 AIRCRAFT COMPANY ( 

1 28X, 21HL0NG BEACH DIVISION /// 

2 6X,52HPR0GRAM ECDF -- PARABOLIC AXISYMHCTPTC AND CROSSFLOW ,// 


PRTl 7 9C 
PRTl 800 
PRTl a ID 


96. 

3 llX , 

CASE CONTROL DATA 


/// 


PRT 1 

820 

97. 

9 . 6X, 

IDA6, 9X, lOHCASE NO. A6 

// 



PRTl 

835 

98. 

5 6X 

9HB0DIES =13/ 6X 9HNNU 

= 13/ 

6X 

OHCFCRD 

=F12.7/PRT1 

8 9E 

99. 

6 6X 

9HMACH N0.=F12.B/ 6X RHICNST = 

F12. 

7/ 

PRT 1 

85C 

100, 

7 6X, 

8HEPSL0N =,F12.7,/6X,9HPSF 

NO. =, 

AM///) 



101 . 

IF 1FEG03.GT 

.ri WRITE (6, BO 1 




PRTl 

870 

102. 

00 FORMAT <13X 

21HSURFACE OF REVOLUTION ) 




PRT 1 

880 

103. 

IF 1FLG09.GT 

.SJ WRITE lb, 90 1 




PRTl 

8 90 

109. 

-90 FORMAT (13X 

9MCR0SSFL0W1 




PRTl 

900 

105. 

IF TFLG05.GT 

.n WRITE 16, ICD 1 




PRTl 

9 10 

106. 

ICO FORMAT U3X 

15H0FF-00CY POINTS > 




PRT 1 

920 

107. 

IF 1FLGC6.GT 

.C) WRITE (6, IID ) 




PRTl 

9 3D 

108. 

no FORMAT U3X 

15HBASIC DATA ONLY 1 




PRTl 

990 

109. 

IF IFLG07.GT 

.01 WRITE 16, 12D 1 




PRTl 

9 50 

no. 

120 format U 3X 

17HFLL1PSE nENERATOB J 




PRTl 

9 60 

in. 

IF IFLG08.GT 

.01 WRITE 16, 133 I 




PRTl 

9 7E 

112. 

1 30 FORMAT < 13X 

19HPRINT MATRICES I 




PRTl 

980 

113. 

IF (FLG09.GT 

,Ct WRITE 16, 19D 1 




PRTl 

9 90 





i"i <♦ . 

1 15. 

116. 

117, 

118. 

1 19, 
120. 
12U 
IZZ . 
123. 
12*«, 

125. 

126. 

127. 

128. 

129. 

130. 

131 . 

132 . 

133. 
139 . 

135. 

1 36. 
137. 

136. 
139. 
I'lQ. 

191. 

192. 

193. 
l99. 

195. 

196. 

197. 

198. 

199. 

150. 

151, 

152, 

153. 
159 . 

155. 

156. 

157. 
iS'8. 

159, 

160. 
161. 

' i62‘; 
163. 
169/ 
165. 

"166 7 

J_67. 

" 1687 

169. 

170. 


190 FORMAT U3X lOHOLI) SEIOCL » 

IF (FLGID.GT.CI WRITE <6, ISO > 

150 F0RMATU3X,31MM001FIED SEIDEL MATRIX SOLUTION! 

IF (FLGll.GT.OI write 16, 160 1 
160 FORMAT « nX 18HPERTURDATT0NS ONLY ) 

IF IFLG12.GT ,01 WPITE (6, 1 70 I 
170 FORMAT <1 JX 22MSOLVE POTENTIAL MATRIX > 

IF (FLG13.GT.Q! WRITE 16, lOD ! 

180 format T13X 97UMATR1X SOLUTION BY TRIANGULAR! 2 A T I ON (SOLVIT M 

IF (FLG19,CT.C> WRITE 16, 190 ) 

190 FORMAT ( 13X 3GHPRES CR 1 BCD TANGFNTJAL VELOCITY I 
IF (FLC18.GT .0! WRITE <6, 200 ! 

2C0FORMATi 15X 22UW1TH SURFACE WORTICITV » 

IF 4FLG15.GT.0I WRITE (6, 213 I 
210 format (13X 12H5TP1P VORTEX 1 
IF IFLG16.GT.CI WRITE <6, 2?Q » 

220 FORMAT «13X 9CH0HIT A XI -SYHHCTR IC UNIFORM FLOW SOLUTICN ) 

IF (FLG17.GT.D! WRITE (6, 230 » 

2 30 FORMAT (13X 36HOM IT CROSSFLOW UNIFORM FLOW SOLUTION 1 
IF (FLG19.GT.0) WRITE (6, 290 I 
290 FORMAT U 3X 2 OHP R FSCR lOED VORTICITV) 

IF (FLG2D .GT. 0»WRITE«6, 250 » 

2SC FORMAT (13X ISHTOTAL VORTICITY I 
IF (FLG21 .GT. D1WRITF(6, 263 T 

260 Format ( I3x io'mcxtr a cross' flow i" 

IF (FLG22 ,CiT. DlWRITElO, 270 I 

270 F0RMAT(13X 62HGCNERATE0 fiOUNDARY CONDI 710NS FOR 3 AX 1 SYMMETRIC , 
ICROSS, AND 1 EXTRA CROSS FLOW. » 

IF 1FIG23 ,LE. 0 ) GO TO 290 
WR1TC(6, 280 ! 

2 P0 format (13X 16MRINC WING OP'l’lON I ' 

FLG03 = 1 
FLG13 = 1 
FL615 r 1 
FLG19 =1 

290 IF (FLG19 .GT, OIFI.GIC = 1 

If trtG22.GT.0.AN0VND .NE.'ai Wfo 3Cb 
GO TO 320 
300 URITEU, 310 i 


PRT 1 1000 
PRTllO ID 
PRT11D20 
PRT no 3D 
PRTU090 
PRTllOSO 
PRT11D60 
PRTM07L 
PRUIDBO 
PRT 1 10 90 
PRMl 100 
PRT in 10 
PRT 11120 
PRT1113Q 
PRTIU90 
PRT11150 
PRT11160 
PRT 11 1 70 
PRTU18Q 
PRTll 190 
PRT11200 
PRT1121D 
PRT 11220 
PRTn23ti 
PRT1129D 
PRTH25D 
1 PRTI1260 
PR T1 12 70 
PRTl 1280 
PRT11290 
PRTI130D 
PRT11310 
PRTM320 
PRT11330 
PRT1139D 
PRTl 13 SO 
PRT11360 
PRT11370 
PRT 11380 


310 FORMAT n28HQ WHEN GENERATED RESEP BOUNDARY CONDITIONS ARE US ED,NUPRT 1 1 3 90 
IMBCR OF BODIES MUST BE EXACTLY TWO, YOU GOOFED. EXECUTION TERMPRT11900 


21NAT1NC.1 ' PRT11910 

STOP" '■ " PRTH920 

32D IF (FLG22.GT.0.AND.NNU.GT.0IG0 T0_ 330 PRT1193D 

GO YO 350 PRT1199D 

330 WRITE ( 6 , 390 > PRT1195D 


390 FORMAT ( 98HC GENERATED RESCP' BOWdARV CONd"iTI ONS CANNOT HAVE N0N~UPRT1 1960 


INIFORM FLOW INPUT. EXECUTION TERMINATING.) PRTl 1970 

'S 50 IF' (l(>UVCL.‘Nr 76 » WR'ni "(' 6 ,^ 60 'V" PRIllMSD 

36D FORMAT (13X 19HPUNCHE.D OUTPUT I _ PRTn990 

■write ( 6, 370"1 'NIN ' ‘ ' - * PRTllSDO 

IF (FLGl 8 .LE.D.OR ,FLG 19.GT.0! 60_T0 390 PRTIISIO 

37C FORHAtI l3X,58HINPUT TAPE NO. FOR COORDINATES *ND NON-UNIFORM FLOPRT1152D 

IW ONLY_£ ii__J5 I _ , PRTl 15 30 

wTlTfE I6'i 380"1 ’ “ "" “ ' ' PRfM59D 

380 FORMAT (IH0//63H FLG19 MUST BE USED WITH FLG18 OR FUG19. EXE CUT lOPRT 1 1 5 50 
IN TERHINATEO. ) " ' ‘ PRIllSGO 





390 


TrlV 

J72. 

173. 

179. 

175; 

176. 
'ITTit 

178. 

179, 
16D.C9** 
aei.c*** 


‘sw * 

IF INNU.UE.O.OR.FLGI*) .tr.Ql GO TO 91D 

WRIIC <6, 900 > ' 

900 FORI1AT U»<C// 99H COLUMNS 2 AND 19 OF FLAG CARO ARC 
" X ' t 93H ILICCAL combination, EXECUTION TERM 

STOP „ _ 

• tltT6"CKl'A ANP SET0P'TOR“UNfrORH F^^^ 

910 IF (IRAKF .CO. IX WRITE 16, 600 X 
CALL BASIC! 

♦••NS16A AND NSIGC ULTIHAICLY BECOME THE NUMBER OR RI 
•**1N AXTSYMMCTRIC FLOW AND CROSS FLOW RESPECTIVELY 


PRT1157D 
PRT1158D 
PRT1159C 
POTH N0N-2CR0.PRT11600 
INATED. X PRTI1610 
PRT11620 
PRT11630 
PRT1169D 
PRT1I650 
GMT HAND SI0C5PRT 1 1660 
PRT11670 


162. 

NSIGA=C 

PRT 116B0 

ITJ.' 

'IF fri6b3'.GT;o.liNb.Tlr,i6.LT.o X 'xisiGA'^i 

PRT1169D 

169. 

NS1GC=D 

PRT1170D 

165. 

* If «FIC09,CT .Q.AND.Fl Gl7.LE.0X NSl CC = 1 

PRT11710 

166. 

IF «riG22.CT.DX GO TO 930 

PRI U7 2D 

157. 

UO 920 1=1,5 

PRT1173D 

166. 

NUNATTX = 123956 

PRT 1 1790 

*i89.’" 

’ 9 20 "TYPEA UX ' = lOD, 

PRTU75D 

190. 

ir«FLG23 .GT. OIGO TO 950 

PRT11760 

191, 

CO TO 900 

PR Til 7 70 

192, C*** 999PREPARC NUNA AND TYPEA FOR NON-UNTFORK AXISVMHCTRIC FLOW 

.GEHERPRimeO 

193.C*** •♦♦TRESEP) BOUNDARY CONDITIONS 

PRT1179C! 

199 . 

930 00 99D 1=1,3 

PRT 11 BOO 

195 . * 

NUNAill = T 

PRTIIBIO 

196. 

99C TYPEA MI r ICO.D 

PRTUB20 

197, 

GO TO 980 

PRT11C30 

196. C 


PPm89D 

199. C 


PRT 11 BSD 

200. C 

RING WING OPTION 

PRTI I860 

ifoi.'c 

«««' STRIP vortex: FLOWS ALREADY HAVE NMNAII) = 123956 . 

PRT11870 

202. C 

MAKE PRCSCRIBEO WORTJCITY FLOWS NUNAU) = TO THEIR FLOW 

NO. JPRTllBalj 

2d3.C 


PRTI1890 

2 09. 

9 50 I ENT =0 

PRT 11 900 

205, 

DO 96C I = 1 ,NB 

PRT 11910 

206. 

IFINLFTTI ,GT. 0) GO TO 960 

PPTn92D 

207. 

ICNT ± ICNf ♦ 1 

PRT11930 

208. 

960 CONTINUE 

PRTI 1990 

209. C 


PRTI 1950 

210. C 

♦99 ICNT IS THE NUMBER OF LIFTING BOOTES 

PRT 119 60 

2il.C 

999 number OF FLOWS IS 2 9 ICNT * 1 

PRTI 1970 

212. C 


PRTI 19RD 

213. 

NFLOWS =29 ICNT ♦ 1 

PRni99Q 

219. 

1CNTP2 : ICNT 2 

PRT12D00 

215. 

DO 97D I : I CNTP2 ,NFL OWS 

PRT 120 10 

216. 

970 NUNAl H = I 

PRTI2020 

217. 

980 CONTINUE 

PRT12030 

216. C' 

«99If FLGD2 INON-UNIFORM FLOWI 1$ NOT CHECKED INITIALLY, THE 

FLOW PRT120HO 

'2i9.c**« «6*oF Control will never reach dasic2 

PRT1205D 

220 . 

IF INNUX 990 , 500 , 990 

PRT120 60 

221 .C 

9 READ DATA AND SETUP TOR NON-UNIFORM FLOW 

PRT12D70 

222. 

99: CALL BAS1C2 

PRT 120SC 

223. 

SCO CONTINUE 

PRT1209C 

229. 

REWIND 9 

PRT121 00 

225. 

IF TNSIGA ,LE. 5 XGO TO E3C 

PRI121 10 

226. 

510 WRITE <6, 520 ) 

PRT1212D 





ZZB. 


1 5. EXECUTION TERMINATED 1 


PRT1219D 

229, 


STOP 


PRTI2150 

23Q. 

5 30 

IF TNSI'GC .GTv 5>00 TO 510 


PRT12160 

231 . 


IF tFLClS.LE.a.OR.FLGOS.GT.OI GO TO 55D 


PRT12I70 

232. 


WRITE «6, 590 t 


rRTI2180 

233. 

690 

FORMAT T69M1STR1P RING VORTEX OPTION MOST 05?. 

SURFACC OF 

REV0LUTI0PRn2l90 

is**.' 


IN OPTION. V 22H CXECUtlOlT TERMlNAf CO. "> 


PRTI2200 

Z3S. 


STOP 


PRTIZ2I0 

2 36, 

5 50 

IF (FIG15.LE .bt GO TO 5BD 


PRTI2220 

237. 


J = 0 ' 


PRT12230 

238. 


DO 56C I - 1, NB 


PR 11 2? 90 

239. 

560 

IF (NLFMI.LF,.OI J=J« I 


PRT17.2S0 

29D. 


If insica ♦ J* ,i.c. ■ s ICO ■T6’'58b 


PR 7 122 60 

291. 


WRITE <6, 570 I 


PRV1227D 

292. 

570 

FORMAT f68HlGFNERATCD STRIP VORTEX ONSET FLOWS lONE FCR 

EACH LIFTIPRT122eO 

293. 


ING BODYI PLUS / 39M INPUT NON-UNITORM FLOWS EXCEED 5. / 

PRT1Z290 

299 • 

2 22HCEXCCUTIQN TERMINATED. » 


PRT 12300 

295. 


? U)P 


PRT'12310 

296. 

5eo 

IF iriGD6,NE.0l GO to ID 


PRT12320 

297. 


CAi.t MATRIX 


PRT12330 

298. 


GO TO 595 


PRT12390 

2 9,9. 

590 

WRITE (6, 610 ) 


PRT 12350 

250. 


STOP 


PRT12360 

251 . 

595 

RETURN 


I 

2E2.C 

59S 

continue' - 


C 

25 3. 

6 00 

F0RHATI13X, ’AUTOMATIC RAKE CEKERATIDN’I 


PRT12370 

259 . 

6 JD 

F0RMAT(55H0Nb ADDITIONAL CASES INPUT. NORMAL 

PROGRAM termination. IPRT12380 

255. 


END 


PRT1239D 



/7«F 


S0.PAT2 





25 
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1 S 

1. 

SUBROUTINE PART2 





PR12 

21 

2.C 






PRT2 

10 

3.C 

overlay IRAN, 2, 01 






C 

<I.C 

PROGRAM PART2 






c 

5.C 






PRT? 

3C 

6.C 

# COMPUTE SOURCE DENSITY SIGMA 

BY 

siedel iteration 

PRT2 

40 

r.c 






PRT? 

50 

B « 

COMMON ilEORUDl .CASE 

,NB 


,NNU 


PRT2 

60 

9. 

1 ,rLG03 ,FLCC4 

,FLGD5 


,FLC0(. 

,FLDD7 

PRT2 

70 

10, 

2 ' ,fLGD8 ,riD09 

,riG3C 


,FLG1 1 

,FtG12 

PRT2 

80 

n. 

3 ,FLG13 ,FLG14 

,FLC15 


,FLG16 

,FLG17 

PRT2 

90 

12, 

4 ,ELGie ,FLC19 

,FL62D 


,FLC2 1- 

,FLG22 

PRT? 

1 00 

13. 

5 ,FLG2 3 ,n.G24 

,FIG25 


,FLD26 

.F1G27 

PRT2 

1 1C 

m. 

COMMON NT, NOmi, 

MN, NUNA(5I, TYPEA(51, 

PRT? 

120 

IS. 

1 NERl, NER2, 

NHA, NSICA, NSIGC, 


PRT? 

1 30 

16. 

2 NUNCTbl , TVPEC151 , 

NLFnil, TEC, 

NSIGEC 

, 

PRT? 

140 

17. 

3 T VPCFCt 5 l.NUNECIS 1 





PRT? 

1 50 

18. 

DOUBLE PRECISION HEPR, CASE 





PRT? 

1 60 

19. 

integer FL6D3 ,FLG04 

,FLGD5 


,FLG06 

,rL0D7 

PRT? 

1 70 

20. 

1 ,FICD8 ,FL609 

,FLG10 


,flgii 

,FLG12 

PRT? 

1 80 

21 . 

2 .FLG13 ,FLC14 

,FLG15 


,FLG16 

,FLGIV 

PRT? 

I 90 

22. 

3 .FlGlfl ,FLG19 

,FLG20 


,FLG2I 

,FLG22 

. PRT? 

2 00 

23. 

4 ,FL623 ,FLG24 

,FLG25 


,FLG26 

,FLG?7 

PRT? 

210 

29 . 

real tIN 





PRT? 

220 

25. C 






PRT2 

2 30 

‘ 26. 

COMMON /C?/ A<5"CJ. P(5CD 

,41, NSIG 

, IT 


PRT? 

240 

27. C 






PRT? 

250 

28. 

DIMENSION ASIDT5DC,4), 

CS1G(5DD,4) 

• 

T(5cri 


PRT? 

?6G 

29. C 






PRT? 

2 70 

30 .C 

*■ START 





PRT 2 

280 

31. 

IF (FIG03.EQ.DI GO TO 8P 





PRT? 

290 

32. C 

* AXIS FLOW 





PRT2 

300 

33. 

L = 0 





PRT? 

31C 

39 . 

READ (4) (T 1 1 J ,1 = 1,NT 1 





PRT? 

3?C 

35. 

IF (FLG16 .NE.C) GO TO 2P 





PRT? 

3 3D 

36. 

L=L + 1 





PRT? 

34D 

37. 

DO ID I - 1, NT 





PRT? 

350 

38. 

ID R(1,L» ^ T(l) 





PRT? 

3 60 

39. 

20 IF (NNU) 60 , 6D , 30 





PRT? 

370 

*iCi, 

30 DO 50 J r 1, NNU 





PRT? 

3 80 

91 .C 

* read non-uniform no * SKIP TO 




PRT? 

3 90 

9?. 

READ (41 MS , (TII 1 ,1-i ,NTI 





PRT? 

4 20 

93. 

IF (HS.EO.l 1 GO TO SO 





PRT? 

4 10 

44. 

'L:L*1 





PRT? 

4 20 

45. 

DO 4D I = 1 , NT 





PRT? 

4 30 

'*6., 

40 R(1,L1 = T( 11 





PRT? 

440 

47. 

50 CONTINUE 





PRT? 

4 SC 

' 48. ■ 

8C-' REVIND 4 





PRT? 

4 60 

49. 

IT r 9 





PRT? 

4 70 

50. 

NSIG - NSIGA 





PRT? 

4 BO 


* SOLVE SIMULTANEOUS 

equations 

FOP 

SIGMAS 


PRT? 

4 90 

52. 

CALL MISNA2 (ASIC) 





PRT? 

500 

53. 

REVIND 9 





PRT2 

5 1C 

54. 

IF (FLGn4.GT .01 GO TO 8^ ' 





PRT? 

520 

55. C 

*= WRITE SIGMAS ON TAPE 3 




PRT2 

530 

56 t 

DO 70 J = 1 , NSI GA 





PRT? 

5 40 





■ 5''7 . ■ 70 

UPltE «3» JASIOU.J), I = 1. NT» 

PRT2 

550 

5R. 

CO ro lOD 

PRT2 

5 60 

69. C 

# CPOSS FLOW 

PRT2 

5 70 

fco. m 

L = D 

PRT2 

5 80 

. 

RFAD 19) ITn ),l = l,NTI,<Tm,T = l,Nr) 

PRT2 

5 9D 

62 • 

ir iFtr.iT.MC.o) no to loo 

PRT2 

600 

6 3 * 

L = L«1 

PRT2 

610 

69. 

DO 90 1 i 1, HT 

PRT2 

620 

65'. 9D 

RO ,L> = -T n ) 

PRT2 

630 

66. iOO 

ir TNNIM 190 , 19 0 . 110 

PRT2 

6 90 

67. nc 

DO 130 J = I . NNtJ 

PRT2 

650 

68. 

RF*0 T9) MS,<T(I),I=1,NT) 

PRT2 

6 60 

ib9 .r 

If IH5.LE.0) no TO 130 

PRT2 

670 

70. 

L - L«1 

PRT2 

6 3D 

71. 

00 120 y = 1 , NT 

PRI2 

690 

72. 120 

Rn,t» = TO ) 

PRT2 

7QQ 

73. 130 

continue: 

PRT2 

710 

79. 190 

rewind 9 

PRT2 

720 

75. 

IT = ID 

PR12 

7 30 

76. 

NSIG = NSTGC 

PRT2 

7 90 

77 .C 

* SOLVE SIMULTANEOUS EQUATIONS FOR SIGMAS 

PRT2 

750 

78. 

CALL MISNA2 » CSl G » 

PRT2 

760 

79, 

REWIND ID 

PRT2 

7 70 

80. 

If (FLGDS.LE.D) go TO 16D 

PRT2 

780 

■ ai.c 

* WRITE SIGMAS ON TAPE 3 

PRT2 

790 

82. 

DO 150 J = 1, NS IGA 

PRT2 

eoo 

83. 15C 

Write (i» iasioti.j) ,i=i,ntt 

PRT2 

flio 

89. 160 

DO 170 J = 1 , NSIGC 

PRT2 

820 

85, 170 

WRITE <3) (CSlGt 1 ,J) , 1=1 »vr 1 

PRT2 

8 30 

86. 180 

RETURN 

PRT2 

B9I 

“87.C IBD 

COrilflNUE 


C 

88, 

end 

PRT2 

8 50 



ij 



i 
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08 DEC 

: 75 

19 

1. 

SUOROUTINC PAR19 



PRT9 

21 

■ ~~ l,t 

•r 



PRT9 

ID 

3.C 

OVERLAY (PAN, 9, 01 




C 

<t'Vc" ■ 

' PRbeiJAN PAR 19 ‘ - ~ " ■' 




c 

s.c 




PRT9 

30 

(6T7C 

* C'O'RPUTE VETOtTTV'co¥P(5MCN'fS*TN^ 

PRINT 


PRT9 

90 

7.C 




PRT9 

50 

8. 

COriMON /«LOC«'’/ HCURV(SOCI,H8^C(500I 





9. 

COHMON/CURVPR/ IEL2 





"I'D. 

COMMON HEORtrol .CASE ,ND 

,NNU 


PRT9 

60 

n. 

1 ,flG03 ,FLG09 , FLOPS 

.FLGD6 

,FLGD7 

PRT9 

70 

f2. — 

'2"' ;TlGOS "*;P'LG'D9 .'FLiSrO 

,FLG1 I 

,FLG12 

PR T9 

80 

n. 

3 ,FLC13 ,FLG19 .FLG15 

,FLD16 

,FLG17 

PRT9 

90 

i#.- 

9 ,FL018 ,FLG19 ,FLC2b 

,FLC21 

,FLG22 

PRT9 

100 

IS. 

5 ,FtC23 ,FLC29 ,FLG25 

,FL626 

.FLG27 

PR T9 

1 10 

lb. 

COMMON NT, Nomi, MN , NUNAtSl, r¥PCA(5», 

PRT9 

120 


1 NERl, NCR2, NHA. NSIGR, NSIGC, 

PR T9 

1 30 

' *18. 

2 NONC(5>, TYPECISl, NLF(11I, ICC, 

nsigfc. 

PR T9 

190 

19, 

3 YVPEECl S »,NUNEC(5» 



PRT9 

150 

20.' 

OOUBLF PRECISION HCOR, CASE 



PRT9 

160 

21. 

COMMON /C0MBIN/CHAY(2 1 



PRT9 

1 TO 

22. 

INTEGER FLGD3 ,FLGD9 ,FLGD5 

,FLG06 

,FLGP7 

PR T9 

1 80 

23. 

1 ,FLGD8 .FLGD9 ,FLGtO 

.FLGll 

,FLG12 

PRT9 

190 

- 21,. 

"Z” ,fLG13 ;Pl"g19 **,FLG15 

,PLG16 

,FLG17 

PRT9 

200 

25. 

3 ,FLG18 ,FLG19 rFLG2D 

,FLG21 

.FLG22 

PRT9 

2 10 

26. 

9 ,FLG23 ,rL(j29 ,FLG25 

,FLG26 

,FLG27 

PRT9 

2 20 

27* 

REAL MN 



PRT9 

2 30 

26. C 



' 

PRT9 

290 

29. 

COMMON /C4/ Xl(503», ¥1(5031, X2(500», 

Y2I5D01, ' 

DFLS(EDD), 

PRT9 

250 

" '30. 

1 SlNt{5Obt,COSA'(50'a),XP(5d0>, 

YP(5D0) 


PRT9 

260 

31. 

COMMON net RBI500'.101, SIG(50D,S», 

A(5D0), 

B( BOOT, 

PRT9 

270 

32. 

I 2(5007, PHI4500,5), 

XN(GDC,5 ) 

,7 ( 500,5 1 , 

PRT9 

2 80 

33. 

2 T3(500,5», NSIG, 

NP, 

N1 , 

PRT9 

290 

39. 

3 SUHV, SUMH(5> 



PRT9 

300 

35. C 




PPT9 

3 ID 

36, C 

# start 



PR.T9 

320 

37. 

DO 10 J = 1,10 



PRT9 

3 3C 

38. 

DO 10 I = 1 ,5GG 



PRT9 

390 

39. 

ID RB(1,J) = C.O 



PRT4 

3 SO 

90. 

REWIND 3 



PRI9 

360 

91, 

IF (FLG05.EO.C) GO TO 2P 



PR 19 

3 70 

92. C" 

# READ OFF-BODY XP,YP 



PRT9 

3 00 

93. 

NP=N0INB+1) 



PR T9 

390 

99. 

READ (12T (XP(1) ,l=l,NPT,(YP(ll,I-l ,NP» 



PRT9 

4 00 

95. C 

READ X l.Yl ,X2,Y2,orLS WITH MACH 

NO. ADJUSTMENT IF ANY 

PRT9 

9 10 

96. 

2D NI=NT'*Nfi 



PPT9 

9 20 

97. 

READ (12i 1X1 11 V ,1 = 1 ,NI ), ( Y1 Cl ) ,ln,Nl > , (X 

,?( I > ,I =1 ,N1» 

PRT9 

930 

98 . 

1 ■ , ( Y2m ,I=1,NT1,(0CLS(I J ,1=1 ,NT) 



PRT9 

9 90 

99, C 

♦ READ STNA ,C0SA,N0,T0.. 



PRT9 

9 5C 

50. 

READ (9» (A (H,I=1,NT J, (B(I ),I=1,NT» 



PRT9 

9 60 

51 . 

NMAPl = NBA ♦ 1 



PRT9 

9 70 

52. 

IF(FLG23 .GT. U I R FAD ( 9 M 2 CI J , I =NMA P 1 ,N T ) 



PRT9 

980 

S3. 

SUHV =0.0 



PR T9 

9 90 

59. 

DO 30 I = I , NT 



PR T9 

5 00 

55. 

SINAdl = All ) 



PRT9 

5 1C 

56. 

COSAII ) = Bil l 



PRT9 

S2D 



■/// - 


57. 

30 

SUMV r SUHV ♦ i UDELsViV*Y2*I»**2 ' “ . 

PRT4 5 30 

se. 


SOMV = SUMV*3.14 1593 

PRT4 540 

59. 


ir (FLGD3.LE1.0I GO TO 110 

PRT4 550 

6a. 


L - 1 

PRT4 560 

61. 


LS = 0 

PRT4 570 

62. 


IF lfLG16.NE.C» GO TO 50 

PRT4 580 

63. 


00 40 i = 1, NT 

Pf?T4 590 

6M. 


ROtlfLI = Am 

PRT« 600 

65. 

40 

RBU,L*1 1 = Bill 

PRT4 61D 

66. 

SO 

IF INNUI IDC , ion , 60 

PRT4 620 

67. 

6C 

00 80 J = 1, NNU 

PR 74 630 

68. 


READ 141 MS, (All 1 .1 = 1 ,NT|, (BIT 1 .1>1*NTI 

PR74 640 

69. 


IF (MS.EO.l.OR.nS .EO. 2,8R.HS.EQ.'5» GO TO 60 

PRT4 650 

7D. 


L = L + 2 

PRT4 660 

71 . 


LS = tS*l 

PRT4 670 

72. 


IF (LS.EQ.1.AND.FLG16 .GT.DI L=L-2 

PRT4 680 

73. 


DO 70 1 = 1. NT 

PRT4 690 

7*i. 


RBII.L) = All) 

PRT4 700 

75. 

70 

RB(1.L«1 ) = Bin 

PRT4 710 

76. 

80 

CONTINUE 

PRT4 720 

77. 


IF1FLG23 .LE. CIGO TO 100 

PHT4 730 

78. 


IPV = NB ^ FLG14 ♦ 1 

PRT4 740 

79. 


NN = NMA 

PRT4 750 

80. 


DO 90 KCNT = IPV.NB 

PRT4 760 

-* -fil . 


L = L ♦ 2 ■■ '■ ■■ ■■ ;■■■“ '■ ■’* *'■*' " ' 

PRT4 770 

82. 


NN = NN ♦ NDI.KCNT) - 1 

PRT4 760 

83. C 

READ NOT.S COLUMNS OF RHS 

PRT4 790 

84. 


REA0(4MRB(I,U,I=1,NTJ,(RB(I,L»1I ,1=1 ,NTI 

PRT4 800 

S5.C 

*** MULTIPLY' NOTS COLUMN BY LAST INPUT PV ON THAT BODY 

PRT4 810 

86. 


DO 1 = 1, NT 

PRT4 820 

87. 


RBll.ll = RBII.LI * ZINNI 

PRT4 030 

fi8 • 

90 

RBlI,L*n = RB(I,L+n * ZINNI 

PRT4 B40 

89. 

ICO 

REWIND 4 

PRT4 8 50 

90. 


NSIG = NSIGA 

PRT4 860 

91 . 


1FIFLG23 .GT. GINSIG = ?.0 * NSIG - 1 

PRT4 870 

92. 


CALL AXIS 

PRT4 080 

93. 

110 

IF IFLCG4.LE.r) GO TO 19C 

PRT4 890 

94 . 


IF IFLG03.LE . Cl GO TO 1?0 

PRT4 900 

95. 


READ (41 (Am,l=l,NT 1, IBIl »,T = 1,NTI 

PRT4 910 

96. 

1?D 

L = I 

PRT4 920 

97. 


LS=D 

PRT4 930 

98. 


IF (rLCl7.NE.0l GO TO 140 

PRT4 940 

' 99 . 


DO 130 I = 1 , NT 

PRT4 950 

100. 


RBII.LI = Ain 

PRT4 960 

101. 

130 

RBII ,L+1 1 = Blit 

PRT4 970 

102. 

IMO 

IF (NNU) 18C , ler , 150 

PRT4 980 

103. 

15C 

DO 170 J = 1 , NNU 

PRT4 990 

104. 


READ (41 MS, (A(I 1 ,1=1 ,NTJ , (BIJ 1 ,1=1 ,NT I 

PRT4 1000 

105. 


IF 1 MS.EC}.C,Cfl.HS.E0.2.0R.HS.E0.41 GO TO 170 

PRT410 ID 

106. 


« = L + 2 

PRT4lD20 

107. 


.S=LS«1 

PRT4103D 

IDS. 


'ir (LS.EQ.l .AMO.rLGlT .GT.Ol L=L-2 

PRT41D40 

109. 


DO 160 I'r 1, NT 

PRT41D 50 

110. 


RBII.LI = Adi 

PRT41D60 

Ul. 

16C 

RBII.Ltl I = BUI 

PRTRID 70 

112t 

1 70 

CONTINUE 

PRT4108D 

113. 

180 

rewind 4 

PRT41090 





li'j. 

NSIC = NSIGC 


PRT'UIDC 

115. 

CALL CROSS 


PRTHl 1 1C 

116. 19D 

if 1FLC21 .LO. 01 GO TO 220 


PRTt)112D 

IIT. 

RryiMD q 


PRT41130 

IIQ. 

lF<rLG22.GT.C ) GO TO 210 


PRT41140 

119. 

L = D 


PRT411 6D 

120 .C**« 

**#ir CONTROL REACHCS THIS POINT, THERE 

IS AT LEAST 1 NNU 

PRT411 60 

121 .C««« 

♦♦♦SKIP RECORD WTTH 5IN AND COS 


PRT'll 1 7D 

122. 

READ IMI 


PRT41 ISO 

123. 

DO 2DD J I ,NNU 


PRT4 1 1 9C 

12t( . 

F.EAD(4» HS, 1 An>,I-l,NT ), » r*l»,l = l. 

NT 1 

PRT41200 

125. 

L = L •> 1 


PRT412 IQ 

126. 

DO 2DD I = 1 ,NT 


PRT41220 

\n. 

RB«I *1-1 = Atl ) 


PRT4123D 

120. 20C 

Ron,L+i 1 - Km 


PRT412MC 

129. 210 

REUIND K 


PRT4I25C 

130. 

NSIO = Nsicrc 


PRT4126Q 

131.C9*9 

♦♦♦CALL TO EXCROS FOR GENERA TEP (PCSEPl 

BOUNDARY C0NC7T10NS 

PRT4 1272 

132. 

CALL EXCROS 


PRT4128C 

1 33.220 

WR1TC(7,23H ICL2 



13'i.23 1 

FORMATIIB) 



135. 

WRITE (7 ,2 30 1 (HCUPV (] 1 1 , IT - 1 , IEL2 1 



136.230 

rORHAT<‘lE13. Q) 



137. 

RETURN 



130. C 220 

CONTINUE 


C 

139. 

END 


PHT4 13D0 



'/<F5 


SO. FRCP 




2S 

AUG 75 

i e 

1. 

SUBROUTINC PREP 




PREP 

21 

2.t 





PREP 

10 

3.C 

OVERL«V 1PAN,3,D) 





c 

M.C" 

PROGRAM PREP 





c 

5.C 

♦ PREPARE TAPES 3 AND 11 fOR USE 

BY LINK 5 

IHATSOL) 

PREP 

30 

6. 

COHNON/SPACER/UKARCAI iSdOOl 




PREP 

90 

7, 

DIMENSION TEMPISDHI, V2I5D0I 




PREP 

50 

8. 

COfiMGN HEORUdl .CASE 

,NR 

,NNU 


PREP 

60 

9. 

1 .FL003 .FLG09 

,FLG05 

,FLGOG 

,fLGD7 

PREP 

70 

10. 

2 ,FLC08 ,rlGD9 

,FLG10 

,FLGl i 

,FLGI2 

PREP 

80 

11. 

3 .FIG13 ,fLG19 

,FLGlb 

,FLG16 

,FLG17 

PREP 

90 

12. 

9 ,ELG18 ,FLGi9 

,fLG20 

♦FLG2 1 

,FLG22 

PREP 

100 

13. 

5 ,rLC23 .FLG29 

,FLG2S 

.FLG26 

,FLG27 

PREP 

110 

1^4. 

COMMON NT, NOnn, 

MN, NUNAtST, TVP 

EA<5 1, 

PREP 

1 20 

15. 

] NCR], NER2, 

NHA, NSIGA, NSIGC, 

PREP 

1 30 

16. 

2 NUNCFSJ, TVPECI6J, 

NLFni), JEC 

, NSICFC, 

PREP 

190 

17. 

3 TVPFEC<5 t.NUNEClSl 




PREP 

1 50 

18. 

DOUBLE PRECISION MEOR, CASE 




PREP 

160 

19. 

INTEGER FLG03 .FLGD9 

,FLGD5 

,FLG06 

,FL607 

PREP 

1 70 

20. 

1 .FLGOe ,rLC09 

•FiGlD 

,FLG1 1 

,FLGI2 

PREP 

180 

21. 

2 .FL013 .FLG19 

,FLG15 

,FLG1 6 

,FLG17 

PREP 

190 


3 .FLG18 .FLG19 

,FLG20 

.FLG71 

,FLG22 

PREP 

200 

23. 

9 .FLG23 .FLG29 

,FLG25 

,FLG26 

,FLG27 

PREP 

210 

29, 

REAL HN 




PREP 

220 

25. 

OINCNSJON COSS0RT5OOI, RHSJSOni 



PREP 

2 30 

26. 

01 MEN SI ON AC SCSI, R CSOO 

,5T, FFISOOT 

, T150D1 


PREP 

2 90 

27, 

DATA FOURPl/12.5663706/ 




PREP 

2 50 

28.C««» 

•**axisvm«etric flow only 


MS - D 


PREP 

260 

29.C*i»« 

***cnoss flow only 


MS = 1 


PREP 

2 70 


**7EXTRA CROSS FLOW ONLY 


MS = 2 


PREP 

280 

31 .C*** 

• •'►AXTSYMMCTRIC AND CROSS FLOW 

MS = 3 


PREP 

290 

32,C*^« 

***A715YMHETRIC AND EXTRA CROSS FLOW 

MS = 9 


PREP 

300 

33, C*** 

***CROSS AND EXTRA CROSS FLOW 

MS = 5 


PREP 

310 

39 .C*«« 

999AXISYHMETRIC, CROSS, AND EXTRA CROSS FLOW MS - 6 


PREP 

320 

35, 

IF«FLG1?.F0.D.0R. (FLG09,EQ.O. 

AND.FLG21 ,E0. 

01 1 GO TO 

ZO 

PREP 

3 30 

36. 

IF <FLgO5.E0 .01 GO TO ID 




PREP 

390 

37 

•♦♦SKIP OFF BODY COORDINATES 




PREP 

3 50 

38. 

READ) 12) 




PREP 

360 

39 , 1C 

1 NI^NT^NB 




PREP 

3 70 

90. 

REA0(12) ITEMPm ,I - l,NIt,<TEMPtI),I = 1 

,NI 1 , 


PREP 

380 

91 . 

1 mKPni.i = i,NTi, «v2m 

.1 = 1,NT) 



PREP 

3 90 

92, 

rewind 12 




PREP 

900 

93. 70 RCWINO 3 




PREP 

9 10 

49, 

IF <FLGD3) 30 , 2 3D , 30 




PREP 

920 

95, C ♦* 

♦ PREPARE AXISYMMETRTC MATRIX TAPE »3) 


PREP 

9 30 

96, 30 If IFLGl9.6T.DI GO TO 530 




PREP 

9 90 

97, 

IF C FLG22.GT.C1 GO TO 190 




PREP 

9 50 

98. 

K = C 




PREP 

9 60 

99. 

L = NT+NSIGA 




PREP 

9 70 

50. 

read <9> um,T. = l,NT>,tFFn» 

.Irl.NTJ 



PREP 

9 00 

51, 

IF (FLG16.NE.0) GO TO 50 




PREP 

9 90 

52. 

K - K + 1 




PREP 

5 00 

53. 

DO 90 I - 1, NT 




PREP 

510 

■ 59 . 90 R «r,K 1 ■= * ( I » 




PREP 

520 

55. 50 IF INNUJ 9D , 90 , 60 




PREP 

530 

56. 60 DO SO J = 1 • MNU 




PULP 

5 90 






RtAb riil' MS,(Mn ,i::l ,NT1 

PREP 

5 SO 

58, 

ir IKS.C0.1.0R.HS.CQ.2.0R.KS,E0.5> GO TO 60 

PREP 

5 60 

59 . ■ 

K = k*i 

PREP 

570 

60. 

DO 70 1 = 1, N1 

PREP 

5 80 

61. 

70 RiltK) = All) 

PRCP 

590 

62. 

eo CONTI NliC 

PREP 

6 00 

— 5 r. “ 

■ 9B' if ■ IFTgT 5 ;it’ , C ) "GO f b 1 70" 

PREP 

610 

6<t. 

nr= nna*i 

PREP 

620 

65 . 

RFAD I**) IRII,]) , lrNR,NT) 

PREP 

6 3C 

66, 

RCUINO I 

PREP 

6M0 

67. 

00 loo I : NR, NT 

PREP 

650 

68. 

100 RU,i ) = RIJ ,1)-Fni) 

PREP 

6 60 



' 'ir tFlfer'i.CO.WB) GO to 120 

PRCP 

670 

7t). 

DO 110 I = 1, NMA 

PPCP 

6 80 

Tl, 

RFAD 19) IA1J),J=1,N1) 

PRCP 

6 90 

• 72. 

AINT*!) = RII.U 

PRCP 

700 

73. 

no WRIIC 13) IAIJ),J=1,L) 

PRCP 

710 

7*1. 

120 DO 130 I = NR, NT 

PRCP 

7 20 

* 75. 

RCAO 19) |AlJ),J=l,Nt),(A(J),J=l,NT) 

PREP 

730 

76. 

AINT+l) = RIT,1 ) 

PREP 

7 9D 

77. 

130 URITE 131 (AIJl.Jrl.L) 

PREP 

7SP 


79. C 

OUTPUT FROM SOLVIT ON 

TAPE 3 

PREP 

770 

80. C TAPES I AND 2 ARE SCRATCH TAPES 


PRCP 

7 80 

ffl. 

call SOLVl t 1 WRARCA.NT ,NSlGA,i6000, 3, 16 ,2 ,3) 




82. 

REWIND 9 


PREP 

8 00 

83. 

GO to 23c 


PRC® 

8 10 

B*» 

»«AXISYMHtTRlC CLOU + GENCRATEO IRESCP) BOUNDARY 

CONOITIOr, . 

PREP 

820 


♦**NPB1 = the NUHDER or ELEMENTS ON 800V 1 


PRCP 

ft 30 

86 

♦64NP82 = THE number OF ELEHENTS ON BODY 2 


PREP 

8 60 

87. 160 

n'pbi = noi n - 1 


PREP 

850 

88. 

NPD2 N0I2) - 1 


PREP 

8 60 

89. 

NSICA = 3 


PREP 

870 

90. 

NSIGC r 1 


PREP 

8 8D 

91. 

NSIGEC : 1 


PREP 

890 

92. 

L = NT ♦ NSl GA 


PREP 

9 30 

93. C* «« 

**6l is the TOTAL WIDTH OF THE MATRIX FOR AXiSVHMETRIC FLOW INCIPRCP 

910 

96. C*** 

♦•♦RIGHT HAND SIDES 


PREP 

920 

95. 

READ (61 


PREP 

9 30 

96. 

REA0I6) I COSSORin.l - l.NPBl), IRHSMJ,! = l.NPBl 1 


PRCP 

960 

97. 

REWIND 6 


PRCP 

950 

98. 

00 150 1 = l.NPIU 


PREP 

9 60 

99. 

R ( 1 , 1 ) = 0 . D 


PREP 

970 

100. 

R(l,2) = l.C 


PREP 

9 8L 

101. 150 

R(l,3 ) :: COS S OR ( 1 1 


PPEP 

990 

102. 

NBEGIN = NPPl ♦ 1 


PRCPIDDC 

103. 

NEND = NPBl ♦ NPB2 


PREPIOIC 


00 160 1 = NBCGINtNnJD 

105. Rtl.n S l.C 

106 . RU.il = C.C 

107 . 160 Rn* 3 > = C.C 

loa. 17 C REWINP 6 

109 . ASSIGN ; 91 ‘ TO M 

110 . IF <rLlVJ,;.Nr .OJ ASSIGN 180 TO H 

111. 00 220 I - 1 , NT 

112 . GO TO H, I ler t 193 I 

113 . leo RFAD f 9 » UJ JI,J-l,NTl,(A(Jl»J = l,>M),(A<J),J=l,Nn. 


PRI.Pin20 
r'RtPIQIU 
PPCPIORO 
PRCPIO 50 
PRCP1060 
PR CP 10 70 
PRCP1C8C 
PREP109Q 
PRCPllOO 
PRCPll 10 





11<I. 


CO TO 200. 


PREP112D 

1 15. 

190 

READ <91 (Ai JI,J=1.NTI 


PREPll 30 

116. 

2ro 

00 210 J = 1, NSICA 


PREP119D 

117. 


H = NT*J 


PREP115D 

119. 

2 1C 

A<K)= R4T,Jt 


PRCP1160 

119, 

220 

WRITE <31 <A<J),J=l,LI 


PREPM7D 

120. C 

IKISVMMCTHIC FLOW INPUT TO SOCW ON 

T'a'PE 3 

PREP110D 

121. C 


OUTPUT fROH 50LVI T 

ON TAPE 3 

PREP1190 

122. C 

TAPES 1 and 2 ARE SCRATCH TAPES 


PREP1200 

123. 


CALL SOLVIT< WKARE A,NT «NSIGA.1600a;3,19 ,2 , 

31 


129. 


REWIND 9 ' 


PREP1220 

125.C 

♦ 9 

* PREPARE CROSSFLOW MATRIX TAPE 

till 

PREP1230 

126. C 

** 

* SKIP SINA ♦ READ COSi 


PREP 12 90 

127, 

2 30 

IF <FLGD9.E0.0) GO TO 9DQ 


PREP1250 

12fl. 


K = C 


PREP126D 

129. 


L = NT+NSIGC 


PREP 12 70 

130 . 


IF tFLG22,GT ,0! 60 TO 300 


PREP12BD 

131 . 


READ <91 (A(1),I=I,NT>,<A<I1,T=1,NT1 


PRL'P12 90 

132. 


IF <FLG17.NE,0» GO TO 250 


PREP1300 

133. 


K = K + 1 


PREP 13 10 

139, 


00 29 0 1 = I , NT 


PREP1320 

135. 

2 90 

R<] ,K 1 All 1 


PRCP1336 

136. 

25D 

IF INNin 29C , 290 . 260 


PREP! 390 

137. 

2 60 

DO 280 J = 1 , NNU 


PREP1350 

138. 


■RFAD <91 MS, < All I ,1 = 1 ,NT1 


PREP 13 60 

139, 


IF 1 HS.EO.C.,OR.MS,EQ.2,OP.HS.E0.9l GO TO 

28D . 

PREP1370 

190. 


K = K*1 


PRCP138D 

191. 


DO 27D 1=1, NT 


PREP139D 

192. 

2 7C 

Rll ,K 1 = tA II 1 


PREP1900 

193. 

260 

CONTINUE 


PREP19 ID 

199. 

290 

REWIND 9 


PREP1920 

195. 


GO TO 33D 


PRCP193D 

196. C**# 

♦♦♦CROSS FLOW ♦ GENERATED IRFSCPl BOUNDARY CONDITIONS 

PREP199D 

197. 

300 

00 310 1 = 1. ,NPB1 


PREP1950 

198. 

310 

R<I,1 1 = -RHSIIJ 


PREP1960 

199. 


0 0 32 0 I = NDCGIN.NENO 


PRCP1970 

150 . 

3 20 

Rllrll = O.G 


PREP 19 80 

151 . 

3 30 

ASSIGN 36D TO H 


PREP1990 

152. 


IF <FiG12.NE.D) ASSIGN 39D TO M 


PREP1500 

153. 


DO 390 I = 1 , NT 


PR.EP15 ID 

159. 


GO TO K, < 390 , 360 1 


PREP1520 

155. 

390 

READ <101 (A(J),J=1,N1I,CA(J|,J=1,NT1.<A1J1,J=1,NT) 

PREP1S30 

156. C#** 

♦♦♦FORM PHI MATRIX FROM THETA ICPOSS FLOWI MATRIX 

PREP1590 

1 57. 


DO 350 J = 1,NT 


PREP1S50 

156. 

3 50 

AIJl = Y2<1 1 ♦ Al.Jl 


PREP 1, 5 60 

159. 


CO TO 376 


PREP1S7C 

160. 

3 60 

READ <101 < A< J1,J=1,NT1 


PREPlSeO 

161. 

3 7C 

DO 360 J = 1, NSIGC 


PREP159D 

162. 


K = NT«4 


PREP1600 

16 3. 

380 

AJRI =-R(I,-Jl 


PREP161Q 

169. 

390 

WRITE nil 1 A <J» ,.1=1 ,LI 


PREP162D 

1&5.C 

CROSSFLOW INPUT TO SOLVIT ON TAPE 11 


PREP 16 30 

166.C 


OUTPUT FROh SOLVIT ON TAPE 3 


PREPI69D 

167. C 

TAPES 1 AND 2 ARE SCRATCH TAPES 


PREP1650 

16B. 


CALL SOLVIT <WK area, NT ,NSI GC , 1 6D0D , 1 3 ,19,2 

,31 


169. 


REWIND 10 


PREP16 7C 

170. 

9 CD 

CONTINUE 


PREP168P 





l'71 

9#*CX1RA CROSS rtow 

PREP1690 

172. 

REWIND 11 

PREP170C 

173. 

IF <FL(I21.C0.P .AND. FLC’2.F0.D> GO TO 790 

PRCP171C 

I7i<. 

H = 0 

PREP172C 

175. 

L r NT ♦ N5IGCC 

PREPl 730 

176. 

IF {n.G 22 . 0 T,n no to 43 a 

PRCP174D 

177.C*** 

«**CXIRA CROSS FLOW * NON-UNIFORM FLOW ONLV 

PREP17SD 

178.C*'*« 

•94SKIP RECORD WITH SINES AND COSINES 

PRLPl7ba 

179. 

READ »4I 

PREP17?' 

IBO. 

00 420 J=1,N»1U 

PREPl 0 

lei. 

RtAD«4) HS, <Am ,I=1,N7» 

PREP I 7 90 

182. 

IF IHS,LTi2.0R.MS.E0. 3> CO TO 420 

PREP18C0 

183. 

K - V>* 1 

PREPieiD 

184. 

DO 410 I ? 1,NT 

PREP 18 20 

185. 4 10 

Rir,K » = A(1 ) 

PRCP18 3C 

186. 4 2D 

CONTINUE 

PREP184C 

187. 

GO TO 460 

PRCPie 50 

ISa.CK*# 

9*9EXTRA CROSS FLOW 9 GENERATED IRESEP) BOUNUAR T CONIU TI ONS 

PRCP1B60 

189. 430 

DO 440 I = l.NPBI 

PREPISTC 

190. 440 

H<I,1> r COSSCRU) 

PPCPIS8C 

191. 

DO 450 I NPECIN.NEND 

PRLP169L 

192. 450 

Ril.l ) r 0*0 

PRCP1900 

193. 460 

REWIND 4 

PREP 19 1C 

194 ,C*«9 

IS 1920 9 SOLVE A MATRIX 

PRLP1920 

195. 

ASSIGN 47C TO M 

PPCP193C 

196.C*4« 

499H IS 1940 SOLVE POTENTIAL MATRIX 

PRCP194C 

197, 

IF <FIG12.NE ,rl >.S SIGN 4B0 TO H 

PREP1950 

198 . 

00 520 I = 1 ,NT 

PREP 19 60 

199 . 

GO TO H, r 470 . 480 1 

PRrP197D 

200. C*«* 

#4«S0LVr A MATRIX 

PPFP19BG 

201. 470 

READ (8> M,NT» 

PRCP199C 

202. 

GO TO 5DD 

PRCP2GDr 

203. 480 

READ T8) (A 1 J> ,J= 1,N7 J , tA( J1 ,J=1,N r J, < A(U) , ,NT ) 

PREP201C 

204.C*94 

*#«FORH PHI MATRIX, FROM THETA lEXTRA CROSS FLOWI MATRIX 

PREP20 2C 

205. 

00 490 J = 1 ,NT 

PREP2030 

206. 490 

ATJ) = Y2m * At J) / 2.0 

PRCP204C 

207. SCO 

00 SIC J - 1 .NSIGEC 

PREP2C50 

203. 

K = NT « J 

PREP206D 

209. 510 

AtK» :: Rtl',Jl 

PREP2D71 

210. 520 

WRITE tll) tAU),J=l,LI 

PREP2C80 

211 

*94^EXTRA CROSS FLOW INPUT TO SOLVIT ON TAPE 11 

PREP209C 

212.C*4« 

•T^-AOUTPUT from SOLVIT ON TAPE 3 

PREPRICQ 

213.C*«« 
214 . 

o««TAP£S 1 AND 2 ARE SEOATCH TAPES 
CALL SOLVIT t WK A R FA , W T.NSl GEC , 1 6GD C , 1 1 , 1 4 , 2 , 3 f 

PRCP21 10 

215. 

REWIND 8 

PRLP21 3C 

216, 

REWIND n 

PRCP21 40 

217. 

GO TO 790 

PPEP2150 

218. 5 3i: 

IFIFLG23 .GT. CJGO TO 57C 

PREP21 60 

219. 

NR = NT - NMA 

PREP21 7C 

220, 

L - NHA*1 

pRrP21flC 

221. 

READ <4» (Rt I,l» , 1 = 1 , NMA 1 

PREP21 90 

222. 

READ t41 trF(T»,I=l,NR» 

PREP22CC 

223. 

DO 540 1= 1, NR 

PPCP221C 

224. 540 

FFtl) = FFtn/FOURPi 

PREP222D 

225. 

BACKSPACE 4 

PREP223u 

226. 

WRITE t4> IFFtll ,1=1 ,NR1 

PREP2240 

227. 

REWIND 4 

PRCP225C 



-/S'? 


'226, 00 56P 1=1, MMA 

229. f?r*D (91 (A1J1,J = 1,NHM ,m JJ ,J=1,NI>> 

230. 00 550 J r. 1 , NR 

231. 55C Rn,n = Rti,n- njurriji 

232. AIL) S nil,) ) 

233. 56D WRITE 131 = 

23<i,c pRrscRiero voRTicitv input ro'n' soivrr on tape 3 

235. C OUTPUT FROM SOt.VTT ON TAPE 3 

230. C TAPLS 1 AND 2 ARE SCRATCH TAPES 

237, CALL SOLVmwKARCA.NHA.L - NHA, 16000, 3, 19,2,3) 

238, RFWINO 9 

239, CO TO 230 

290. 570 NR = NT - NHA 

291. NtlAPl : NMA ♦ 1 

292. C*** 0 CALCULATE THE NKMOCR OF RH5 

293. C 

299. LL = r 

295. no SCO Irl.NP 

296. IFI NLFm .fiT. D )C0 tO 5B0 

297. LL = IL V 2 
290. sec CONTINUE 

299. L = NHAPl + LL 

250. C 

251. C««9 ># READ SINS FOR STREAHFLOM RMS 

252, C 

253, REA019H R 1 1 , 1 ) , 1 =1 , NMA ) 

259. C 

255. C##« REaO input PRtSCRlCED VORTlClTlEs 

256. C 

257. RFADi9)l FF II ) ,1 =NMAP 1,NT ) 

25B. WRITE )6, 59d » I FFI I ) ,I rNMAPl ,NT I 

259. 590 FORMATIIMI,* THE INPUT PV ARE •/I6E20.7)) 

260. 00 600 I = NMAPl ,NT 

261. 6CC FFIl) = FFII) / 1-FOURPI) 

262. C 

263. CAC* ♦ REAP STRIP VORTEX RHS 
269, C 

265. LLD2P J = LL/2 * 1 

266. DO 610 j=2,LLD2pl 

267. 61D RFAD(9)MS,I R ( I , J ) , I = 1 ,NKA ) 

266, C 

269. c**9 * IPV IS BOnV NUMBER OF 1ST PRESCRIBED VORTICITV 000 V 

270. C 

271 . IPV = NB - FLG1<< * 1 

272. JBOD r LLD2P1 

273. NN = NMA 

279. C 

275, DO 62P KCNT = IPV,NB 

276, JBOD = JBOD ♦ 1 

277, NN = NN ♦ NOIKCNT) - 1 
276. C 

Z79.C«*« « READ COLUMN OF RHS CALCULATED BV NOIS FORMULA 

280. C 

281. RCADI'f) (Rl ICNT, JBOD I ,ICNT = 1,NMA) 

'282. C " - ■ - ■ ‘ — - 

283. C**# # MULTIPLV NOTS COLUMN BV LAST PRESCRIBED VORTICITV ON THAT BODY 
289. C 


PREP2260 
PRCP2270 
PREP2280 
PREP2290 
PREP2300 
PREP23 10 
PREP2320 
PREP233Q 
PREP23M0 

PREP236D 
PREP 2 3 70 
PREP23B0 
PREP2390 
PRCP2900 
PREP29 10 
PREP2920 
PREP 2 9 3D 
PREP2990 
PRCP29SD 
PREP296D 
PRCP29 70 
PREP29B0 
PREP299D 
PHEP250D 
PREP2510 
PREP2S20 
PREP2530 
PREP2590 
PREP2550 
PREP2560 
PRCP2S70 
PREP25B0 
PRCP2590 
PRCP2600 
PREP2610 
PREP2620 
PREP2630 
PREP2690 
PREP2650 
PREP2660 
PREP2670 
PREP2680 
PREP2690 
PREP27DD 
PREP27 ID 
PREP2720 
PREP2730 
PREP2790 
PREP2750 
PRCP2760 
PREP2770 
PREPZ760 
PRCP2790 
PRCPZaOO 
PREP2810 
PREP2820 



" D 0 T 2 O” ICNr='iVNHA' ’ ■ * *■ ' ■ 

286, 620 WUCNT.JBOOI = P<ICNT,JB0D1 • FFINNI *«-FOUnpI» 

' ieTir" ' ‘ '"■/ 

288. REWIND >l 

■*2'fi9V 'tiS *6&0 ' 1=1,NMA 

290. NCNO = NNA 

JiirotrT'atf? PI' 

292. RrADI9l I A ( J I , J= l.NN A) , t I f Jl , J^NHAPl .NT I 

* — 

299. 00 630 8CNT=1PV,NB 

"29'5, JfiOO :'jBCn * i “ ' 

296, NCCG = NCNO ♦ 1 

~"79Tr-’ ' NFtffi ='NEND ■*"NDiKCNn -I ' ' 

298, C 

" 2'99;C9 ** ♦ SUH" P«' VOR'T tA ErtMCNIS • INPUT rv AND ADD TO NO IS RHS 

300. C 


PRtP2e3D 
PREP2890 
PREP2B5C 
PRtPaaeq 
|»Rrp2fl70 
PREP2880 
r'RCP28 90 
PRCP2900 
PRr,P2910 
PREP2920 
PRCP293D 
PRCP2990 
PRCP29SD 
PRCP2960 
PRCP2970 
PRCP2980 


'301. DO 630 NCNT = NBEO,NENO PREP2990 

302. C __ PRCP30t)D 

"3TJ3,f «« “ wNen CONING or? Unit 9 ; the vortex eleHentsj rui » are still prep301o 


309, C «<■* WHILE NOTS COLUMNS COMING OFF UNIT 9 ARE RHS. THE TWO SH0UL0PREP3020 

3ffS^C *•« ADDED TO Torm 'A COMPLETE RHS, OUT THEY ARC SUBTRACTED SINCE THPRCP3030 


306. C *9* OF T*J» MUST BE CHANCED 

■ 307 ;c * 

308. 630 RIl.JBOO) = RII.JBODJ - UNCNTI • fFINCNTI 

'■'•309. C ■■■ • •"■' '■ 

310. C*'«!'? * ATTACH all RHS FOR ROW NUMBER I 

3 11. c ■ 

312. LRHS r 0 ' . 

313. DO 69fi ICNT=NMaTi.L 

319^ , LRHS = LRHS * 1 

“" 315, 69f ' A/'iCNt I = R(I;LRHS> 

316. C 

317. 650 WRITCUMM ,J=1 ,M 

318. C*** ♦ RING WING OPTION INPUT FOR SOLVIT ON TAPE 3 

319. C*** « OUTpOf FOR SOLVIT ON TAPE 3 

320. C 

321. ' CHLL S0LWIT(WKAREA,nha,L-NHA’*16QDQ, 3,1 ,2,31 

322. REWIND 9 

323. GO TO 230 

329. 660 WRITE (6, 670 I 

325. 670 F0RMATI61H NOT ENOUGH SPACE RESERVED TN SOLVIT FOR 

326. IICITVI 

’■'■ 327 . CO TO 78C 

328. 680 WR1TEI6, 69G } 

329. 69C F0RMATI71H NOT EDIUCH SPACE RESERVED IN SOLVIT FOR 

330. lENTlAL VF.L0C7TVJ 

331. GO TO 78D 

332. 700 WRITE <6, 710 1 

333. 710 FORMATISSH NOT ENOUGH SPACE RESERVED IN SOLVIT FOR 

339. lOVt 

335 . GO TO 780 

336. 720 WRITE(6, 73C » 

337. 730 FORMAKSIH NOT ENOUGH SPACE RESERVED IN SOLVIT FOR 

338. CO 10 TOO 

33‘9. 790 WRITE 16, 75U » 

390. 750 FORMAT I57H NOT ENOUGH SPACE RESERVED IN SOLVIT FOR 

541. 10W> 


PREP3D40 
PREP305C 
PRCP3060 
PRrP3070 
PREP3D0O 
. . PREP309C 

PREP3100 
PREP311Q 
PRCP3120 
PRF.P3130 
PRCP3190 
PREP 3 150 
PREP316D 
PREP31 70 
PREP31 80 
PRCP31 9D 
PREP 3200 
PRCP32 10 
PRCP3220 
PRESCRIBED V0RTPRCP323D 
PRCP3290 
. PREP3250 

PRCP3260 
PRESCRIBED TANGPREP32 7D 
PREP328D 
PREP329C 
PRCP330CI 
AXISYMMETRIC FLPREP331D 
PREP3320 
PRCP333C 
PREP3390 
CROSS FLOW! PREP3350 

PRCP3360 
PREP3370 
EXTRA CROSS FLPREP33B0 
PREP3390 



3<<2. 


CO TO 760- 

H- -■ k ...... 

PREP 3 4 DO 

343. 

760 

WRITE 16, 77D i 


PREP34 10 

344 . 

77C 

fORMATIBlH NOT 

CNOUGH Sr*AC[l RESFRVtO IN SOllVlT fi)P RING yiNG » 

PREP3420 

345. 

7BD 

STOP 


PREP343D 

346. 

790 

RETURN 

- * .. . . 

I 

347. C 

79D 

CONTINUE 


C 

340. 


END 

. ■ V . . .a. 4 . • « • 

>R CP 34 40 



-/ 90 ‘ 


J. SUBROUTINC PUNCHCfR»JrLOCyCASEI 

2, ' dlHCNSION R i'tOOl 

3. CAU PUNCH 3 < Rt Jy LOC^ NSEO, D, CASE, PROD> 

*t'. " NSEO = N5C0 ♦ I 

5. RETURN 

'6'. ‘ END 


25 AUG 75 'i8 ; 

PNCH no 
PNCH 12Ci 










2S AUG 75 

1 8’ 

1 . 


SUBROIITINC PUNCHV IftP, J, L, tOC, 

CASE! 

PNCH 

20 

* ' ‘2.C 





PNCH 

10 

3. 


UIHCNSION «Pt5U0,S).Tt5QQI 



PNCH 

40 

H • 


0 At A PROG / <<Ht:0OA >,‘'NSE‘6 / X 

/ 


PNCH 

30 

5. 


DO 20 X v; 1« L 



PNCH 

50 

" 'i,' 


do' fO K s i . J 



PNCH 

60 

7. 

10 

T«M = APXK, a 



PNCH 

70 

"B. 

20 

CALL PURCH 3 IT, J, LOC, NSPO, 

0, 

CASE, PROCl 

PNCH 

eo 

9. 

30 

NiiCO : NSEO ♦ 1 



PNCH 

130 

10. 


return ' 



PNCH 

140 

a. 


END 



PNCH 

ISO 





’TOTFChJ'"-^ ^ 

1. __ ^SUBIROUITNC PUNCH 7 t V*LUE^ H, tO^, NS^Q, K1264, NASCf PROO PNH3 

Z.C ~ “ ^ ■ ? PNH3 

3. DOUBLE PRECISION A* B, C, PH.T PNH3 

M. ' “ boUBLC >RECTs 10N cH ■ ~ PNH3 

5. OIHCNSlON VALUCfll. AU)>. Bli|), PHTtlSI, Ct7l PNH3 

6. DlHETjSiOlTCMfUfcr - - - “ ' PNH3 

7. DATA CHT(n/5HlH , / . A( U/6HF 12 .9 . /.A(2 ) /6Hri 2 . B , / . A ni/6HF 12 . 7 ,/ , 

8. A?AT76HF12;6;/,A»5l/6Hfl2liTt/fAI6i/f>Hri2.A,'/,AOl/6HFl'2.3,/, 

9. 2 A<BI/6HF12.2«/»At91/6HF12.1,7tAfl0l/bHF12.Q«/.AinWt)f46X.A6f/t 
TCr ' T bH ) /3H I 1V/VB(2'» /3H1 2 ^^/VBnii /3Hi 3 ,'/,bYa »73HI9 ♦ /»Cii » /6M3HOD0 ,/, 

II. 5 CI2l/5H2HOO,/,r«3»/9HlMO,/,CI9)/JH,/,CI5l/3H'X,/.CI6»/9HlH«,/, . 

j 27 cTrV'AR'l 2r,'7Vb7‘5 herr oR7Vni f f i » nM i / ,'FMT’f8 \ mh 1 1 % \j ;‘F mt i id i /Yh i x , / 


1’3. 7 ,FNmit/6HA6,IX./,FniU2l/3KAA./*FHTI15t/lH)/ 

■FUNCf ldM SIATE'hEnT to S7'2E ‘l5C* 'aND *NSC0* PNH3 

, 15. 1512EtIKt = NODtlABSUXI. 1D0007 PNH3 

““■■U. ■ ■ NSEO = is'ut' INSEQ J PNH3 

_17. LOC = ISrZEiLOCj^ PNH3 

is '""'start rbRMi’NG"''tHE'' format'. ■' * PNH3 

19. FMT19I = CISI PNH3 

— Yff, ' = 1 ' PNH3 

21. M = N PNH3 

' "‘22. NF = 9 PNH3 

23. C START OF LOOP PNH3 

' — 29.' id IF T H - 9 ) 2o' ;""‘)a ; PNH3 

25. 2U If < M .LE. 0 > RFTURN PNH3 

• '27,. ■■ FHT19I = C(K12£,‘9*5t PNH3 

27, NT = H ♦ 1 ^ PNH3 

"2'6,C ‘ IF THE ENTIRE CAPO IS NOT USED, THIS WILL SET UP THE (,'LANK FIELDS. PNH3 

29, DO 3D 1 = NT, 9 PNH3 

'■'■ 30 ; ‘ID TMU1*1> ■= CT 7» PNH3 

31. NF = H PNH3 

l2.C determine .THE SIZE OF THE NUMBERS. PNH3 

33. 90 00 80 NT = 1 , NF PNH3 

39. VINTi = ABSIVALUE (KI i ♦ 5,0E-Ib PNH3 

35, DO 50 1 = I, 10 PNH3 

" ‘ 3S. ' VTNTI = WfNrr/ IClio ' ' ■ PNH3 

37, IF i V«NT» ,LT. 1.0 I GO TO 60 PNH3 

'38. ■ 50' fONTlNUE ' "" ' 

39, C IF CONTROL REACHES THIS POINT, THE NUMBER EXCEEDED ICFID. PNH3 

■ ' RO. ' V (NT> = D PNH3 

91, 1=11' PNH3 

■ ’ ■9'2." GO Y6 Yfl ■ ■■■ ' ■ • • ■ 

93. 6D WTNT) = VALUnxl PNH3 

99. ’'70 K = K 1 PNH3 

95. 80 FMT(NT«ll = ATlI PNH3 

96. C ‘ DETERMINE THE SIZE OF •LOc*. PNH3 

97. 90 L = LOC PNH3 

'98'. DO Tod ' i = 1 , “9 pnh3 

99. L = L / 10 PNH3 

■ 50. IF I L .EO. 0 1 GO TO 110 ' PNH3 

51. ICO CONTINUE 

6Z.C IF control REACHES THIS POINT, ’LOC* EXCEEDED lODDD. PNH3 

53. LOC = ISIZECLOCl PNH3 

■ " ' 59 C'b TO 90 ' PNH3 

55, C SET OP THE LOCATION' FIELD, PNH3 

56, 110 FMT(6J = Cill PNH3 


18 

20 

ID 

30 

90 

5D 

60 


17D 
160 
190 
200 
210 
2 20 
2 30 
290 
250 
2 60 

2 70 
280 
290 

3 00 
3 10 
320 
3 30 
390 
350 
360 
370 
3 80 
390 
900 

9 10 
920 
9 30 
990 
9 50 
9 60 
9 70 
980 
9 90 
500 
5 10 
520 

S 30 
590 
5 50 
560 
570 






“'sr. “ — — " — : xws'sao 

58. C OETERHIMC THE SIZE Of •NSEO*. - , PNH3 590 

‘S9i "ij?0 L i W5E0 * "■ ' ’ " ' PNH3 600 

60. 00 130 t = If 4 PNH3 610 

■61. ■L*fX'7'Ttf * PNH3' 620 

62. ir I L «E0. 0 I GO TO 140 PNH3 630 

”63, '■ nO'-CoWTTNUr • 


64. C ir CONTROL REACHES THIS POINT, *NSCO* EXCEEDED lODDO . PNM3 640 

65. ' - ’WSEO = ISlZEiMSE'Ol " 'FNM3 660 

66. CO TO 120 • PNH3 660 

67. C SET UP TNT SEQUENCE ritlo; ■- ” PNh3670 

68. 140 FNTI13I - cm PNH3 680 

'69/ : THTUVr-i" urn ■ * ‘ ' PN'H3 696' 

70. C UNITE TH(i CARO INAGE. PNH3 700 

71.200 roRMikT«4ET3.ei ■* 

72. WRITE 17, 2001 « Vm, 1=1, NF » PNH3 710 

73. C**i ♦•♦CHANGE VARIABLE FORMAT FOR PRINTER SO TMAf’ THE CARRIAGE C0NTK0PNH3 720 

74. ♦♦♦CHARACTER IS A BLANK PHH3 730 

75. ' DC 15C"TC>11 i 2,16' ■- 

76. ISO CM7I1CMTI = FMT( ICMT - 1 1 PNH3 750 

77. WRITE «6, 3001 « VTTi , 1=1, NFi " "* 

70. 300 fORMATIlH ,4E13.BI 

79. NSEO = NSCO ♦ 1 PNM3 700 

00. LOC = LOC + 4 PNH3 790 

'81. M = M - 4 "■ " ■ PNH3 BOD 

82. GO TO ID PNH3 BID 

83, END ' ” PNH3 820 






■ -■■ ■■■■ 







Z5 AUG 75 

18 

1 . 

SUBROUTIKr OCIOHEB.OH .0) 



2D 

i,c 

* 


oc 

10 

3,C 

THIS SUBROUTTNt CALCULMES THE LEGENPRE EUNCTIONS 

OF THE SECOND 

KINO OC 

30 

H.C 

AND HALF ORDER. THE ARGUMENTS ARE* 

WILL or FOUND 

OC 

40 

S*C 

ONEG ARGUMENT FOR WHICH LEGENDRE FUNCTTONS 

UC 

AO 

c> * c 

OM VALUE OF LEGENDRE FUNCTION OF MINUS ONE HALF ORDER 

OC 

GD 

7.C 

0 VALUE OF LEGENDRE FUNCTION OF PLUS ONE 

HALF ORDER 

OC 

70 

8. 

OOUDLE PRECISION ONEGO . ARG . A ,F ,E |CM0« 00 


OC 

80 

9. 

OMEGD=OMEG 


oc 

90 

lb. 

ARG=2.QF<0MEG0«1 .ni 


OC 

i 00 

11. 

A=l. 0-ARC 


oc 

110 

l2. 



oc 

120 

13. 

CALL ELLC (A,F.E,21 


oc 

1 30 

i4. 

0MD=F9ARG9*0,S ■ 


oc 

140 

15. 

0D=-E*I2.DH0MEGD*1.3 H**3.S«0MEDD*0M0 


oc 

150 

16. 

QM=OHD 


oc 

160 

17. 

OrOD 


oc 

170 


ffrtURN 


oc 

180 

19. 

END 


oc 

190 




COHPTOITTBLOCirR/ N RAK C S, RM* HC ( 2 Q , 9 1 • R AK C A < Z 0 I , R UNT I X < 2 01 
1 RllNITVI2D»,f?nSI?0>,NRP7S« 2D I , COST H 1 2D » , IRAKF .NOFf, X IRC 20 » , 
.X2RC2Cir7V2RC 2DT 
OTKCNSJON VXISOO.B) ,VV(50D.5I »F(201 ),UXC201 I ,UY(201) 


. Y,MDOT 
DATA TWOPI/6. 2831854/ 


NRIIL 16, 50 I 
DO MD 1S1C=1,NSTG 

a-s-RTrFT-" 

LOOP FOR CACH RAKP ... 

■nfA«C,=rtNRA«El. 

SETUP THE VELOCITY VECTORS FOR THIS RAKE ... 


CAKE) ♦ 1 

00 SO 1=2, HPl 

J = J ♦ 1 ^ ^ ^ ~ “ 

UXU) = VXCJ.ISTG) 


IMIM3MI m i ri.i j*i i 


RAKE fI.E. at TH 


LAST INTLKV, 

UXd) = UXC2) 4 (IIXC2) ' 


UTIl) = UYCZI ♦ (UYI2) 
NPTS = NRPTSC IRAkri V 2 


UXC 3) I 


nyyyyy 


UVINPTS) = UVCNPTS-n ♦ CUVCNPTS-H - UTINPTS-2)I 


NOW SFTUP THE FUNCTION IV DOT Nl*(DA) ... 


RKFL 60 
RKFL 70 
RKFL 00 
RKFL 90 


RKFL 100 
RKFL no 


RKFL 120 
RKFL 130 
RKFL 140 
RKFL 150 
RKFL 160 
RKFL 170 


RKFL 180 
RKFL 190 
RKFL 200 
RKFL 210 


RKFL 220 
RKFL 2 30 


RKFL 260 
RKFL 270 


RKFL 2 90 
RKFL 290 


KFL 300 
RKFL 310 


20 

RKFL 330 


37 

— ^“TS' 
39 

«ro 

41 



Y1 = YIR(IRAKE) 

XUS’-r-EirSTiTTnTTCKXl' 

S = O.D 

■DTTTCrmTUPTS — 

Fill = THOPI*((UXa)*NX • UYm*NYl*(Yl + s*cosn 


“TTirTTrnP ER F 0 Rrf"S7 RPTOH ‘TCTJIX’r flTT GRATnnJ’'TTr 
45. call SIMSONIF, NPTS, os, HOOT) 

-iTff;c — 

47. VAVG = HOOT / RAKFAIIRAKE) 


60 

RKFL 370 
RKFL 380 
RKFL 390 
RKFL 400 
RKFL 410 


RKFl 420 
RKFL 430 
RKFL 4 4:. 
RKFL 4 SO 
RKFL TST 
RKFL 470 


r^" 

i— 1 mil ■ ■ lit a » 



• l;TT5riilttWiTiaBi 


IKEI.IRNAMEITRAKE.T 1,1 =1,91 ,RA 

KEAURAKE » ,VAVG, 

HOOT 

RKFL 490 

l.C 

'•"3ctt:onttnue" ■" • " 



"WFiTTiJfi 
1FL SID 


LUM *l:A 1 14BI M 




•KFL 5 20 
RKFL 530 


RKFL 540 
RKFL 550 
RKFL 560 






Mu N 


50 F0RHAT(IH1,38X,M U ! 0 R A T !f C R A, K E CALCULATIO RKfL 57D 
I»il S',//1H0.1DU, » TOTAL', «tX. *A VEBAGE * »6X. *T0 T AL » . / « AKI.FLOW RAKE'RKfL SfiO 


•AREA TTELOCITY FLUX RATE»,/iH ) 

60 F0RHATI3X,I3,T8.ZX.(lFU.5,2X.8 ARjA3,F12.(|,Fil .b,FlK5l 


70 FORHATItHOt 
EMD 


RXFL 610 
RKFL 620 


RKFL 630 
RKFL 6RD 





SD«S l^blO 

1 9 

SUBROUTINE SI HSON IV,N ,0K *AREA 1 

25 Aub n 

SINS 

T?" 

20 

2.C 


SINS 

10 

3.C 


SINS 

SO 

' V.C 

This R'OUTINE INIECRAtcS t OVER IN-11 INTERVALS OF EQUAL 

LENGTH. DX. SINS 

NO 

s.c 

YIELDING THE ENCLOSED AREA. IN NUST BE AN ODD INTEGER. 1 

SINS 

50 

6 »C 


SINS 

60 

7. 

OINENSION r 11 1 

SINS 

70 

B.t 


SINS 

80 

9. 

SUN = nil ♦ N.D^YIN-II ♦ VINI 

SINS 

90 



SINS 

100 

11. 

NN2 = N - 2 

SINS 

110 

12. 

D'0""ID"i:Z,NH2,Z ; 

nw 

120 

13. 

ID SUN = SUN ♦ 4.0*VI1) ♦ 2.09VI1*1I 

SINS 

1 30 

14.C 


SINS 

INO 


15. 

TSV 


2D 


ARCA = 


<AQS<DXI/3.0t • SUN 


SINS ISO 


17. 


END 


SINS 

SINS 


16 Q 

170 



~T7C 

3.C 

s.c ** 

TTt — wr 

7.C ♦♦ 

"5TC i*‘ 

y.c 


&UBROUTINC SOLCOHt DV« 


rCNT I 


IHr5'^OTir0UTrjt3flCVf?“0T(O^“Tin''67? T)T?‘ wma 
IT IS SCPARMEO SO TMM IF PROCRAW IS EVER INLARGEO* THIS 
IS MhcRt iHE RAIsn<“5irinniO»i for THC tbMBrN*nON P«Rr'of“ 

THE PROGRAM WILL GO. THE MATRICES HAVE BEEN FORMED G'EMFRAILT 

■"TrTDffR W, 


DIMENSION 0VI?t^ AI2.2I 
IFirCNI .EO* 2t GO TO 10 

-•DVnT“5'T5TrnT"/**AM;TTI 

RFTWRN 

rovn r *£* idvm > ■=~rAir ;ri 7 A ( ?, s> ‘r ^Wia > * r 7 

1 f A|l,n - An,?)*A(2,lt / A(2t2l 1 

“wiTr-^rTivrn • ^(rrrrr* evf rr r7“T«T;rr"~™" ' 

return 


AUG 75 IB - 
5LCM 20 
SLCM 10 
SLCM 3D 
SLCM 40 
5LCH 50 
SLCM GO 
SLCM 70 
SLCM’ BC 
SLCM 90 
SLCM 100 
SLCM 110 
SUCH 120 
SLCM 130 
SLCM 140 


SLCM 170 
SLCM 1 eo 



~/99 


SO.SOLV 


■■■■ ' 



25 

AUG 75 

1 8 

1. 


SUBROUIlNt SOLVIT <9. NO, HO. HD. 

Nl, MM. 

NO, NM) 


Sl.VT 

20 . 

2.C 






sLvt 

ID 

3.C 






SLVT 

3D 

4.C 






SLVT 

NO 

S.C 


**M **•/ ««*•«** «**»« 

9 

999/ 

■ 9 

SLVT 

50 

STT" 


• • * /• • 9 

9 

9 /9 

»«**** 

SLVT 

60 ' 

7.C 


«**9 9«*4i • 7 « • 999 

9 

9/9 99 *« 

9 * 

SLVT 

TO 

B.C 


99/9 9 9 

9 

*/ 9 


SLVT 

BG 

9,C 


9 /99« 9 9 

9999* 

/99* 

9 « 

SLVT 

vn 

10. c 


* 




SLVT 

ibfl 

11. c 


DIRECT MATRIX 

SOL 

U T I 0 N 


SLVT 

I ID 







SLVT 

12Q 

13. C 


WR11TFN BY J. L, HESS 9 PROGRAMMED 

BY T. ;i 

. RIDDELL 


SLVT 

1 30 

■ — f«rrc' 






SLVT 

1 <i'o 

IB. 


DIMENSION « < KD 1 




SLVT 

1 50 

IB.C 






SLVT 

iiso 

17. 


LOGICAL LAST 




SLVT 

170 

16 t C 






SLVT 

180 

19. 


CALL TlHEVfAAll 




SLVT 

190 



N = NO 




SLVT 

2 00 

21. 


H = HD 




SLVT 

210 

22. 


MORE - KD 




SLVT 

220 

23. 


NPH = N * H 




SLVT 

2 30 

5**. 


IF IHAXC(3 9 NPH, H 9 Nl .GT. KORE ) GO TO 

3D0 


SLVT 

280 

25. 


HT = MM 




SLVT 

2 50 

26. 


REWIND HT 




SLVT 

260 

27. 


NIN - N1 




SLVT 

27D 

28. 


REWIND NIN 




SLVT 

28S 

29. 


NOUT = NO 




SLVT 

290 







SLVT 

300 

31. 


HPl = M * 1 




SLVT 

310 

S2; 


NN = N 




SLVT 

320 

33. 


NCI = NPH 




SLVT 

330 

Tt.tT 






SLVT 

3R0 . 

3S.C 

- - 

calculate the MAXIMUM NO. OF ROWS, 

»K» 



SLVT 

3 50 

i?Tir 






SLVT 

3 60 

37. 

1C 

K = IKORC - MCLl / NCL 




SLVT 

370 

~ "31. 






SLVT 

3 80 

39. C 

• - 

TEST TO SEE IF IMF REST OF TMF MATRIX MILL 

FIT IN CORE 


SLVT 

3 90 

90.C 






SLVT 

ROD 

91. 


LAST = K .GF. NN 




SLVT 

410 



TT.IL AST I K - NN 




SLVT 

4 20 

93. C 






SLVT 

4 30 

997^ 

“ - 

"RFaD *K» rows of the AUGMENTED *A* 

MATRIX 



SLVT 

4 40 

95. C 






SLVT 

4 50 

96. 


"RT = D 




SLVT 

4 60 

97. 


DO 2D 18 = 1, K 




SLVT 

4 70 

95. 


■“n5'"=' HT TT 




SLVT 

480 

99. 


NT = NT ♦ NEL 




SLVT 

4 90 


io 

UtAO” TNlNt lAllO), TO = NS, NT! 




SLVT 

5 00 

51. C 






SLVT 

SIO 

52. C 

- - 

CHECK TO SEE TF ME WERE UNLUCKY ENOUGH TO 

END UP KITH 1 

ONLY ONE 

ROWSLVT 

520 

S3.C 






SLVT 

530 

5^ « 


IF IK ,Eo. i» GO TO an 




SLVT 

540 

55. C 






SLVT 

550 

56 • C 

_ 

•K* IS GREATER THAN • 1* 50 ME CAN 

START THE T RI ANDUL ARl 2 ATI ON 

SLVT 

5 60 






57. C 


SLVT 57D 

SR. 

NCLPl = NIL ♦ 1 

SLVT 58D 

b9 • 

(rs-~s“*=-NEr — — 

” SLVT 590 

60. 

NCLP2 = NELPl ♦ 1 

SLVT 600 

Cil *C 


SLVT 610 

62. C 

- - FORM TME MR6PC20IDAL • «RR*7 «8I 

SLVT 62C 

ETTT" 


SLVT 6J0 

66. 

00 30 IB - 2. K 

SLVT 66C 

ffr; 

NP - NCLP2 - IB 

SLVT 650 

66. 

MS = NS « NCLPl 

SLVT 66C 

6T. 

HT' ="NS' 

SLVT 670 

68. 

00 30 10 = m. X 

SLVT 660 

bV* 

KT “FIT'V NEL 

■ •= SLVT 690 

■ 

MN = Nl 

SLVT 700 

71. 

Nfl = 'NS 

SLVT 710 

72. 

«(NTI = <-AINT)l 7 «(NS> 

SLVT 720 

73 • 

inri'D~RF~=~rrw 

SLVT 730 

76. 

MN = HN 1 1 

SLVT 760 

7i> • 

RFT~R15“i"T 

SLVT 750 

76. 

30 «IHN) = A(MN» * A(NTt * AIN8) 

SLVT 760 

77« 

rr~m ft r‘ft'o~Tff"S'(T~' 

SLVT 77C 

78. C 


SLVT 760 

79*C 

- URnC THC ’TRAPEZOIDAL* MATRIX ON TAPE 

SLVT 790 

eo.c 


SLVT BOO 

fll. 

“ KIT'"- D 

SLVT Bit 

82. 

NP - NEL 

SLVI 82D 


“ ’“ffS 

SLVT 6 3t: 

86. 

DO 60 10 = 1, ti 

SLVT 860 


Nr"=~ws ♦ ‘iTE'Dn ' 

SLVT 850 

86. 

NT = Nl * NEL 

SLVT 860 


WKIIL IRII iAfU. tiff 

SLVT arc' 

88. 

60 NP = NP - 1 

SLVt 880 

By: ■ 

' — NF”S~WP “*H 

“SCVl a '90 

70. 

NS = MORE - NEL ♦ 1 

SLVT 9DC 

9TTC~ 


'TLVY"9iC 

92. C 

READ ANOTHER ROW 

SLVT 920 

TJTTT 


SLVT 930 

96. 

DO 70 10 - 1, NP 

SLVT 960 

. . „ — 

V!> « 

RErAa'"rNTN) TATIB 1 . TtT"=" ■NS'r'AD R E >‘" ' 


96. C 


SLVT 960 

97. C 

— MODIFY, This’ row by the mrapetoidal* array 

SLVT 970 

98. C 


SLVT 980 

Tr. " 

. 

sLv't 9 90 

100. 

MN = NS 

SLVTIODC 

101* 

DO 60 18 = 1 , K 

SLVTIO ID 

102. 

NB = NT 

SLVT1020 

1'dt; — 

■“TTF 1 ‘ ■■ "" "" “ — ' " ' 

SLVT1D30 

106. 

AtHNI = <-A<HN>) / AINTI 

SLVT106D 

1 Ob • 

UObUNN-Nf'.KORE 

- “"SLvtnso 

106. 

NB = NB ♦ 1 

SLVT106D 

“lOTV*’- 

•■'50 ITWr-i:' ’AlWi ♦‘ATHNT •" 'aT'nB'J 

' *" ■ SLVT1070 

108. 

MN = Nf 

SLVTlOno 

■“ro'9 -;; — eo’tii = ^^r v^i^ccfni ■“ ~ 

‘ ■ ■"‘'sLvr'lci90 

110. c 


SLVTllOD 

“nrrr 

*■ ^^njiRlTE~tHE MODIFIED BOW’ON rAPE 

SLVTll ID 

112. C 


SLVTn2C 


70 WRTfTETfTolirii (ATNTT, NT = MS, tlOR'E > 

SLVril3D. 




1 

Cl 

1 





11*1. 

ROUIND NOUT 

SLVTllAO 

115. 

RtUfND NIN 

■■■■liHKnrxnieni 

116. C 


SLVT1160 

117. C 

- - SWITCH THE T»PES 

SLVTI170 

tlB.C 


SLVTllBD 

119. 

NT r NIN 

SLVT1190 

izo. 

N1N = NOUT 

5LVT120D 

IZl. 

NOUT = NT 

SLVT1210 

122. C 


SLVT1220 

123. C 

- “ RE-C»LCUL»TE ROW LENGTH 6MD LOOP BACK 

SLVT1230 

“T^t.C 


SLVT124D 

126. 

NEL = NEL - K 

SLini2 50 

"126i 

^|g - ^ 

SLVT1260 

127. 

CO TO 10 

SLVT127D 

iza.c 


SLVT12SG 

129. C 

- - REWINO ALL TAPES 

5LVT1290 

■fmaa 


SLVT13DD 

131. 

83 REWIND NT 

SLVT1310 

132. 

REWIND NIN 

SLVT1320 

133. 

REWIND NOUT 

SLVT133D 

TJiiTc" 


SLVT13N0 

135. C 

CONDENSE THE MATRIX 

SLWTI35D 

1)6.0 


SLVT1360 

137. 

NN = NEL 

SLVT1370 

138. 

NL - NtL ♦ 1 ^ ^ 

SLVT136Q 

139. 

IF tK .EQ. 11 CO TO ICO 

SLVT139D 


■pro. Nr*r~i ~ su^timod 

l*H. = NfL SLVTliHO 


192. 


DO 93 IB = 2, K 



SLVT1920 

193. 


NS = NS ♦ NELPl 



SLVT193D 

-J-IPJ-;— 


iBT"rTfT‘ ."wti; ' 



SLVT1990 

195. . 


00 90 10 = NS, NT 



SLVT19SD 

196. 


rtNLI = 1(101 



5LVT1960 

197. 

9D 

NL - NL ♦ 1 



SLVT1970 

'Tn'b:' 

100 in = KORE - K ♦ M • 1 



SLVT198a 

199. C 





SLVT199D 


- - 

There, now he can start the sack-solution 



SLVTtSOD 

151. C 

* « 

NOTE.. THE FIRST AVAILABLE LOCATION FOR THE 

SOLUTIONS IS A(NU 

SLVTlSlD 

■"TS^Tc- 





SLVU520 

153. 


NREM = N 



SLVT1S30 

T5¥7” 


nCI - NI>H 



SLVT1590 

155. 


LAST r K .EO. N 



SLVT1550 

156. 


NPASS r □ 



SLVT1560 

157. C 





SLVT157D 

ITS . C’ 


S'OIVE’ 'FOR THE ANSWERS CORRESPONDING TO *K» 

ROUS 


SLVT156D 

159. C 





SLVT1590 

T6D. 

“To’ 

khT = K - 1 



SLVT1600 

161. 


KPl : K « 1 



SLVT1610 

“T6?. 


N5“=TrL “KPl 



SLVT162D 

163. 


NPASS = NPASS ♦ 1 



SLVT1630 

i'64 . ■ 


D?t 190 MN = 1 , M 



SLVT169D 

165. 


NF NS ♦ HN 



SLVT1650 

■"166; " 


A(NFI = A(NFt / AtNSI 



SLVT166D 

167. 


NT = NS 



SLVY167D 

168. 


IF (KMl .EO, C» GO TO 19C 



SLVTT680 

169. 


DO 130 IB = 1, KMl 



SLVT169D 

17D. 


NF = NF - IB - M 



5LVT1700 




“nTT 

172. 

17<4^ 

nrrsT 

17b, 


M = NT - MPl - in 
SUM =0.0 

W-f"N? 

N2 = HPt ♦ IB 

bOTSO'ToT-TTTD 


TTTT" 

178. 

179; 

IfiO. 

nrrrr 
162. c 
■mrir 


NN = NT ♦ 10 
NP s nP ♦ NS -lo 
120 SUM = SUM * A INN I * A(NPI ' 

T50 TiRn“= 'Mwri' -'■"SDflT'v 'mrr 

190 CONTINUr ' 


- Move THL SOLUTIONS TO CONTIGUOUS lOCATlONS STARTING AT AINIT 


189. 

TB5.“ 

166. 

’TffTV” 

186. 

"1WT~ 

190. 
T9I.-C 

192. C 
"T«.'C 
199. 
"T7?T“ 
i?i. 
*T97r 
198. 
“T99TT 


N1 = MORE ♦ 1 

T)TriCO-Nfi = '1, M - - 

DO ISO KN = 1 . M 

Nr = 711"- T 

N1 = N1 - I 

“Tscr TfR 1 r "irsrr" ■ ■ " 

160 NL = NL_- NN^ _ 

— _«R1TE THE SOLUTIONS ON TAPE 
WRITE (NINI K 

U'S-'S-'N f f • — - 

DO 17C MN = 1 , M 
TJT *=■ NS'T'HN 


170 WRITE ( NIN > TAI I OI, 10 r WTu 
200. C TEST IF THIS IS THE LAST *<tiSS 


SLVT1715 

SL9T172D 

SLVT173D 

5LVT1790 

sLvmso 

SLWT1760 
SLVT1770 
SLvmao 
SLVT1790 
SLWTieoC 
SLWTieiD 
SLVTlfl2D 
SLVT183C 
SL9T 169C 
SLWT10SD 
SLVT1063 
SLVT167C 
SLVTieaG 
SLVT109D 
SLVT19C': 
SLVT191C 
SLVT192C 
SLVT193C 
SLVT199J 
SLWn9GC 
SLWT196C 
SLVT1970 
SLVT190O 
■SLVT199C 
SLVT20CC 


"ztn'.'r" 



■"SLllT2diO 

202, 


IF ILA5T) DO TO 290 

SLVT2021? 

“203TC" 



5(_y,-23 32 

204. C 

“ “ 

WE MUST NOW MODIFY THE TRIANGULAR MATRIX TO REFLECT 

THE EFFECT OF SLVT2D40 

"205'.C 


' ihl' sol'u n UN'S ' ub i ki ntd’ 50 "f ar rro~7T) ■ 

■ '■■SLvTdasc 

206. C 

* « 

NOTE. .LOCATIONS A1U TO AINl-ll ARE NOW FREE TO USE 

SUVT2360 

"7D/.C 



' ' " SLVT207C 

208. C 

- “ 

CALCULATE THE NEXT VALUES OF *NFL» AND *NREM* 

SLVT20BC 

' 2U9.L' 



"* '* ■ ~ ’ SLVT2090 

210. 


NELOLD = NEL 

SLVT21D0 

"nT; 


mold = K' " 

' “ SLVT2ilCi 

212. 


NEL = NEL - K 

SLVT2120 

1 i • 


NOEH“ = "MRni’- 

SLVT21 30 

214. C 



SLWT214CI 

"TTSTir 

“ “ 

Now apply the INcpeoIblf foRNula for the new ‘T* 

SLVT215D 

216. C 



’ SLVT2160 

"7 it; 


K = I -4 ♦ M - 11 7T ■* TTTnsORTTD.P'S ♦ FL‘>»T|(4 9 M" 

♦ 2") ♦ M" ♦' SLVT217D 

218. 


1 2 • TKORE - NELOLOl » l> 

SLVT2IBD 

'"ZT9T"" 


fJROU ; 7TRLH - K“~l 

~ ' snrffilio 

220. 


IF (K ,LT. NREHl 00 TO IBO 

SI VT 22 00 

TZTT 


L. A&T ~ « T^Uf * « 

5LVT2210 

'2iz. 


NROW =1 

5LVT2220 

~7TS, 


“K = "NTTEfl ~ ■■ ' “ "■■■ ’ 

" " SLVT223R 

224. 

180 

NS = 1 

SLVT224D 

22$; 


*TJ7 r NELOLD ♦ 1 ^ 

SLVT2250 

226. C 



SLVT226Q 

"ZZT'.'C' 

r-" 

irm 'TN' 'ThT R"(JTiS "TT'SE’^MOt) I FlTtf* 

SLWT227: 





^ IQ|||||||M 

Ru i L 

K i 1 ■■mm 

H \ 

DC 290 18 = 1. NRTM 
NT S NT - 1 

ir no .(.r. nroui go to i90 



SLVT22B0 
_jyjTJL 2 ZiQ. 
SLVT23DD 
SLWrZSlD 

232. 

NS S MS ♦ 

NN 


SLVT2320 

2 

NT = NT « 

NN 


SLVT2330 

ffS*} J 9C 

HE80 ( NT 

T NN, 1 MIDI, TO = NS, NTI 


SLVT2390 

235, 

NP S N1 - 

1 


SLWT23SD 

236, 

Nr = NT - 

N ■> KHl 


SL9T2360 

237. 

KN r NN “ 

MOLD 


5LVT237D 

2 36. 

DO 21C MN 

= 1 ,* N 


SLVT23B0 

2 39. 

M2 = NF 



SLVT2390 

-*2i»r;' 

N* = NP ♦ 

HN 


SLVT29DQ 

291. 

NO = NA 



SL9T2910 

292;' 

SUN = 0.0 



SLVT292D 

293. 

DO 2DCI 10 

: 1, KOLO 


SLVT2930 

299. 

SUN : SUN 

♦ A(N2 T * A TNB 1 


SLVT299D 

295. 

N2 = N2 ♦ 

1. 


SLWT2950 


296. 

297. 

298. 

299. C 

20C NA = NA ♦ N 

N? = M2 ♦ HN - I 



SLWT2960 

SLWT297D 

21D AINPI = a'»N2> - SUN 



SLVT2HBQ 

SLVT2990 

250. C 

251. C 

253. 

’ 2 59 
255. 

- - UPJTE THE MObirirD sow ON TAPE OR 

C0N!;ENSE the 

ROW 

SL9T2S0C 

SLVT251D 

NL = vNT - H ♦ 1 

JF (IB ,GF, NROHl GO TO 220 



SLVT2G20 

SLWT253D 

fir = NL - KPl 

UNITE (NOtITl NN, (A(tO|, 10 r NS. 

NF>. lATTOI. 

lO “ NL, NT» 

SLVT259Q 

SL9T2550 

2 56. 

60 TO 2i|0 



SLWT256D 

257. 

2?n NF = ML - HOLD 



SLVT2570 

■HBOy 

DO 230 NN = NL, NT 



SL9T25SD 

259. 

A(NFI r A(HN) 



SLWT2590 

■TSiTT" 

230 NF - HF ♦ 1 



SL9T26CD 

261. 

290 CONTINUE 



SLVT2610 

'~ZW7 

RtUIND NT 



SLVT262D 

263. 

REUIND NOilT 



SLVT263D 

269. C 




SLVT269D 

265. C 

- - SWITCH THF TAPES 



SLWT2650 

T66.C 




SLVT266D 

267, 

NT = NT 



SLVT267D 

268. 

NT r NOUT 



SLVT268D 

269. 

NOUT = NT 



SLVT269D 

2 70.C 

♦ 



SLVT2700 

271 .C 

LOOP PACK THRU THE SOLUTION 



SLVT2710 

’ 27T;c 

* 



SLVT2720 

273. 

ML = NF 



SLVT273Q 

279. 

GO TO no 



SLWT279D 

275. C 




SLVT2750 

"rrs:r 

START TO WRAP IT UP 



SLVT2760 

277. C 




SLHT277D 


’260"PFWiNO R7 n 



SLVT2780 

279. 

N2 = N 



SLVT279G 


zao.c 

261, C 

“^ez.c" 

283, 

sflii,'’' 


i. JL.'l' ?i *T THIS POINT ALL LOCATIONS *»!> THBU MKOffEI FR EE 

DO Z7Q 16 = 1, NPnSS 


RCAD (MINI K 


SLWT28DD 

SLWT2B1D 

SUfT2B2D 

SLWT2B30 


SLVTZe<*Q 






N 1 = N 2 - K 
NS = Nl 

jrrT-N 2 



290. C 

“tjt: 


M«tJ IN IHL SOLUirot(S 


292. 

T 9 T 7 - 

29M. 


DO ZhO t6“ 
f!CAD (NINI 
NT-=- 


"WT 

260 NS = NS 

■? 70 ~W 2 = Nr 


~T7~N 

UINNI , 


NN :: NS, NTI 


T 


296.C 


Ttr.c 

290. 
~7W' 
.300. 

"nnrr 

302. c 


RCUTNtJ' AIX" INPUT TAPES 

REUIND NIN 


SLVT285D 

SL»T2e60 

SLVT2870 

SLVT288Q 


SLVT2B90 


SLVT290C_ , 


SL9T2910 
SLJIT29 2D 
*‘TLVtZ9 3D 
SL9T29M0 


SLWT2950 

SLVT296D 


RCUINt NODT 




“SrSTT 

3 cm. 


DO 260 TO = 1, 

~n — 


S1.VT2970 

StVT29eD 


SLVT2990 

SLVT3000 


SLVT3010 

SUVT3D2D 


"Tuf;; RTSTr-Tir 

306, NT = NT ♦ N 

"“ 3 -Dr;; — z-M-HRrrr Tigi)i'nrmiirrTTW"=">is nt> 

3PB.C ■ 

310. BB = fA*2 - 6A1I t 60. 

31 , 2 . 290 fOBrtAT IMHOIHE 15 o 2 H X 15 , 12 H MATRIX WITH IB, 

3 T 3 -;; t: srfrBCVE-D^trrFr cirv "nr rr; sT W'iiWtcr.''T^ 

319. RETURN 

-yrs-; — 30 ij“'(ninT"r 673 Tni’ — * — ' — 

316 . 310 r 0 RMATt 39 MD 50 LVlT . NOT ENOUGH CORE. HALT. > 

“717; -“STOP 

318 . END 


SLVT3D30 

SL^T 30 j»D 

^SlWT3Q50 

SL9T306D 

"sXvTlotb" 

SLVt3D8C 


SLVT3090 

SJ.WT3100 

' , ;* ■ ‘SLVtniO 

35H right sides WASLXT312D 

" ’’”7 sOimiti 

■ SLVT319D 


SLWT315D 







So.flH)l "■ 25 (»tic 75 18 , 

__ 1. sliaffouT twr upcoiti - [ 

~ 'H» 'I'VoTo' : = ' 

_J. RflUHW 

f»r * two 






■STJ71TT7TJ ~ 25' 

1. SUBROUTlNt: XYZ XVZ 

2TC XYZ 

3.C XYZ 

^7c ovrRi:«Y"iT‘iff»;"i7n 

5.C RROGRXH XYZ 

ETC XyT 

7.C • CONTROl FOR K,Y,Z MATRICES COMPUTATION XYZ 

BTC ^ XYZ 

9. COMMON /O/ 01, 03, XMXJ, VMYJ, XMXJPl, YHYJPl, S XYZ 

nn Common Hcoft* loi ;c'a<.'c Tnb ";nnu xvT 

11. 1 ,FiG03 .FLOOR ,FLGD5 .FLGOfi ,FLG07 XVZ 

— m 2 jrmrB ;TteTs^ "rnims .tcgTi tfCgTz xyT 

13. 3 ,FIG13 .FLOIR ,FLG15 ,FLG16 ,FLGT7 XYZ 

IV~, q .ftfilff'" ;FLg 19~ ,FL620 .FtfeZl JFL62H XVT 

IS. S ,FLGg3 .FLGZR ,FLG25 ,FLG26 ,FLG?7 XYZ 

rs^ Common nT; no O f mST nuna'tsi ', ' typcm b i, 5f?r 

17. 1 NCRl, MCRZ, NMA, NSICA, NSI GC, XVZ 

riT^ 2 NOKCiSf, TfPECifil , NL^Yl 1 fccT nHcecT XYF 

19, 3 TVPECCTS r,NUNEC«5l XYZ 

TO’;; ooUbLc' prCctSiOn mcor, case xyT 

21. INTEGER FLG03 .FLOOR ,FL605 ,FLC06 .FEGO? XVZ 

— 221 1 jrTutre — rronrc ?rom Tnrers xyt 

23. 2 ,FLG13 .FLGIR ,FLG15 .FLG16 ,FLG17 XYZ 

— 'Til T .TcurB ttcsts .fctTi jrLgzz xyf 

2S, ^ ,FLG23 .FLGZR ,FLG25 .FLG26 ,FLG?7 XYZ 

21^. mrK MW — x?r 

27. LOGICAL PF XYZ 

2BTC XYZ 

29. COMMON /RNGWNG/ VAISD0,2», VR 1500 ,2 1 ,Y AN1S30 » , VATTSOOl XVZ 

— -3TT; troTWOT-TTo — XT « SOOT ; — mswr, — TmTtnrr; — fnrtnjr, — g cf s fsco ' i ; — vrr 

• 31. I SINA<5DD».COSAI50D».XP«500I* YPISQDI XVZ 

2 ;xwAKnrn ;VwAKrnn ^ xTT 

33. COMMON ZIL/ AISDOI, 8(5031. AX(SOOI, AYISOOI, AZISOOI. XVZ 

— Jii 1 cxibodt; — cYcsoffr. — cnrcirn — I'xvntrcr.'Avri’Foor, sr?r 

35. 2 YM(SD3,5l,YT(533,5l,fiON, lAC. XYZ 

— jBi 3 n 31 on — F37 dt; — srr 

37. R DX> OV, NI. XJ, YJ, XYZ 

111 5 snri cTRi Emit; xl pF xyT 

39. C XYZ 

— unTc rmnrt ^ ^ ^ ^ — xyT 

RU IF (BON) 50 , 10 . 50 XYZ 

iiTl lb '■ if T-J - IT 'btr't 20 ' T ' t b ^ ^ xyF 

R3.C • J FOUAL I PATH XYZ 

^irr; ?0 'IlilSVDClffJT xyT 

R5. SJ=TlZVZ(Ut XYZ 

JIEl yrTSlPTCTTlJ d'T'To'T'rTS ^ '■ ' xyT 

R7. 30 CALL XVZl XYZ 

— -TB -7 crmrrnii TyT 

R9. RO SJ=.08 XYZ 

501 CTnXTYZ 1 xfT 

51 . NI=33 XYZ 

R. -T2=.&8*YZIJI XYZ 

53. DS=(Tl-T2»/32. XYZ 

5il 0X=O&*'CffS'iU'Jj XYZ 

55. OV::OS*$INA( J| XYZ 

~“5ET sim(FrjrTYT*iro^irrjr^T^ — xyT 


18 
31 
10 
20 
c 
c 
RO 
SO 
GO 
70 
80 
90 
100 
110 
120 
130 
IRD 
ISD 
160 
170 
1 80 
190 
200 
210 
Ua 

2 30 
2RD 
250 
260 
270 

T5!r 

290 

m 

31C 

T20' 

3 30 
7W 
3 50 
360 
370 
380 
390 
ROO 
RID 
R20 
R3D 
RRO 
R5D 
R60 
R7D 
R80 
R90 
500 
5J.0 
5 20 
5 30 











57. 

58. 


VJ=V *-,f«T2*SlN8lJI-DY , 

CALL i./22 



TH 

RCF1 


59. 


GO TO 190 



XYZ 

570 

60 • C 





XT? 

580 

61. C 


* J NOT COUAL I path 



XYZ 

590 

62.C 


• COMPUTC HJNIMUH DISTANCC TO I 

MIDP0ir4T 


XYZ 

60D 

63. C 





XYZ 

610 

6<l.C 

orf-ooDV ... 



XYZ 

620 

65. 

50 

JlPl r Jl « 1 



XYZ 

6 30 

66. 


01 = »xp<Ti-xnji ii**2 ♦ cvp.li »-Yn Ji n**2 


XYZ 

680 

67. 


XMID = IXlCJl MXlC.nPlll/2.0 



XYZ 

650 

68. 


VMIO = CVIC Jinvi CJlPlll/2.0 



XYZ 

660 

69. 


02 = IKP«n-XN10»«2 ♦ IVPm-YMIDI**'? 



msM 

6 70 

TO. 


03 = CXPm-XHJlPll>**2 ♦ IYPm-YllJlPll)**2 


■m 

680 

71. 


GO TO 70 



XYZ 

6 90 

■ 72. C 





XYZ 

7 00 

73. C 

ON-BODY ... 



XYZ 

710 

78. 

60 

JIPI = J1 ♦ 1 



XYZ 

720 

75. 


XMXJ = X2CI I - XlCJl t 



XYZ 

.7 30 

76. 


VMYJ = Y2m - Yiun 



XYZ 

780 

77. 


xPXJPi - X2CII - XHJ1P1I 



XYZ 

7 50 

78. 


VKVJPJ = Y2CII - rHJlPlI 



XYZ 

7 60 

79. 


D1 = XHXJ**2 * VMYJ**2 



XYZ 

7 70 

BO. 


02=CX2Cn-X2C Jll*P2« C Y2Cn“Y2f JU*92 



XYZ 

780 

81. 


1d 5 = XHXJP1**2 ♦ yMYJPl**2 



XYZ 

7 90 

U2. 

70 

S = SOPTC (XMJJPll - XllJll l*'»2 t 1 

YU jiPi) - 

VHJll »**2 

1 XYZ 

BOO 

83. 


ir (D1-D2) 90 , 9C , 80 



XYf 

810 

88. 

80 

ir 102-031 no , uo , loo 



XYZ 

820 

85. 

90 

ir ID1-D3) I2D , 123 , 103 



XYZ 

8 30 

86. 

100 

OM=SORTC03I 



XYZ 

8 80 

87, 


GO TO 130 



XYZ 

8 50 

88, 

1 10 

OH=SORHD2» 



XYZ 

860 

89, 


GO TO 130 



XYZ 

6 70 

90, 

JLH£ 

DM=SQRTfDl» 


' 

XYZ 

8 80 

91.C 


• COHPUTr MO. OF INTFRYALSCNI 1 

AND DELTA S 

( ns 1 

XYZ 

890 

92. C 


FOR SIMPSON RULE IHTCCRATTON 



XYZ 

9 0Q 

93. 

|«!| 

IF CON.CO.O.DI GO TO 16D 



XYZ 

910 

98, 


NI=8.PDELSIJI/DH* ?. 9 



XYZ 

9 20 

<fV7~ 





XYZ 

"930 

96, 

180 

NI=3 



XYZ 

9 80 

97. 


DS=OELSI Jl/2. 



XYZ 

9 50 

98. 


CO TO Iso 



XYZ 

960 


Tsrr 

ni=ni+nT 



XYZ 

970 

100. 


IF INI-128) 170 , 160 , 160 



XYZ 

9 80 

'"icit;" 


~Wr=12 9 



XYZ 

99D 

102. 


OSrOELSC JI/12B. 



XYZ 

1000 

103. 


GO TO IBO 



XYZ 

10 10 

108. 

J_70_ 

XNIrNI 



XYZ 

1020 

105. 


DS=DELSC Jl/XNI 



XYZ 

1030 

106. 


NI=N1*1 



XYZ 

1080 

107. 

160 

OX=OS«COSAI Jl 



XYZ 

1050 ’ 

108. 


0Y=0S9STNA| J> 



XYZ 

1060^ 

109. 

190 

XJ=X1CJ1I-DX 



XYZ 

1D7D 

no. 


Yj=rnji)-0Y 



XYZ 

1080 

111. 


CALL XYZ2 



XYZ 

10 90 

112. 

2 00 

RETURN 



XYZ 

MOl 

113. C 

'200 

CONTINUE 




C 









- 


so.xvzz 

1. 

SllBROUTTNC 

XV71 


25 AUr 75 
XYZl 

1 s 

20 

z.c 





xrzi 

ID 

3«C 





_ Ji'fVr. 

...30 

4.C 

9 

COMPUTr X,Y,2 MATRICES FOR SJ LESS THAN OR 

COtJAL .08 

XYZl 

40 

S.C 





XYZ1_ 

50 

6 « 

COMMON 

HEUR(IO) .CASE tN8 

,NNU 


XYZl 

60 

T. 

1 

,FLG03 ,FL5a4 ,FLG05 

,FLGD6 

,FLGD7 

XYZl 

70 

8. 

2 

.FLGOS (FLG39 .FLGID 

.FLGll 

,FLC12 

XYZl 

BG 

9. 

3 

.FLG13 .FLG14 ,FLG15 

.FLGlb 

,FLG17 

XYZl 

90 

10. 

u 

.FLG18 ,FLG19 ,FIG2D 

.FLG21 

.FLG22 

XYZl 

100 

11. 

5 

,FLGZ3 .FLG24 .FLG25 

.FLG26 

.FLG27 

XYZl 

1 ID 

12. 

COMMOTT NT 

. NOtin. MN, NUNA(5), TYPEA(5I. 

XYZl 

1 2D 

13. 

1 NCRl, 4FR2. NMA. NSI5A. NSTGC. 

XYZl 

1 30 

14. 

2 NUNCTST, TVPCCT5), NtniU. ILC, 

NSIGFC, 

XYZl 

1 40 

15. 

3 TYPEECTS J.NUNECI5I 



XYZl 

1 50 

lb. 

OOUBLF PRECISION HEDP. CASE 



XYZl 

160 

17. 

integer 

FLG03 ,FLG04 ,FLG05 

.FLG06 

,FL607 

XYZl 

170 

18. 

1 

.FLGD6 .FLG09 .FLGID 

.FLGll 

.FLG12 

XYZl 

180 

19. 

2 

.FLGI3 .FLG14 .FLG15 

. FLGlb 

,FLC17 

XYZl 

190 

20. 

3 

.FLGIB ,FLG19 .FLG20 

•FLG21 

.FLG22 

XYZl 

200 

21. 

4 

.FLG23 ,FLG24 ,FIG25 

.FLG26 

.FLG27 

XYZl 

210 

22. 

COMMON /RNGWNG/ VA(SD0,2T, VR I5DD ,21 ,VANI 530 » , VAT (500) 

• XYZl 

2 20 

23. 

COMMON /ECF/ ECX ( 500 » . ECV ( 500 1 , ECZ(5D0» 



XYZl 

2 30 

T4. 

REAL 

HN 



XYZl 

2 40 

25. 

LOGICAL PF 




XYZl 

2 50 

26. C 





XYZl 

2 60 

27. 

COMMON /CL/ 

Xl(500). YKSODI, X2(SC0)t 

V2I5DOI t 

DELS(5001, 

XYZl 

2 70 

28. 

1 

SINA(50D),C0SA(53r)l,XP(5D:), 

YPtSDO) 


XYZl 

2 80 

29. 

2 

.XUAKEIlll.VUAKEnn 



XYZl 

290 

TGT 

COMMON /Tl7 

A(5r0), RI500). AXIBOOI, 

ay (500 . 

AZ (500) . 

XYZl 

300 

31. 

1 

CX(500). CYI500). CZ(500), 

AXiMSOOl . 

AYV(500) , 

XYZl 

310 

~TT, 

2 

VN(5D3, 5),VT(5DO,5),BON, 

I AC , 


XYZl 

3 20 

33. 

3 

1. J. Jl. 

SJ. 

DS, 

XYZl 

3 30 

34. 

4 

OX, DY, NI , 

XJ, 

YJ. 

XYZl 

3 40 

35. 

5 

XK. EEK. EKK. 

K, 

PF 

XYZl 

3 50 

3b. 

COMMON /PPINTE/ P RI N 1 ,P R1 N2 .P RIN3 



XYZl 

360 

37. 

LOGICAL PRIN1,PR1N2,PRIN3 



XYZl 

370 

36 «C 





XYZl 

380 

39. C 


START 



XYZl 

390 

40. C 

* 

INITIALIZE 



XYZl 

MOD 

41. 

T1=SJ«SJ 




XYZl 

4 10 

42. 

T2=AL0G(SJ/R. I 



XYZl 

420 

43. 

T3=SJNA(J)0SINA( Jt 



XYZl 

430 

94. 

T43T2+T3 




XYZl 

4 40 

45. 

T5=. 6666667 

♦T3 


6 

XYZl 

4 50 

45. 

T6=T5*T3 




XYZl 

4 60 

47. 

T7=SJ«SJ 




XYZl 

4 7C 

48. 

T8=T7*T7 




XYZl 

4 BD 

49. 

T9=6, 283185 *COSft(J) 



XYZl 

4 90 

50. 

710=6.263185 «SINA(J| 



xirzi 

500 

/■ 51. 

in=Ti*sj 




SYZl. 

,510 

52. 

114 = .3333333 ♦ (16. C ♦ 6.0 ♦ T3> ♦ 2.0 * 

T2 


XYZl 

5 20 

S3. 

IF (lEC.EO. 

-1) GO TO 10 



XYZl 

S 30 


♦♦•EXTRA CROSS FLOW 1ST TERM OF X(I,I), 

Y(I ,! 1 , 2 (1,1 I 

XYZl 

5 40 

55. 

ECX(J) = 6. 

263185 ♦ SINA(J) • 2.0 ♦ SINA(J) 

♦ COSA(J) 

• SJ 

XYZl 

550 

56. 

ECT(J) =-6. 

263185 • COSA(J) ♦ SJ • TIM 



XYZi 

5 60 




CZ<J» = -8,0 * n. 666667 * TZI • SJ 
IF UECI 10 , 73 , 13 


10 1F4PF1 GO TO 30 

IF <1«CI <t0 . 20 , 20 


62. 2C AXIJI=TtD*SIflA(Jt«C0SA<J>*(T7*IT<lt2. 166667 >»111/12.l 

— ST.— rvTjr=T7*rir-!?^YT.vf2-tj-r6k*f ir/8 . 

64. T12=n+Tl 


Z« 3 .*T 2 *I l.*Tl?n/ 144 . } 

66, 30 ir UACI 40 , 43 , S3 


• CROSS FLOW 
68. 40 713=71/16. 


76. 
— 7Tr 
78. 


Cr«JI=-T9*774<2,»T4*T 134a.-4.777778 *7 3 + T 6fT2* T 3 , -2 .666667 ♦ 


C27J»:-T84C l.+r2-n3«n.inill *T3*T2*I75-1 . m 


D If 7Pf> GO TO 60 

IF IFLGIB.LE.C.OR.NLFTKI.GT.SI GO 70 7D 


♦ T 7 *< T 2 -T 3 MT 11 ♦If 2 * ( 12 . * 73 - 9 , I 
1 - 9 . ♦ 23. *73 - 6 , * 73*731 / 72 , 

AYViiJT = 710 ♦ 2.*C0SA( Jl*SlN*lJI*ISJ-7n*(6.*72*9,-2.*T3)/4B, ) 
IF ( .NOt.PFI 60 70 70 


80 . AY(J» = AYWIJl 


62. C*** * RING KING OPTION PV EFFECTS ON ITSELF NEGLECTS 2*PI TERNS 


IF(FLG23 ,LE. OICO TO 70 


= AKIJT - 
AYCJl = AY( J1 - 713 




AXV( J1=AX(JI 


r im N ii t I in 


92. 1), AYVtJl 

"~ 73 ; RrrmTTr- — — 

94, 80 F0RMAT(9H XYZl. J=,t3,SH, SJ=,F8.5,5H, AX= ,F9 . 5 ,5N, AY=,F9.5, 

I-5H- XY^r9 . ^TSUTCTrjFTTB , 5TT~tZ= rF9T5 , 6H V “AX V =TF?“.'5 ,6 H T "AYW = 

96, 2 F9.SI 

~m cwc ^ 




i^J.AXC J»,AV( Jl «CX( ,CV( JI.CZT J>. AXV 


XYZl 


t JXYZl 
XYZl 


SUBROUIINE XVZ2 


SQ.XY73 

t. 


25 AUG 75 Ifl 


2.C 




XYZ2 

10 

3*C 




XYZ2 

30 

«.C 

* 

COMPUTE X.Y.2 MATRICES USING SIMPSON RULE INTEGRATION 

XYZ2 

40 

5.C 




XYZ2 

50 

6. 

filAL LIJ20 



XVZ2 

60 

7. 

COHHON /D/ 

RISQR. R2SUR, KMXJ. YHVJ. XMXJPl. 

YMYJPl, S 

XYZ2 

70 

8. 

COHMON 

HCDRIIDI (CASE .NO 

,nnu 

MTFa 

80 

9* 

1 

,FLGD3 ,FLG04 .FLG05 

.FLG06 .FLG07 


90 

10* 

2 

.FLGDB .FLG09 .FLOIO 

.FLGll .FLGI2 

XYZ2 

JOO 

11. 

3 

,rLG13 ,FLC14 .FLG15 

.FLG16 .FLG17 

XYZ? 

1 10 

lir. 

4 


.FLG2J ,FLG22 

XrZ2 

120 

n. 

5 

.FLG23 .FLG24 .FLG25 

•FLG26 .FLG27 

XYZ2 

130 

lA. 

COMMON NT 

» NDflll, MN. NUNAtSI, TYPEAfSI, 

XYZ2 

140 

V 15. 

I NERl. NCRZ. NMA. NSICA 

. NSTGC. 

XYZ? 

ISO 

16. 

2 NUNCISli rVPECIS), NLriUl. lEC, 

NSIGCC, 

XY22 

160 

17. 

3 TYPErciS l.MUNCCISl 


XYZ2 

170 

18. 

DOUBLE PRECISION HEDR, CASE 


XYZ2 

ISO 

19. 

INTEGER 

rir>D3 ,FLG04 .FLGD5 

.FLGOb .FLG07 

XY72 

190 

20. 

1 

.FLG38 .FLGD9 .FLGIO 

.FLGll .FLG12 

XYZ2 

200 

21. 

2 

.FLG13 .FLG14 .FLG15 

,FL«16 .FLGI7 

XYZ2 

210 

22. 

3 

,FtG18 .FLG19 .FLG20 

.FLG21 .FLC22 

XYZ 2 

?20 

23. 

4 

.FLC23 .FLG24 .FLG25 

.FLG26 ,FLG?7 

XYZ2 

230 

24. 

COMMON /ECP7 ECXISD3)* FCt(53D). E,C2«500 > 


KYZ2 

240 

25. 

COHHON /RNGNNGX VA(5C0,2). VRt5D0.2l .VANtSDDI . VAT<5D0) 

XYZ2 

250 

26. 

COMMON /EPSBLK/ EPSLON 




27. 

COHMON /PRINTP/ PRIN 1 .PR1N2 ,PR 1N3 


XYZ2 

260 

28. 

LOGICAL PR1N1,PR1N2,PR1N3 

.f 

XYZ? 

2 70 

29. 

LOGICAL RSHALL 


XY22 

3 00 

~SU7 

REAL 

MN 


XVZ2 

310 

31. 

LOGICAL PF 



XY22 

320 

JS.t 




XYZ2 

3 30 

33. 

COMMON /CL/ 

XKSODI, YK50DI, X2<500), 

Y2ISDD1, OELSlSbOl, 

XYZ? 

340 

34. 

1 

SINA(5DOI,COSAI5D01,XP«5aDl, 

YP(500I 

XYZ2 

350 

,35. 

2 

•XUAKEt 1 It .YUAKEUU 


XYZ2 

360 

36. 

COMMON /Tlx 

A"< 51^'fll t , AX1500I, 

AYiSdot, AZI5D0), 

XYZ2 

3 70 

37. 

1 

CXtSOOl, CYISDDI, CZI500I, 

AXVISQOI .AYVtSOOt, 

XYZ2 

380 

38. 

2 

VNl5aD,5>,VT153D,51,BON, 

XAC. 

XYZ2 

390 

39, 

3 

1 ■ J. J1 . 

SJ, DS, 

XYZ2 

4 00 


4 

DX. DY, Nl, 

XJ, VJ, 

KYZ2 

410 

41. 

5 

XK, EEK, CHK. 

K. PF 

XYZ2 

4?0 

42. 

COMMON /BL0CK3/N0BXI , NOCROS , NOVORT , NOV 1 . NO V2 

,F1RSTE,LASTC.LJ>SE,S0 

,XYZ2 

4 30 

43. 

1 NSMALL 



XYZ2 

440 

44 . 

DIMENSION VDAX1XC129> ,V0 AX I Y 11 29 I , VOCR SX U 29 ) , VDC RS Y ( 1291, 

XYZ2 

4 50 

45. 

1 V0CRS2I 129 J , VOVORXL129),VOVORYiI29t ,XRlNGn291 , YR1NG« 1291 

XY22 

4 60 

46. 

DATA NSW /!/ 


XYZ? 

280 

47. C 




XYZ2 

4 70 

46.C444 

♦4PRSMALL 

MILL BF TRUE IF IS .LT. EPSLON. 

AND THEREFORE SMALL ELXYZ2 

2 90 

49. C 


START 


XYZ2 

4 80 

50, C 

4 

initialize' 


XY22 

490 

51 . 

ASSIGN 650 

TO Ml 


XYZ? 

5 00 

52. (:**<■ 

= 80 FOR NON-SMALL CLEMENT AXISYHMETRIC 


XYZ2 

510 

S3. 

ASSIGN 270 

TO K5 


XYZ? 

520 


♦♦♦K6 = 295 FOR NO.N SHALL ELEMENT CROSS FLOW 

XYZ? 

5 30 

55, 

ASSIGN 450 

TO Kb 

■ . 

XYZ? 

540 


56. 


ir lFLGlS.LC.D,OR.NLriK>.GT.Dl GO TO ID 


XVZ2 550 







ASSIGN ZIO TO K2 


ASSIGN SOCTTO KI 

Assign gso to 


ASSIGN 320 TO K2 


70. ASSIGN b*tO TO NM 


I n TNt. . 
72.C**« **•! = J •* ON BODY 


D.OI > GO TO 30 


RSHALL = ( R / V2(II I ,LT. CPSLON 

iresf~r'T 

CO TO 53 

3 D”rr ■H“se rr"ATfT)(Ti ■RTs-ffRTR^s^R’TT' 

IF* AeSIY?m » .LT. 10E-33IG0 TO ND 


eo. CO TO S3 

— ffn — TOTj^jtt—r-rrnrsr; 

82. 50 in .NOT. RSNALLI CO TO 130 

“in'. ■TreNAn:~-NSNALTr‘~i 

8«I.C*** •♦♦shall ELLHENT — FORH AlJZD, YU20. LIJ 


8 b. C , ■ 

♦♦♦K5 = 105 FOR SHALL ELFHCNT AXISYHHETRIC 

“TT. “jrsn'BTrTCO-'TTni'S : T” 

•♦♦K6 - 320 FOR SHALL ELEHEMT CROSS FLOW 

“w; 

90.C^^^ ♦♦♦NSW - 1 FOR I NE J 

0i;c»'» ~ A T y*N5B ' "= T T OR''r~F Q" J 15 T I TNE Tl^OOU gF ^ 

92.CA^^ ♦♦•NSU = 3 FOR I FO J 2ND TINE THROUGH 

9 ii 60 "TO' I . 9 iTTT£r",'Tr"iT"NSJ 

9A.C 

7F2TA-*4-r«Fi~i J — j'5 T - ■ T1 H E "TfffTOU CH 

96. 6C XLEFT = XJ ♦ OX 


J ♦ OV 
98. JlPl :: J * 1 


. iti wrfyTig'TTTaa 


VRIGMT = TKJtPlI 


EADY FO 


NSU = 3 


TIME THROUGH 


XYZ2 910 
XYZ2 920 
XY22 930 


XYZ2 950 


XYZ2 960 
XYZ2 970 


XY22 960 
XYZ2 990 


XVZZIOOO 

XY2Z1010 








171. 

172. 

-mr 

IT^t. 


112 = 7J/T2III 
fW2 = tEKK«CEX»tT 1-TB 1/T13I/T7 
"fV3”= tariTTflO"*" 13/ 17 * EtX 
fl = rV3*T12 


FV«4 = F¥2*l3/r2II • 


17S. CO TO 200 

*-i79T-“r6CTTY? *r-o;: 

180. fV3 = 0. 

^ 

182. C*** •♦♦SH8LL 7 FORNUUS *XI STMHC IRI C FLOW 

“IBT; -TI" /TBTfS : 

18^. T28 = 2.0 • l«J - T2 

• 1^5', : 'T rr-rr — rrsfcrm — •'vj ♦ is"T'/t fB'«TTr^ n~* 

186. 1 1 1.0 ♦ » .75 * I 3.0 • 12 - J,0 * TM » • 12 3 > > ^ 

“ V67i r5“rnn rrsTsi^is •"tj • »24ii » • < t 2«* / tTB**z.5 » » 

188. F3 = 1. 570796 ♦ YJ • ( 1 .0 ♦ 1.25 ♦ 123 * l-T2M» > » / SQRTfie » 

"Tflr.- BTTrTcrti 

190. 190 132 = 13 / lltJA ■ 


192. 

~T9Tr 

194 . 



'n 3"=''m“T~TTBi — 

T34 = T33992 

'TI5»~£~T1'0a > laVn ♦ T2tll r 
T35 = 8LOG1T35A) 


I4D =710* F Y2I U 


138 = 0,250*136*135 




134A = 2.0*734 


T39U = T3M A * , 

FJ = « -2.0 * 132 • t t-135* • 735) 


r? =-T 10.25 • 136 * 735) -134 “1.0 - 1139 * 134B) ) F Y2II) 


' 202. FJ = « -2.0 * 132 • < t-1 

~7DT: T =T-TTW7TF7DT‘lT‘T37ri 

204. r? =-T 10.25 • 136 * 135) 

'l"T3b“* T 137.— *^TQ‘.T 
206. 200 GO 1 0 K2. 1 2 10 .320 1 

208. 21C IF (lS-1) 220 » 220 . 230 

"^^D9TC #~Fl?rfT' MTS 

210. 220 AXSrri 

" 'STi'; ATSrrz 

212. AZS=F3 

“TT3T STIATmrnT7"='"'-T)'.FFl 

214. VCAKIYIISI = -2.*F2 

■- tit.' 17=71' 

216. GO 10 320 

■ 2'f7;‘"':23onF'rirrro'iNi7iro to 26q 

218. IF llAI 250 . 240 « 250 

7T9’.c rr?Efmt5i; 

220. 240 AXS=AX£«4.*F1 

”251 «• ' TfYS=**"fS*r."4r5 

222. A2S=A7S*4.*F3 

“253 VF*irilfmT‘="=lu*r'i 

224. YCAXIYllSI = -2.*F2 

-25T.“ nr£i 

226. CO TO 320 

•527 .'c - r-^7j'irpirs's 


ID. 5 ♦ 1331 


XYZ21700 

XVZ21710 

KY22I720 

XV221730 


XY221740 

AY2217SD 


XY221760 

XYZ21 77D 

XY22iH0 

XY221 790 

XYZ21800 

XYZ21810 

■m?mr 

XVZ21830 

XyZ21B'40 

XYZ21850 

XYZ21860" 

KYZ2ie7D 

XY221B80 

XYZ21890 

XYZ21900 

XYZ2191D 

XYZ21920 

XV22193D 

XYZ21940 

XYZ21950 


XYZ219T0 


XYZ2198a 

XYZ2199Q 


XVZ22010 

T(T25T02F 

XYZ2ZD30 

~xTtJF0Tn~ 

XVZ2ZD5D 

TTYTTnibr 

XVZ22070 


XYZ2209D 
XYZ2210D 
XVZ221 10 
XYZ221Z0 
XVZ2213D 
XYZ22140 
XYZ22150 
XYZZ216D 
XYZ32170 
x7Z5218D 
XYZ2219D 
XVZ2220D 
XVZ2221Q 
XYZZ222D 
XYZ22230 
XYZ22240 
XYZ22250 
”XYZ2'22 6D 


Z2S. 2S0 
229. 

*xs=»xs*Fi*r 1 

AVS=97S*r2*r2 



XV22227D 

. . jiyi??? Sfi. 

XY222290 
„ XYZPyOO . 

230. 

231. 

A2S=92S*F3*r3 
VCAXIXIISI = -9.9F1 



232. 

233. 

VCAXIYIIS) = -2.9F2 
1X=0 



XYZ22310 

XYZ22320 

239. 

CO 10 320 



XVZ22330 

235. 2£Q 

GO fO K5, ( 270 , 300 ) 



XYZ22390 

236. C 

• LAST PASS 



XYZ2Z350 

237. 270 

ir IJ-ll 290 . 280 . 290 



XYZ2236D 

23S. 26P 

If (BON. NC. 0.01 CO fO 290 



XVZ2237C! 

239. 

AK(JI=AX( JI-S99(AXS«F 11 



XY222380 


AV(J|fAriJt-S2*( AYS«F2» 



XVZ22390 

291. 

A2IJt-A2IJMS9*(A2S*F3l 



XYZ2290D 


VQAxixdsi = ~n7W\ 



XY2229 10 

. 293. 

VDAXIYirsl = -2.9F2 



XYZ22920 


AXJ = -S99IAXS«F1 » 



XYZ22930 

295. 

AYJ = -S29(AVS*F2I 



XV22299C 

23T6. 

60 to 320 ' ' 



XYZ229G0 

297. 290 

AX(J1=-S9«( AXS4F1 1 



XVZ2296C 

Z9B, 

AVfjJ =-S2*( Ays*F2 i 



XVZ229 70 

299. 

A2(J)=S99(A?S«r3l 



XYZ2Z98D 

250. 

VDAXIXdSl = -9.AF1 



XVZ2299D 

251, 

VOAXIYIISI = “2.9F2 



XYZZ25DD 


AXJ = AXIJI 



XYZ22S1D 

253. 

AYJ = AY(J) 



XYZ2252D 

259. 

GO TO 320 


xyZ2Z53S 

255.C999 

♦♦♦LAST PASS ♦ SMALL ELEHCNT 



XYZ22590 

“'256. 36o 

1FT'(J .NE.n .OR. (BON .NE. 0.01 IF.O TO 31D 



XYZ2255D 

257, C99* 

♦♦♦! = J ON nooY 



XYZ22560 

" ‘258, 

AX(Jl “ AX«J> * XJJ20 ♦ (AXS'^ FIT • 51 


■“■nT -H- - - 

XYZ22570 

259, 

AYIJI = AY(J( ♦ YTJ2D ♦ (L1J2D / Y2UT 1 ♦ (AYS 

♦ F2 > 

♦ 51 

XYZ2258C 

•~2YDT”^ T2VJf ="A 2 ( jr*^2 .ti' • T1'J2DT“»~TaZS 'T FsT 9“si *’ 



XYZ22590 

261* 

VCAXIXdSl = -99. 



XYZ2260D 

^6'2~, 

' VtAXlY(tsr=“ -99. “■ ~ - 



XYZ226iO 

263. 

AXJ r XI J2D * (AXS+Fl USl 



XYZ2262D 

2W. 

AYJ = Y1J20 < (LIJ2D7V2mi * (AYS»F2»9S1 



XY222630 

265. 

00 TO 320 



XYZ22690 


♦ ♦♦T NE J ON 'OR OFF body 



XYZ2265D 

267. 310 

AX(J) = XIJ20 * (AXS * ri> ♦ Si 



XYZ2266C 

26B. 

AV(JI = riJ2D ♦ (L1J2D t Y2(II 1 « ( AY's ♦ F2> ♦ 

SI 


XV22267C 

269. 

A7(J)'= -2.0 ♦ LIJ2D ♦ (A2S ♦ F31 ♦ SI 



XYZ22680 

77BT * 

VdAXlXdSl = -99. 



XYZ226 90 

271. 

VCAXIYdSl = -99. 



XVZ22700 

""T72. 

AXJ = AX(J) 



XY222710 

2 73. 

AYJ AVI JI 



XYZ2272C 

"Tf9. 32i: Tf n*c» 33 c , 33n , 990 



XYZ2273D 

275. C 

* CROSS FLOU 



XYZ2279D 

2 76 , 3 3D 

IF (R5MALLIG0 TO 35D 



XYZ22750 

Z77. 

IF (T21 .LT. D.09IG0 TO 390 



XVZ22760 

2 7'e; 

T12 = 11 ♦ T8 



XYZ2Z77r 

279. 

Fl=T3/¥2(119(EKK-rEX*T12/T10»/T7 



XYZ7Z78D 

280. 

F2=(EEX9(T8*Te*Tlo(T9-T2M/T10-EKK«Ta)/Tl/T7 



XYZ22790 

281. 

F3=T79(EKX9T12/T6-EEK T/Tl 



xvzzzeod 

282. 

GO TO 3BD 



XYZzzaio 

203,C*#« 

♦♦♦SHALL V FORMULAS * CROSS FLOW 



XV22282D 

289. 39D 

T23 = T1 f TB*^2 



XV22203C 



"Y2T"=""|"TT5*7 0 796 • t Z I t 1 T 8 * 91 . 5 » 


XVZ72890 

2S6* 

TZ6 = 9,0 • T9 - T2 


XYZZ2B50 

“■«7i 

‘isr nsi *“t23' 

‘ 

XYZ2286D 

288. 

ri = 1 I-9.7123B9I • T2 • T3 * V21II 1 / 1 

16**2. 5 1 

XYZ22B70 

— zMi 

■~r'2"= T79 • r' l .tr -Ti '.i zs ♦ ftttt 


XVZ22880 

290. 

F3 = TZ9 • 1 l.D - 1.375 * 7311 ) 


XVZZZe9D 

"791“ 

~T.»”r<rsrD 


KYZZ29QO 

2V2.C*** 

«**IAC t-T 0 MEANS NO AXISVMNCTRIC FLOW 


XY2Z2910 

— m: — aim 

‘•iruAT r 3‘i'fl .■■■3T?r";"S7]s 


XVZ2292a 

29N.C*** 

***CALCULATE shall ELEMENT OUANTIIIES THAT 

DID NOT GET CALCULATrO 

XYZ2293D 

— ST9?T7**9 

*>*DE'CAUS'E tMCRE NAS NO AXiSVNNETRiC FLOW 


XYZZ2990 

296. 360 

132 = T3 / TIDA 


XYZ2295D 

ri3 = TiF»"7^tTCi 


XYZ22960 

298. 

139 = I33**2 


XYZ22970 

'2997 

■'T3l1f"^rF)r7 Tc.d • fzTTi X ■"’* 


XYZZ2980 

30Q. 

135 = AL0CIT35A1 


XYZ2Z990 

- 3or.~’ 

' T 36 =~tT*7?7f 1 V 


XVZ23'000 

302. 

T9Q : TlOA / Y21!) 


XV.Z23010 



' W=“ nil5'**‘2 )*ffTlB' 


XYZ23D20 

309. 

T3B - fl.25D*T36*T35 


XYZ23tJ3D 


'••ACALCt/LATE' SHALL ELEMENT Fl,F2,F3 CROSS 

FLOW 

XY223D90 

306. 37;J 

' 138A = -5,0 * T30 


yVZ?5DSQ 

w w •> 1 n 



IJt* = T36**2 


XVZ23Q70 


1 *10.125 * THO * 12 

ss A'^*nr3T~«‘‘iTy 

F3 = 1 I T3b - <0.375 * 


1-D.75 ♦ ?»(Ci ♦ 7351 
.:.0 • T3<* -5,0) ) I 


♦ T33 


XY2Z3080 

KY223D90 


To';?5'‘*'TJ6 * itJt "-“6".5D) ) ) / Yzm XYZ23100 
UOIi» - 10.25 * T36X) ) * T35 -i» .D *T36 XV223UD 


mrrr 

CVS=F? 

■CZ5^3^ 


-10.50 « f36At - T37 i /V21II 
'♦ .SIMPSON ttULC INTEGRATION 

7~JW"7TTi'£r 

♦ FIRST PASS 


XVZ23120 

XTZ2313D 


XyZ231«lD 

XTZ231SD 


XVZZ316D 
XVZ231 70 


XYZ23180 


JCU • 

— J 7 r,~ 

v-ccR 5 Tfrrr 7 -ijT*rr~ — ^ 


XYrz'JfOti 

322 . 

VCCRSYIIS) = 2 .*F 2 


XYZ 2321 D 

— J 23 ~- 

VtrCRS'Zl'l ST":'?^*^?^ " — '™"' 


XYZ 232 ZO 

329 . 

CO TO 990 


XYZ 23230 

— «*cn~irTiir=HTrirnr'r 99 ii , '910 


X 7 Z 2329 D 

326 . 

910 IF no 930 , 920 , 9 30 


XYZ 2325 D 

— j'? 77 r 

• — mnr?irr)i“ 5 T ' 


XYZ 23260 

328 . 

920 CX 5 =CXS* 4 ,*FI 


XYZ 23270 


C 7 S'= cvs+ifTirz 


XYZ 2328 D 

330 . 

CZS=CZS* 9 ,*F 3 


XYZ 23290 

■“ 3317 ” 

Wd'CRSimtS) r Z.*F 1 


XYZ 23300 ' : 

332 . 

VCCRSYIIS) = 2 .*FZ 


XYZ 23310 

* — 3337 ” 

Vt!CRS 7 IT 5 » 2 


WfTfSTfO 

339 . 

IC =1 


XYZ 2333 C 

" 335 ;" 

CT-T'or-Ti^U * 


XYZ 2339 D 

336 .C 

* OOP PASS 


XYZ 23350 



9 St 5 “tXS=CXS*F.l*Ff 


XYZ 23360 

358 . 

CYS=CYS*F 2 *F 2 


XY 223370 

• 3 T 97 " 

C^cTs*f 3 *F' 3 r 


XYZ 23380 

390 . 

VncRSKIIS) 2 .*Fl 


XY 323390 



“& 0 CRSf<lS)""= 2 .*F 2 


XTZ 23900 


392. 


RCCHSZnSI = 2. *73 



XYZ234 10 

393. 


1C=0 



XY;?3420 

394. 


CO TO 490 



XVZ2343D 

345. 

440 

CO TO K6.f 4SO , 470 1 



XYZ2344C 

396. C 


♦ l.AST PASS 

. 


XVZ2345C 

347. 

450 

IFIJ .NE. IlGO TO 460 



XYZ2346D 

39B. 


IF (BON.NC.Q.ni GO TO 46D 



XYZ2347C 

349. 


CX4JI=CX(JI«S2*ICXS«F1I ' 



XYZZ340D 

350. 


CY4 J»=CY«JMS2*ICYS*F2I 



XYZ2349D 

351. 


CZIJI=CZ«JI«S29ICZS*F3I 



XVZ23500 

352. 


NDCRSXfISI : 2.9F1 



XYZ23510 

353. 


VCCRSYUS) = 2.9F2 



XYZ2352C 

354. 


WECRSZdSl = 2.9F3 



XVZZ3530 

355. 


CXJ = S2*4CX5*F1 » 


♦ 

XY723540 

156. 


CYJ = S2*(CYS*F2» 



XVZ235 SO 

357. 


CZJ - S2*«CZS*F3> 



XYZ23560 

358. 


CO TO 490 



XVZ23570 

359» 

4 60 

CXI J»rS29<CXS«Fl t 



XYZ23560 



CYIJI-S29ICV5+F2I 



XYZ2359D 

361. 


CZIJl=S2*tC2S*F3» 



XVZ2360U 

362. 


VCCRSXIISI - Z'.iFl 



XYZ23610 

363. 


VOCRSYirsi = 2n*F2 



XVZ23620 

T64T“ 


WPCRSZnSI = 2.9F3 


' * 

XVZ23630 

365. 


CXJ = CXIJI 



KYZ2364C 

"TE(S7"~ 


C^'J - CYlJi 



XYZ23650 

367. 


CZJ : CZIJI 



XYZ23660 

368. 


CO TO 490 



XYZ23670 

369. 

4 7D 

IF ( fl.NE.Jt .OR. C80N .NE. 0.01 > GO TO 4B0 



XYZ2368C 

370. C*** 

••9LASt PASS SNAIL CLEMENT I=J ON BODY 



XYZ23690 

371. 


CXIJI = CXIJI * XTJ2D ♦ (CXS ♦ FU * SI 



XYZ2370D 

5 IZ • 


CYlJI - CYlJI ♦ Y1J2D ♦ 1LIJ2D / Y2I1II «■ ICYS 

♦ FZI 

9 SI 

XYZ2371D 

373. 


CZIJI = C7IJI -12.0 * LIJ20 / V2ITI 1 * (CZS 

♦ F3I 

* SI 

XYZ2372D 



VQCRSXIISI = -99. 



-XYZZ373C 

375. 


VOCRSYIISI = -99. 



XYZ2374C 

jYgT” 


WCCRS7IISI = -99. 



XYZ23750 

377. 


CXJ = XIJ2D + ICXS«F1|*S1 



XYZ23760 

■Hum 


CYJ = YTJ2D •* ILIJ2D/Y2III 1 • ICYS+F2I*S1 



XYZ23770 

379. 


CZJ = -2.09LIJ2D/Y2II 1 ♦ ICZS*F3I9S1 



XYZ23780 

■ 


GO TO 49D 



XYZ2379E 

381.C*** 

NE J OR ANY OFF 800Y 



XYZ2380D 

382. 

4 8C 

CXIJI :: XIJ2D * ICXS « Fll * 51 



XYZ2381C 

383. 


CYIJl = YIJ2D ♦ {LIJ2D/V2IIII *10X5 ♦ F2I / j 1 



XYZ23820 

384, 


CZIJI = -12.0 * LIJZD / Y2III 1 ♦ iCZS ♦ F3I * 

SI 


XYZ23830 

385. 


V0CRSXII5I i -99. 



XYZ2384D 

386. 


VOCRSYIISI = -99. 



XYZ3365C 

387. 


W0CRS7ITSI - -99. 


t 

XVZ23B60 

388. ' 


CXJ = CXIJI 



lWZ23 8 7G 

389. 


CYJ = CYIJl 



XYZ23S8D 



C7J = CZIJI 



XY72389D 


391. C**» ♦♦♦KS = <i2Q roR SU9F«CC VORTICITy PF TRUE _ XY??!90D 

392. <49J 00 TO K3,l 500 , 513 I * . ~ XV223910 

/393.C*** ♦♦»K1 = 920 FOR STRIP VORTEX __ XV 22 3 9 2D 

'39M. 5D0 GO TO Kl, 1 650 i 51D I ■" ' ' ' " XVZ239 3D 

395. C*** »»9FL0W OF CONTROL REACHES HERE FOP tPrcTR UE) OR < I FLGIS DT D AND XV2239<4C 

396. C*«* ♦99NLF LE 0 ILTFTING BODYM AND fl NE J ON"ab“bv OR'aNV 0F> BODYI rXYZ2'39Sa 

397. SIO IF CRSHALUGO TO 560 _ XYZ23960 

398. F¥l = IT2-T1I / T7 • EEK / TIO " XYZ23970 




399. 


IF IIS.GI .1 1 GO 10 520 

XYZ2398D 

400. C 


• FIRST PftSS 

XYZ23990 

■ TrUTT" 


7nnr="TYT 

XYZ2400D 

402. 


*X2 = FV2 

XY224010 

4 G3 • 

jArj r-r?l 

XY224020 

4D4. 


XY2 S F»4 

XYZ24D30 

IMLl’FTM 



XYZ24D40 

406. 


VCWORYtlSI = -4.4FY3 ♦ 2.4FV4 

XYZ24D50 

■■LLUS 


IV::D 

XYZ24060 

408. 


CO TO 65C 

XY224070 


520 


XYZ24Q80 

410. 


IF tIVI 543 t 530 . 540 

XYZ2409D 

— niTT 



XYZ2410D 

412. 

530 

*X1 = AX1*4.*FV1 

XY2241 10 

" — 4-n , ■ 

^X2 = *X2«4.^rV2 

XY224120 

414. 


AYl = *Y1»4.*FV3 

XYZ24130 

— nr; 


~ikTi - AY2*^4T*FY4 

XYZ2H14Q 

416. 


VrVORXIISI = -4.*rYl - 2,*FY2 

XYZ24150 

“cn. 



XYZ2416D 

4 IS. 


ii 

« 

XYZ24170 

-’'TIT". 


(7(TT0 65 0 

XY224180 

420. C 


* ODD PASS 

XYZ2419D 

WZT. — S^^TTHyr = TlTI*TTriTVT 

XYZ24200 

4 22. 


AX2 = AX2+FV2*FY2 

XVZ24210 

■'"Tt’Zl".-'- 


nvr^-Ttv 1 *F vy^3 ^ — — 

XYZ2422D 

424. 


AY2 - AY2+rV4+FV4 

XYZ24230 

— 

... -y^VORy-jrs^ - 2.4FVZ 

"" XYZ2424D ' 

426. 


VCVORYfIS) = -4.4FV3 ♦ 2.4FV4 

XYZ2425D 

■MLlbUVi 


-nr= Vi' 

XVZ2426D 

4 28. 


GO TO 650 

XYZ2427D 

429.1 


* l_A5T PH55 ^ 


430. 

5 so 

IF T J-I1 570 t 560 ,570 

XYZ24290 

4 J1 • 

MM 


— XY2243DD 

432. 


AXVIJI = AXVIJ1 - S4*IAXl*FWn - S2*TAX2«rV2l 

XYZ24310 

^ ^ J • 



XYZ24320 

434. 


WPVORXIISI = -4,*rvl - 2.4FV2 

XYZ2433D 

4 3b* 




436. 


AXVJ = -S4*TAXi»FVlI - S2*tAX2*FV2l 

XYZ24350 

WTTT^ 


■■A'VVJ'"-'' -54* 1 AV1*FV3I ♦ S2*<AY2*Fw4I 

XYZ2436D 

4 38. 


60 TO 630 

XYZH437D 

■ 4 39r 


AXVIJI = ~rfl'*nni 1 if lif 1 * " -52*«AX2«FV2> 

XYZ243B0 

440. 


AYVfJI = -S44fAYl ♦FVS I *52* 1 A YZ^FVR 1 

XYZ24390 

441 * 


VfivMxTlSl = -4,*FV1 - 2.*FV2 

XYZ24400 

442. 


WOWORYMSI = -4.4FV3 ♦ 2.*FV4 

XY22441D 



ktsli = AXVI J1 

XYZ24420 

444. 


AYVJ = AVVIJ) 

XYZ2443D 



GO TO 630 ^ 

XY22444D 

446. 

5 BO 

T34C = T34B - 8.0 

XY224450 


443. 

“ nw;* 

4 50. 

■niTi 

452. 

454. 

4'5S.‘ 


VYl = 1 T3H ^^T32**2I - TT39 * I34C» » / V54M 
FV2 = 1 T32 / Y2I1I 1 * 1 1-3.75 *T40 ♦ T351 *T33 


XY224460 

XYZ24470 

~i *TDTr25 ♦ tttq *“ryifm ^ 


XYZ?44eQ 

IF IIS .GT.11G0 TO 59C 


XYZ24490 

* ***FlRSl“f>X'SS SNAIL CLtNENI 


XYZ24500 

AXl = FVl 


XYZ24510 


WCVORXriSI = -49. 
■~WDVt5?it r'CTrr"= -99 . 


XtZ24520 

XYZ24530 


XYZ24S4D 




-Jiao 


<l5b. 


lY = 0 


XYZ24550 

USTj 


CO TO 650 


_Jfl?245 6C 

«58. 

590 

iriis .ro. NllGO TO 61D 


KYZ2457D 

•»S9. 


irnv .Nc. 0 ICO to 6oo 


XVZ2458D 

960. 

C444 

♦ ♦♦EVEN P»SS SNAU CtENENl 


XY22459D 

461. 


8X1 = AXl * H*Q* FVl 


XVZ2460D 

462* 


8T1 = ATI « 4.0^ FV2 


XVZ24610 

463, 


WOWORXIISI = -99, 


XVZ24620 

464. 


VDVORTITSl : -99. 


XVZ24630 

46S. 


IV = 1 


XYZ24b40 

466. 


CO TO 650 


XVZ24650 

467. 

C4*4 

♦♦♦000 PASS SNALL EtEMENT 


XV Z? 4 6 60 

468. 

600 

AXl = AXl ♦ FVl ♦ FVl 


XYZ24670 

469. 


AVI = AVI • FV2 ♦ FV2 


XYZ24680 

4 70. 


VCVORXasi = -99. 


XYZ2469D 

471. 


VOVORYIISI - -99. 


XYZ247DD 

472. 


IV = D 


XVZ2471D 

473. 


GO TO 660 


XYZ24720 

4 74. 

C**4 

♦•♦LAST PASS SNAIL ELEMENT 


XYZ2473D 

475, 

610 

IF < M .NE. Jl .OR. (BON .NE. 0.0) ICO TO 620 


XYZ24740 

476. 

C444 

•♦♦I = J ON BODY 


XVZ24750 

477, 


AXVIJI = AXVIJ) - YTJ2D • ILIJ2D / V2(II 1 * lAXl * 

FVl MSI 

XYZ24760 

478. 


AYV(J) = AVVIJI • XIJ2D « (AVI • FV2I0S1 


XY22477D 

479. 


VCVORXdSI = -99. 


XVZ247B0 

T8o7 


VOVORYdSI = -99, 


XYZ2479D 

481. 


AXVJ = -Y1J2D ♦ (UJ20/Y2(III * (AXl*FWll*Sl 


XVZ2480D 

482'. 


AYVJ = XIJ2D ♦ (AY1*FV2IVS1 


XYZ24810 

483. 


GO TO 630 


XYZ24B2D 

484. 

C*4* 

♦♦♦I NE J OR ANY OFF BODY 


XYZ24e30 

485. 

620 

AXV(J| : -Y1J20 « (LIJ2D / V2II) 1 ♦ (AXl ♦ FV1I451 


XYZ24840 

486'i' 


ArViJf z XIJ20 ♦(AVI ♦ rvzi^si 

.... 

XV224850 

487. 


VCv6rX(TS) = -99. 


XYZ24B60 

Cb57 


VOVORYdSI = -99. 


XVZ2487D 

489. 


AXVJ - AXV(JI 


XVZ2480O 

■VQiVI 


AYVJ = AYV(JI 


XYZ24890 

491 . 


♦••X4 = 560 FOR SURFACE VOBTICITV PF TRUE 


XYZ24900 

4957 

~TSS 

GO TO K4,C 640 , 65D 1 


XY22491D 

493. 


♦♦♦FLOW or CONTROL REACHES HERE IF PF IS TRUE 


XY224920 

494. 

640 

AXIJI = AXV( Jt 


XYZ24930 

495. 


AY(J) - AYV( Jl 


XVZ24940 

496. 


VDVORXdS) = -99. 


XYZ2495D 

497. 


VOVORYdSI = -99, 


XVZ24960 

5757 

65o 

IF (irC. £0.-11 GO TO 700 


XY22497D 

4 99. 

660 

IF (T21,LT.0.O6IG0 TO 680 


XYZ2498D 

5IJU7 


120 : SORT! T2 t (T1 ■* T4I I 


XYZ24990 

501 . 


IF (T20.lt. 0.01) GO TO 670 


XYZ25DDD 

5o57 


T13 :: YJ * Y2m^9r 


XVZ250 10 

503. 


714 = T1 ♦ T8 


XYZ25Q2D 

504. 


T15 :: T2 ♦ T1 


XYZ2S030 

SOS. 


T16 = 714 ♦ 714 


XYZ25040 

506. 


T17 = 71 ♦ YJ 


XYZ25050 

507. 


Tie = T1 ♦ T1 


XVZ25060 

508. 


T19 = 78 • TS 


XV225D70 

509. 


F3 = ( T7/T13 I ♦ ( (-T14I ♦ EEK * ( (IT16 - T15I4 

rXKl t T6 I 

1XYZ2508D 



F3 =(T3 / (T17 ♦T?l 1 ♦ ( (L'EK / TIO 1 ♦ (716 - 3,0 

• T15) - 

XVZ25090 

511. 


1 (T14 • EKKI 1 


XVZ251 DO 

512. 


TEMPI =( (-a,D^T8*^3) - ( 12,7'4T1 •! 1 9) ♦ ( 26 . 0*T 1 5« T8 I 


XYZ26110 





570. 

571. 

572. C 

573. C 
57<t. 
575. 


576. 

577^ 

S7S. 

579. 

SSO. 

581. 


URllt 16, BOO 1 AXJi A YJ,CKJ,CYJ|C7 J,AXVJ,KTVJ 
RtTUKN 


79D FORNATl^Ha i- ,7X , HUKRINCi ,6K ,5H7RI NG,1D X.6H7D A*I X , 7X , 6HV0 AXI Y, XV7267J0 

i iax.6HVOCRBX.7X.6HVOCR5Y.7X.6HYOCRSZ.10X.6HVDUORX.7X.bHVCVORY// XY22574Q 


2 UH tl3,2F13.5,3X|2F 13.6,3X,3n3.6,3X,2ri3.6n XY7257B0 

600 rORWATlZRHaRCSULTS OF 5 IMP‘SON»RULE ,9X , 2F 13 . 6 , 3X . 3F 1 3 . 6. 3 X . 2 F 1 3 .6 , XYZ?5 76^ 
1 /1H37 XY725770 

610 F0RWATn2HDXY72. 1=,I3,4H, J=.I3,SH, N1=,I3,5H. *7ZJ5_780 

1 5H, DS=,riD.6,7H7 X( n = ,FlD.5,7H, YIU=,FID.5) ' XYZZSfRO 

CND XYZ258D0 





i.c 

_3. 

*' " «r.* 

S * 


, r^MMON 
7. COMMON 


B. 

9. 

lo; 

11. 

-~xr . — 

13. 

"’111." •“ 
15. 

■ " It. 

17. 

—mr'' 

19. 

■■" 20'.' 

21. 

22 V 

23. ID 


25. 

— 2t; 

27. 15 

r "-gFr 

29, 


Program CQHBYH ' 

IHC M>1N PROCRAH FOB APPP OACK 5 C OHBY N . 

COMMON /MONOf/ JJS.JJ 

COMM d fj / R DO'U f <i / N TH E T A , T MET *ll0l,XTESTil01 , S ,Ts ii IF 
COMMON /0SEE30/ R AND 1 90D, 1 D l.REXI^DD ,1 D 1 ndPLOT 1 10 1 
■'rdMMON"XNlN/ KOFFf200 1 ,TOF F I2D0 » .NPMIN .NCUO.NCHr' 
COMMON /RDOUTl/ XON ( <t CO I ,VONI 9D0 1 . NSPE 110 1 , NSPO ( 1 C 
1 T N ,"»I SPL't , YU I'N G 

COMMON /RDOUT^ T 1900 j2JjVYAX I20D ,2 1 ,VYCR 12^0 I , V2 I 

IR'liibO"! " *“ “ "" ■ 

COMMON /ROOUI3/ VXAX< 200,21,¥XCRI20D1 
"common >RC'dNTiV“Vc,VlNF ,ALFAF,ITOTAL,CLND, VA^pf.Cl 
COMMON/CNTRYL/ YTESTH,YTESTS.N01,N02,0N3 .0N9.0N5 
COMM'dlj /CdUTiV OCA'.PTC.PSP'fcl.p'lOlbD^ATbtAL.GRMO 
COMMON /COUT2/ VI NFP , RHO TO! ,V1C __ 

COMMON /GFf 'OUtV VPAG < 31 , ALI LisCiC , cClL 

COMMON /TOUT!/ SINTM.COSTinOMEyi _ _ 

“CdffrfO'R VrconT?/' p£^^ ,NX ,kn67yri hub , yri 

COMMON /RSAVE/ XDUM 19 DO 1 , YDUHl 9D0 1 ,XA FF 1 200 1 , Y AFF I 
i ,MO,'JA,IRVNRUNN6,M02,JA2,in2 " ~ 


rlSUlRLKlQOI A 
CA^SE A 

■ ""‘T 

, XRI fNHUBMXfNTHA 
A 

I0I.V319D0I ,VZCA 

A 

A 

i'FF * a" 


IR.UTIP 

10) 


COMMON/0OO/OELQ 

■■ 'I'CAStrO * 

ID CALL READS 

v'S'A'vrsViRF 

IF 1 VINF.EO.O.O) GO TO 15 

nw=yrfrF<-ri vo=;2+rviNf/ATdTALi**2T<«i^s 

15 VCSAVE=VC 

'tfc=Vic ■ *'■ 

CALL GETA8C 



VINFPrVINF 

■'"■F!«r=vsm‘ 

WRITE 16 ,35 IV MAGI 1) , VMAG12I ,AL1L,8LTL,CLIL,VINFP 

■“cyii' 'A"vtr '■ 

REUIND 2 

'■ — ftE«¥(r"3* 

00 30 N=l,NTHCTA 

■' Wl?I T£ 1 6 , 9 aTN';¥r hTT-A " 

READ 13) WDOTT.jrlCT _ __ 

’if" 1NX,n¥V-V|' GO f6"2b • 

UR1TE19) VC.VINF, ALFAF.TTOTAL 
*' uTlte 19)'' THCt'AlN 1 ~ 

20 WRITE 16,95ITHETA1NI ,WD0TT,VICT,VHAG13» 

1'* ‘iNTMETA.tCl .O) uTllt C ‘ 1 brzsViSMIRL * ‘ ' " 

25 F0RMATI91HD 3-0 STREAMLINES laLL BE FOLLO^UEO BEGII 
lUE OF THt'tA ,' NEAR THE FAN facet T= " ", 19") 

THETAlNl=THETAlNI*PI0 1flO 

“ SINTH=SINlfHETAiN»)'"'" " 

CSINTH=C11L*SINTH _ _ _ _ 

‘ CdStHiCdSiTMETAlNl) 

CC0STH=CL1L*C0STH _ _ „ _ _ 

OMEG A =UT IP/ Y f ES't S ' ' “ " 

CAU. ONOFF _ _ 

3D' CONTINUE 

IFlNX.EOS-ll call INFR« ^ 

GO to ID " 


NG AT THIS VALA 
A 





sa.c«*« roMATs 




60 .C 

"ill — ^asnr'fi *f>«TTir?H — n — n a 



C VrNFP / 5 XtlP 6 tm» 3 l 

n H(Tpiir;r?';?Trir'Tr 27 TH~fifn 7 fs — 


6A. AS roRHAT (SX.eHTHClA : «Eli?.S»t3H VDOTT = •tPC12.5,12H 

“S5T i"7n»nif7*i7i off rs ^“npTreTsi ' ‘ 


66 . END 


A 

05 50 

A 

DSbO 

A 

0 S 70 

A 

D 580 

A 

D 590 

A 

0600 

A 

0610 

VICT A 

0620 

A 

06 30 

A 

06 A 0 



"So.lfSlfft 

1. 

3* 

.. 



rUNCflON ARSINIXI 

TRSlN=«IN*ili 

RETURN 

END 



‘nToCl 76 



IT) 
DO 00 
b'D 10 


J? _P020 
V ' 0030 





‘"SiS.’AVfcRV' 

1 . 

2”.C ‘ 

3.C 

t'. C " 

5« 



7. 

""‘"57 

9. 

TDT’"* 

u. 

HT™ 

13. 

« I'jj— ' 

IS* 

" i 6 7 

17. 

^ ■ 

19. 

20 r 

21 . 

'’22. ' 

23. 

— 2r. ■ 

25. 

26. ” “ 
27. 
2a; " 
29. 

3irr” 

31.' 


SUBROUTINC, AVEy 
APPROACH S 

COHMON /MONOF/ aJS.JJ 
■ tOMKSTJ >ROOU f i / * ON < « 
UNiNSPLT.YUlNC 

""comm'on '/nin> xoff'uoo 

COMMON /R00UT2/ TIMOO 

"IR C2(D0» 

_COt^N 
COMMON 
COMMON 


02 FCO 77 
G 

■ ■ ' G 

G 

G 

— 

D0» ,,ydNr4bb“»,'NS>E7lOi.‘NS>BI 10) , XPI ,NHUBHX,NTMG 

G 
C 

,VZCG 
G 


I.YOFF tZDOl.NPHIN.NCLO.NCHT 
,2J[j,yyAX «20G ,2 I ,VYCR(2PD ) , V2 ((tOO )»V 3(A00 ) 


VXA X < 
NTHCT 
KANG ( 


32. 

33. 
■34. 

3S. 


/RDOUT?/ 

/'rdoutT/ 

/0SEE30/ 

fc'BMMONVro RCC7 Si 4 To I , 
lVX(10D>.VI10g)*X(lDO) 

COMMON /rcontV/' vc,v r 
^COMMON /RC0NT2/ PSTAT 
COMMON /CbUt 2 /' ViNFp'7 
COMMON /GClOUt/ VHAG) 

■ C OMM O N /C N TR V L / V T E S T H 
DIMENSION IGEGiN(25)* 

lOBARi ROD I RBROFF I2D0 
dimension 1C0I25) 

"REMIND 2 " ”■ 

remind 3 
Pir3. 14159265 
P10180=PI/1B0. 

■ 174 

AC=P1*IVTESTS»»2-TTCS 

"IftfriL =4*9 .*SQRf il" tort 
FACTR = <14tt./G)/RH0T0T 
' NSHRiNtMlN-NHUnHX'M 
NBP1=NHUBHX’* 1 

I F I N I HCt j( , E ttTbTi C AS E = IC A SC ♦ 1 ‘ 
lPL0T(lCASEl=a 


^D,2) ,J)XCR)2Q0) 

A , THE T A I fb'»7x 1 ESf «1 D >Vn , 1 5 W I RL , T SU I RU 4 00 
400,10),REX)4 00,10) ,IPL0T UO ) .1 CASE 

VofrsiGDOi, VRCS(IOO), 

.NRI 

Nr*At.rAr,TT0TAl,ELN0,VA.P1 

.TSIAT ,MD0T,NX,KND,YRI HUD , VRISH R iUT I P 

RHOlOT.wic 

3) ,AU L.BLIL.CLIL 

.YTCSTStNOfMET 

VHARtMDD), A(4D0), VBAR0F(2Cai 
), RII0RU400), RBFORH200) 


TH**21/^<*, 

LI 


36. C«*«4« 

37, C*** find the high-light ON THE SHROUD 

— 

39^ _ DO 10 I=NBP1,NTMIN _ „ _ 

4*0. “ "“jjzi" 

41. IF 1XDNm.LE.X0NII*^l II GO TO IS 

■' Wtl Io'contTnUe ^ 

„ ** 3 .C* 

44;c’****''M0WFt CATTdN' F0R SPLiTtCR 70 F1Nd'‘THC LAST POINT ON I Ft SHROUD 
45 

46. ■ r5*bb' 20 l=’Jj,N''fHIN - - - 

47, JJSrI 


48. IF (XONf H.CT.XONTT+l M GO TO 25 

49. __2Q_C0NT1NUE _ _ 

50. C444**" ~ « • — - ; 

5 1. C» »4 FIND AREAS FOJR POINTS ON THE SHROUD THEN INTERPOLATE FOR ALL 
OTHER P'dl NTs' 


52. C««« 

53. C **44i» 

54 . 25 * NHUBP i’=NHtfDMX' 7 l 

55 . _ IF INSPLT.EQ.OJ GO TO 35 

"567* Do '3b'lN=i 7 nsplt' ' 


C 

C 

6 

C 

C 

G 

C 

G 

G 

G 

RHG 

0 

C 

G 

G 

G 

G 

C 

G 

G 

r. 

G 

G 

G 

G 

G 

G 

G 

G 

C 

c 

c 

6 

G 

G 

C 

6 

G 

G 

G 

G 

G 

G 

G 

G 

G 


IS 

GOOD 

on 10 
0020 
003D 
0040 
D05D 
00 60 
0070 

00 BO 
0090 
OIDU 

01 10 
01 20 
01 30 
014C 
0150 
01 60 
01 70 

01 BD 
0190 
0200 

02 10 
0220 
02 30 
0240 

02 50 
D2 6C 
0270 
0280 
0290 
0300 
0310 
0320 
0330 

03 40 
0350 
0360 

03 70 
0380 
D3 90 

04 00 
04 10 
04 20 
04 30 
0 4 40 
04 50 
□4 60 
04 70 
0480 

04 90 
DBOO 
0510 

05 2D 
0530 
0540 
0550 





'■'St. if£)riNT=NSPBliiN» i i-V" ' 

SB. 3G ir (IN.CQ.NSPLTI ICD ( IN I ::N1 HIN 

- 

60*C««« riND ARCA FOR CVCRV POINI ON THE SHROUD 




62, 

'^ASV 

64. 

60. 

66 . 

67. 


35 DO SS ]::NHUDPlrJJS 

"• "Ts=T6Trrn — — , .. 

AS=KONnt 

tr'nvct i.PJt 'GO "TO so ' ■ ” 

ARS=C.O 

" * ir'TusFcr.Eo .ct ■ GO — 

6S 

r9*;i***'’rr'tHffRF"rRE'"SPn^ subtract area o? splitters Troh overall 

7D. €••*** 


7!. 

72. 

‘73. 

74. 

■7ff. 

76. 

77. 
70. 
79. 
ao. 

'Bl. 

62. 

'83. 

64. 

as. 

86 . 


40 

45 


5D 


00 40 IM=I,NSf^L'T” * * " * ' 

NSO=NSPBTIN» 

'NSE=NSPEilN» ■ ■ ■ ' 

ir IXS.LT.XONtNSET.OR .XS.GT.XONINSBtl GO TO 4 Q 
’Call 'ST’nTp i ioWVfj sCri yopTinSd i ;nse-nsb» i , xsTYSp-i r 

CALI SINTP (XON(NSE) ,Y0NlNSEI,lEDtIN»-NSE,XS,YSP2l 

ARS=Pi Al YS'P2**2-Y5P1>*2 r«ARS " 

CONTINUE ___ _ „ 

c Alt sTn T P i KcN‘; YON , NHiiaHx , X5 ;yhi ' ~ " 

Ant=PI* «YS*#2-YH«*2l -ARS 

'Go-riT'sr"’ 


»*Pl*R*IR+X5-XON( JJ» » 


R=SQRT|YS**2*IXS-*X0NC JJI »**2» 

RAD2*tf=fowrjjsr-toNTi Jjr" — — 

IFIRAJI^ZAK.EQ .D.IRAD2AK=.0DDl 
* A ri I = ( i . 0 ♦ I Y 5 “VON ( J J I *»7r ADZTh " 
ir (At I I.LE. ATI-1 >) All l“AII -11*1,05 

55 - 'fOfiTlWE " : 

fi8.C****« 

89. C*** "INTERPOLATE ATPEA£TRbT’THt‘ WlT37ir'oH' THE sWOUl) TO OlJTAlN 

90. C**4 REHAINING AREAS 

91 ."C‘**464" ■' " — 


92. 

” 93 . 
94. 
'95. 

96. 

97. 
96. 

100 . 
10 1 .’ 
102 . 

103. 

104. 
TfiS." 

106. 

'107. 

108. 

109. 

110 . 
11 ." 

112 . 

113 . 


TO 65 


(X 0N(NNU8P1I,A(NHUBP1>, JJ-NHUBMX,XA, AXI 


NCNTMrO 

— DC T5 1= r;WT'Hrfir"‘~“ 

IF (I .GE.NHUBPI.AND.I .LE.JJSl 60 
IF (XONTl l.LT.XONtJjmJtTTdT'SO" 

XArXONtl t 
CALL SlNtP 
AID^AX 

GO "Id 65' 

60 NCNTH=NCNTH* 1 

65"' CONTi NUE ■ " 

70 00 140 N=1,NTHETA 
IFtlSttlRL.Nt.Ol 
11SUIRUISU1RL»=THETA t II 

* tr(NfH"£7A .ES."orCACL ■'rRTNE>XON, YON,WfrYRlHUD,YRISHR,*NKJBliXTNTfriN 

II 

■ THET A rm =TH£ T‘A (in ipTd‘180"' ' 

CO5TH=C0S(THETA(Nn _ 

CCOSTH=CLIL*COSfM " 

sinth=sIn(Tmeta(n n ? 


CSINTH=CLIL*SINTM 

V1CT = VIC*CL1L*VHAG(3 1*C0STH*(JhN0THET J 

troot t =c*RH 0 T6 T*yY cT * A C ~ 


G 
G 
G 
G 
C 
C 
C 
G 
G 
C 
■ G‘ 
G 

ARC' 

G 

G 

G 

G 

C 

G 

G 

G 

G 

G 

C 

p 

G 


G 

G 

G 

G 

C 

G 

G 

G 

G 

G 

G 

G 

G 

G 
' G 
'G 
G 
G 

,S'G 

G 

D 

G 

fi 

_ G 
*~G 
6 
G 


0560 
DS7D 
0580 
0590 
0600 
06 10 
06 20 
06 30 
0640 
0650 
06 60 
0670 

06 no 

0 690 
0700 
0710 
0720 

07 30 
07 40 
0 7 50 

07 60 
0770 
□'7 BO 
0790 

08 00 
0810 


0820 

'08 30 
0640 
08 50 
0860 

08 70 
0880 
"O'0 9O 

09 00 
O'9'IO 
0920 
09 30 
0940 

'T9 So 

0960 
'0970 
09 80 

09 90 
1000 
1*6 ID 

10 20 
16 3 0' 
1040 

ibso 

1060 

‘foW 

1080 

1090 





"Tjc; f rctffft=rAct*» ffptforf 

nS« If «HCNTH.E0.0» CO TO «1 _ 

"■lie. *lWA=if»iFP 

tlT, lflVlNFP«E:Q^0.IVJNr« = l*C-6 


118« AINrP=F«CrOR/VlNM 

119« DO 75 Irl.NCNTM 

-mr~ — Mfi= 


75 


121. 

"122; — 

123.jC**M* 

ITa .c W"calcuT*te 
125. 

"nyr 


AIMFP« <A(JJ 

CONTINUE 

NfflE ^ i 3 » TMOyr T .VIC I 


VBAR FOR EVERT POINT ON BOOT 


T?Tffip=infHiN ■ * 

127. SLOPE = IKONI JJS>-XON(Jjn/ITONtJJ5>-TONIJJ>l 

i26.C( HIUHIIH 


G 
C 

■ C 

G 
G 

. C 

1l-AlN^I*TKONn r“VrN?Ti)7« KONliji-VONlillG 

^ ^ ^ ^ . G 

G 

_ G 

" '' G 

. . 0 


129.CMIItmtf ( 
iso.crnrn 


131. Cl I III I 

132. cn III 

133. CIIIII 

T3r.t 


VBAR CALCULATION NOOIFIED 12/20/73 1 1 1 1 1 1 I ( ft Iff 1 1 1 1 1 1 1 M 1C 
AND REVI SED - 3 /3D/75 UJ (illlf I fj f tji 1 1 1 M If M 1 1 ( I t ( M 1C 
POINT IS PAST STAGNATIOn'IVp';gT .01 AND is ON" THE SMROUO, ANC 
VEL. IS Git VIC T, THE N, V BA R= FREESTRE AH . IF THIS TES1G 

“ - ^ 


IF A 

FREESTREAH 


FAILS. VBAR CAN STILL BE SET 
VBAR. LT. FREESTREAH .LT .VICT 


TO FREESTREAH, PROVIDED - 


135. C 

lurt 

137. 

"T3b;“ 

139. 

IRl. 

lif2T- 

IR3. 

"W7” 

IRS. 
"ITsT ■ 

1A7. 

^567' 

1A9. 

“TVo';- 

151. 

152. 

153. 

rsAr* 

I'lS. 

157. 
"I'se. ■ 

159. 

m. ^ 

161.C 

'TO.'C 

153. C 

'i’f.v;'’ 

165. 


ON60DT RHOBAR AND VRES CALCULATIONS 


RRSRTF=RMOTOI*ll . 0-.2*l¥INF/ATOTAl »**2»**2.5 

—RTORTCST 1 .TJ-;'2«'VmT 0Tm«2i ••2VS " " 

DO 100 I = l,NTHyi _ 

fP^LlC*tTi;n*BtlL*TftV2l>CCOS77tr^^ i 

VTH=CSlNIH*W3m 

""IF l»JTMETA.Tir.1D;'0ir.lTlE."lSMW go' to 65 • 

VEETH=V3ir-l l*CLlL*SlNirsUIRLII-lT<*3. 14159265/160. 1 
“f ciFr ALic*ni -1 rrr*6Lii*Tn^i, g »*ciYL*v7n-i i *co s itsmRLi i -n *6 


13.14^59265/iap.l „ _ 

” SOLO‘=SQR I I i ton! i 'T -ton II -rn ♦♦2 VTxON f I > -AON 1 1-1 1 1 **2 » 
T^IRLII »=TSW1RLI 1-M -SJ>LD/TONIT»*VEETH/veCP/PIOlBO 
"■Stll=sit'-il-SBLD/ABSI VEEPi*SOSf IVrEP**2*VEEYM**2> 
VOrWP-V2IIf*CLlL*CCOSTH-COSITSfnRl 111*3.14159265/180 . M 

""Tftvo ; tt; r; 3 *veep;and rvo ; li7o; i vo=-teep'* 

JFIVEEP *V0 .LE.O. TSI1I=S0L0*SI1-1T 
ITIrTEEP *90 ‘**VlT;o. »iSwiRLlT»=ISRiRLn-r» ’ 
VP£yP-V7m*CLIL*IC0STH-C0SlT^NlRLII»*3.14l59265/ie0.n 
' VtH=WtH*SiNrt5Wl'RL(I»*l.'in59265/ieG;V/n^^ 

IF IXONlIKCr.KONMSUl^T^GO TO 85 
"lPLOtiyCASEi=YPLdTliT« ■ ■ " 

1C0UNT=IPL0TI ICASn 

" r'angi icountYicase i=tswiftu i 

REXIICOUNT.lCASE J=A0NI1T 

IFlt .’GT . JJlREX t l COUNT ,iCASET=-REXI ICOUNT ,iC ASE t 
WiGINAL VFESON ' ■ ' 


85 


VRESON=SORT( VP**2+VTH**2I 
_ RESVWrVRESON 

166, C|YIIII NEW TEST - ‘ 

1 67. _ IF IVP.GT,D..AjJD.VlNFP.NE.0..AND.I.6T.NHJJBHX.AND.l.LE.JJS.AND.VlNFG 

168. ""iF.liE.VICfi "g'o'TO'' 9D“ — — - - - ” G 

2^.C G 

'170;C ’ APPROACH 5 VRE^ON ' G 


nod 
11 10 
1120 
1130 
1140 
1150 
1160 
1170 
it BO 
1190 
1200 
1210 
1220 
12 30 
1240 
12 50 
12 60 

12 70 
1280 
1290 
1300 
1310 
1320 
1330 

13 40 
1350 
1360 

13 70 
1380 
1390 
1400 

14 ID 
1420 
1430 
14 40 
1450 
1460 
1470 

14 80 
1490 
1500 
1510 
1520 

15 30 
15 40 
1550 

15 60 
1570 
1580 
1590 
1600 
1610 
1620 

16 30 
1640 
1650 
1660 







172. VOARtlirFACIOP/MIl 

'f T j .' ir fvtisft i I » . LI ,<» fNF Fisssr»iNfnpincf.¥icfii rvi n f^.nc . o .. and . i . gi 
17«. lUGHXI GO TO 9D 

nS". * ■ C*LL VGARIT ■* VSlR tiT.TTbtAL .ITHOf OfVRHOBARl 1 1 1 

176. CO TO 95 

"ITT.^' 90 VB'ARtn=VttirF-*“ 

17B. ftNOGAFlII^RRSRTF 

‘^179. 9S 'ft60ftHll=R«6BAR'(I l/AftoTOr^^ ' " 

lao. ¥RC50N=VRe50N«il .Q/RBORT II I I99IVRES0N/9BAR I Tl I 

'"181. ¥P=VRtSOtt*WP/l»ESTlV * ” 

182. »TH=VRC50N*VTH/RE5VV 

"1^ 3 . '~BR1TC "m"VR tSON , VR',’V7M ^ 

lAA. ICD CONTINUE 

"I8S . ' ¥RIT£ ‘ 12 » I rnwri IVRBMTII TTinf 

186. C 

T87.C ~ OFF BOdV'PbiNfS »"Ano' VgAR - 

188.C . _ _ 

190. 1BCG1NIJ)=1 

Tbt.‘ * nrakes=i "" " 

192 . DO no I = 1 .NPN 1 N 

193. ' IF IAB5r*bFriI «l l-AOFFinriGTT.tflF'GO 'fb’ ioS " 

199. CO TO 110 

■'V9S; 105 IF li;E6.NPMIfir'6« 76 'UO ' 

196. J=J*1 

■•197. :' ieF 6 r«i;n=i[«r' ■*■ ■■""■'”* 

198. NRANES=J 

199 . no cflNnMUE • ' — " “ ■ ' 

200. 00 130 ISI.NRAKES 

"'2 0 1 ; IB =rfi EGi M ir — • ■ v ■ ■ 

202.C*«9«* 

■2D3.C‘9*'li FlNO APE* FOR OFF-BbOV rIKe's * ' 

209.C9«**9 

205. IF tXOFFIlBl.lE.XONfJjn 60 TO'liS ' ' 

206 . CALL SINTP I XONI NHUBP M .AINHUBP 11 . JJ-NHUBNX ,XOFF I IBl . «R I 

'207,''* ■'■•*■' 'e-o"T6 '120 - ■ 

208 . 115 AR=AIJJI 

209. 120 Ve=FACTOR/*R ' ' - ~ • 

210 . C«FL VBARIT f VB.ATOTAL.RHOTOT ,RHB) 

211. * iF=IBEGlNlltil-i ' 

212* IF 1 1 .E0.NRAKC5I IE = NPNIN 

"213. b'0 l25 J=IB;1E ’ 

214 . VBAROFUI-VO 

' 2 'i 5 ^.' RbROrFilJIrRHB 

216. 125 CONTINUE > 

217. 130 CONTINUE * " * 

218. DO 135 I=1.NPNIN 

"219. t" ■'■ — ‘ - 

220. C ORIGINAL VRESOF 

■221. C ■■ — r-"- ;-■■ 

222. VXC=*LlL*VXAXfI.l )^0LlL*VXAXIT,2l«CCO5TH*VXCRm 

223 . VVC=^ALiL*\iyAXfl. l l♦DLlL♦VYAX«F■.^^♦CCbsrH•VYCRIl» 

224 . « 2 C=CS 1 NTH*V 2 CRI I) 

■22S‘. ‘jRESbf =s6PT'i VXC**2*VYCi*2*V'ZCii2i ‘ 

226. RtSVV=WRE50F 

227. C ■ 



Utd 

6 

1680 

r.NHG 

1690 

c 

1700 

c 

1710 

6 

1720 


17 JO 

6 

1740 

• 6 

1750 

C 

1760 

' C 

1770 

c 

1780 

' 6“" 

‘11*90 

c 

1800 

■ c " 

"1810 

G 

1820 

C 

1830 

0 • 

1840 

c' 

'18 50 

G 

I860 

C 

18 70 

G 

1880 

G 

1890 

C 

1900 

G 

1910 

G 

1920 

G 

19 30 

G 

1940 

G 

1950 

G 

1960 

C “ 

1970 

C 

I960 

G 

1990 

6 

2000 

G 

ZDIO 

G 

20 20 

C 

2030 

G 

20 40 

C 

2050 

C 

2060 

G 

2070 

G 

20 80 

G 

20 'JO 

G 

2100 

G 

2110 

G 

2120 

C 

2130 

6 

2140 

G 

2150 

G 

2160 

G 

21 TO 

C 

2180 

6 

2190 

G 

2200 

G 

2210 

G 

2220 

C 

22 30 



^30 


226. C 


approach 5 VRCSOF 

r> 

2240 

229. 


RPFORTM l=RBROm I»/RH010T 

0 

22GD 

230, 


vRCsorsvRi:sor«n .o/RuroRTm>*«tvRC$oF/vuARorn i > 

6 

22GD 

231, 


VyC=VRCSOF*VXC/RCSVV 

C 

2270 

2S2, 


WYC=VR£S0r*VVC/RC5VV 

0 

2260 

233, 


VZC=VRCS0F*V2C/RCSVV 

C 

2290 

239, 


URITC (31 VRTSOr , VKC, VVCfVZC 

C 

23 00 

235, 

13? 

CONTI NUF 

0 

2310 

236, 


WRITE (2HVBAR0F( I »,RBFORT (11,1=1, NPMINJ 

G 

232C 

237. 


THETA (NI^THFI A(N1 ypIO 16 C 

C 

2330 

2 36, 

140 

'i:ONTlNUF 

G 

234C 

239, 


RETURN 

G 

2 3r»D 

240 . 


END 

r. 

236U 



^ 3 / 


SOiBCFORCt 

19 OLT 76 

12 

1 . 

SUDROUTTNF OCFORC <PSO PTC ,PSOPT » 


K 

OODCl 

2. 

COMHOK'/ROW/RHOST 


K 

00 10 

3. 

COHPON /RCONTl/ VC,WlNr,ALr*F,TTOTAt,ri.ND,Vrt,PT 


K 

DD20 

M • 

COMMON /RC0NT2/ PSI A T ,TSl AT ,UOOT ,NX .MNOtYRI HUB , VR 1 5H R ,UT 1 P 

K 

00 30 

S. 

COMMON /ROOUTl/ XON ( 9 CO 1 ,VONI 9 00 > ,NSPE U 0 1 ,NSPB U C> , *RI , 

NHUBHX.NTKK 

0090 

6 « 

iiN.NSMt.ruiNr, 


X 

0050 

7. 

common /COUTW QCA,PTC,PSPTCI,PIO18f,AT0TAL,GRH0 


K 

do 60 

a. 

COMMON /ONOUT/ VRESON T9 001 , VP 1 90D > .BET AON( 9 00) 


K 

0070 

9. 

COMMON /NIN/ KOFF(20Q l,YOFr (2001tNPMlN,NCL0,NClM 


K 

00 80 

10. 

COMMON rvoUTf/ P S OPC < 100 ♦ , PHI 1 1 1 CC 1 »ZrTA I ( 1 00 1 , V Y I U C Cl , 

CPC(IOD) , 

VK 

0090 

11. 

IZinOO), VMICICO) , VATT jnco) .VSPANHIOOI.ETAM 100 » 


K 

0100 

12. 

COMMON /RD0UT9/ N THCT A , tliCT A 1 ! 0 1 ,* TEST 1 10 1 


K 

0110 

13. 

COMMON /Force/ si9'’oi , YArTt2no> ,vxci2cni,VRESor «2or> , vres i luo) , 

X 

01 20 

19. 

IWxnOQIvYllDOl.K ( lOO) ,NRI 


K 

0130 

15. 

dimension PSOPTCl ll.PSOPHll 


K 

0190 

16, 

DIMENSION P50P(900) 


K 

0150 

17. 

EOUIVAtENCE 1 PSOP U > , PSOPC U 1 1 


K 

0160 

18. 

IKECP=0 


K 

01 70 

19. 

DO 10 II=l,NHUt)MX 


X 

0180 

20. 

If (XONUIl.CT.XTESTT 11) GO TO 1C 


« 

0190 

21^ 

IU;.EP = II *1 


K 

0 2 00 

22. 

10 CONTINUE 


K 

02 10 

23. 

WR1TCI9I IKECP 


K 

0220 

29 ; 

URtTE(9) (XbN(I2) ,YON 112),PS0PfCiI2), 


K 

32 30 

25.. 

IPSOPT (12), 


K 

02 90 

26. 

2 S(T2),VRES0Na2),I2 

-l.lKUP) 

X 

0250 

27. 

1KP=C 


K 

0263 

28. 

NHUBPUNHUBMX-n 


K 

0270 

29. 

DO 25 I3=NHUBP1,NTM1N 


K 

0280 

'30. 

ir (IKP.EO.l) GO TO 25 


K 

0290 

31 . 

IF «Y0N(13) .GT.YUING) GO TO 20 


X 

.0 3 00 

32. 

IF (X0N(i3),6T.XTE5T( l).AN0.XbNU3«l).LE.XTESTilH GO TO 

15 

X 

03 10 

33. 

DO TO 25 


X 

0320 

39 . 

15 1BGS-I3 


X 

03 30' 

35. 

GO TO 25 


K 

0340 

'36. 

20 iN0S=t3 


K 

03 50 

37. 

IKP: 1 


K 

0360 

38. 

25 CONTI Nur 


X 

0 3 70 

39. 

KLIM=INDS-1BGS< 1 


K 

0380 

90. 

WRITE(9) KLIM 


K 

0390 

91. 

WRITE(9) «X0N(19) ,YON M 9 1 , PSOPT Cl 19 1 , 


K 

0900 

92. 

lP'S0PTfl9), 


K 

09 10 

93. 

2 . S(I9) ,VRES0N(19 1 .19 

=1B6S,1NDSK 

0920 

99 . 

17 


K 

09 30 

95. 

RETURN 


K 

09 90 

96. 

ENTRY OFFORCIPSOPTC, PSOPT 1 


X 

09 50 

97. 

KKT=NCHI -NCLO+3 

. 

K 

09 60 

98. 

WRITE (91 KKT 


X 

09 70 

99. 

UrITC (9P X (NRIJ ,y(NRI) ,VX(NRT) ,«RCSINRI ),PS0PC(NR1 1 ,PSOP(NRl j . 

X 

09 80 

SO. 

IVAFTKNRI) 


K 

0 9 90 

51. 

WRITE (9) (X0FF11S),Y0FFU5) ^VXC 1 J S 1 , VRESOF ( 15 1 ,PS OPT C 115 1 .PSOPT (1 5K 

0500 

52. 

2 1 


X 

0510 

53. 

1 ,VAFT 115 1 ,I5=NCL0,NCH1) 


K 

0520 

59 . 

NRl=NRi+l 


X 

0530 

55. 

WRITE (91 X(NRI1 ,YCNR1) , VX ( NRI I .WRESINRII ,PS0PC C NRl 1 .PSOPCNRll , 

X 

0590 

56 • 

IWAFTl (NRIl 


K 

0 5 50 



.... ^ 

it. ■ ’‘fellURN 

58 tNp,„ . 


N 0550 
N 0570 





tWr-FARFrCL 

1 

i 

3 

i-' 

iS 

7 

■“■ 8 • 

9 

TO - 

11 

" — "rz 

13 

ic' ' 

15 

■ 

17 

“"'Te 

19 

‘ 

21 

22 ■ 

23 

ZC'"' 

25 

26 

27 

— * *28 

29 

10 

51 

32 " ■- 

33 

— ‘ 3ij - ■ 

35 

""'— 36 ' ' 

37 

38 

39 

40 

41 

■'4 2. ■■ 

43 

44 •' 


conHoN 

COHMON 

COMMON 


45 



■ 4 6 
47 


■ ■ j 

1£ 

„„„ 'jj-g- 


49 

■•SO 



51 

52 

53 

5V 



55 



56 


€••••• 


• 5-0RCl2ltii.C6.NSUN' ■' * ' ' ' ‘ ‘ " ^ 

SUBPOyilNE CONST 

C ■ ^ ' 

C THIS SUBROUTINE CALCULATES MOST OF THE CONSTANTS USED IN COMBYN 

■•£ ■■ ' '*■ — :* ‘ 

COMMCfUROW/RHOST 

C6hP56^< /fiCOhTl/ 'ilc;ifiNFV)iC^*TfTfbTAL.EL'li’6;Yjl,>T,C0TbCF * 
COMMON FNIN/ XOFF 1200 )«YOFrf 2001 tHRMINtNCLOtNC MI 
COKHbN/FLAGS/1 VORT.IbCOiiVfS'lGtlCORViNbNENFiTDCNT 
COMMON /RC0NT2/ PSTAT .TS TA T ,HOOT tNX ,HND tVRIHUB ,TRI SHR.UTIP 

COMMON/BOM/MOOTCR ' 

COMMON /COUTl/ OCA,PTCtPSPTCI,PIOI80,ATOTAI.tCRMO 

?C6Ut2/ VtNrF;'RMbt6t,VlC " ‘ ‘ ‘ ■ ' 

/URT/ KSNIP,NT«2ltNP(2T 

/RDO UT4 / N THE r A t THE T A < IQ T ,X tC S T 1 10 ) . lift I SVl R L . T SU I RLl 4001 
/RDOUIl/ XONf4 00ltV0N<4OOttN5PEIIDI«NSPeil0 ItXRItNHUBHX. 

1IN,NSPL.T,YMING '' ' " 

COMMONFCNTRYLF YTESTH,YTESTS,NOTHET,lCTLPT,VCP iVCPBAR .RHOCCP 

real MC.MA.MrNr 

PT=3. 14159265 
R2 1568 =171 5 .63 
G=t32.174 

REWIND 4 . - 

PSTATC=PSTAT 

PI018'0=P1/) 80, ' 

ir (P5TAT.NF.0. 0. AND. TSTAT.NE. 0.01 GO TO 10 

IF TPT .Eo'. 0 .01 'PT= 2 'nr; 22 “ * 

IF ITTOTAL.EO.D.DI TTOTAL-516.67 

ATOTAL.= 49.4SORnTT6TALf ‘ ' 

CAT0T= r,0-.2*< V INF/A TOTAL I YAZ 

PsrATC=pr*CATDT4*3.S T 

PTCrpT 

RHOTOT=PT/<R21568#TTOTAL> 

ISTATrTTOIAL*CATOT 

RH0ST=PSTATcy(R21568*TSTAT> ‘ '' " 

PSTAT=PT-.5*RHOTOT*W1NF4VINF 

ASTAT-4‘R.*S6RT« TSTAT) 

GO TO 15 

ASTAT=49.0*S0RT (TSTATl 
RH0ST=PSTAT/1R2156B*TSTATI 

AM1NF=VINF/ASTAT ' - 

CAHINF=1,0* .2*AMINF**2 
PTC=PSTAT*CAM1NF**3.'5 
PSTAT=PTC-.5*RM0T0T#VINF*VINF 
PT=PTC 

TT0TAL=TSTAT*CAMINF 
RH0T0T=PT7<P21568*TT0TALT “ 

ATOTALr49,* SORT ITTOTALl 
AC=PI*< YtESTS**2-YtEsTH**2»/i44. 

VSONICsATOTAL/1 .728 
WSONCC = AtOTAL/SClRTn.21 
IF IWDOT.EO.O.Ql GO TO 25 
VIC=W06tV(G4RHOTOT*AC I 
VICC=AT0TAL/1.728 

FOR 0. RREUNLIN TAKE OUT FOLLOWING THREE{3» CARES 8/30/71 


C 

c' 

c 

'c" 

c 

T 

c 

'c'‘ 

c 

c 

c 


oooo 
00 lb 
0020 
60 30 
0040 
‘6650' 
0060 
*00 to* 

0690" 

0100 


10 


c 

c 

■ c' 

NTMC 

c 

• c 
c 
c 

c' 

c 

<r 

' c 
' if 

c 

" ■ ' c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

""'c” 

c 
c 
c 
c 
c 
■ c 
c 
c 
c 
c 
c 
c 


01 ID 
0120 
0130" 
OUD 
0150 
0160 
'0170 
0180 
bi?b 

JJ200 

02*1 o' 
0220 
‘of'lG 
0240 
o2'5b' 
0260 
6276 
0280 
6'290‘ 
0300 
6310 
0320 
'63 30' 

0340 
"DS56'' 
0360 
6370 
0380 
0390 
04 00 
■'64 ID 
0420 
0436 
0440 
64 50 
04 60 
04 70 


0510 

0520 

D53D 

0540 

0550 

0560 



cS-S V- 


'67 

C 

iriVlC.LE. V ICC 1 GO TO 25 

C 

0570 

5f) 

C 

VTC = Vice 

c 

0580 

59 

C 

UflOT = RHOTn7*VICC*6C^G 

c 

0590 

60 


C6U VBARIT <vrC,ATOTAL,RHOT07,9MOCl 

c 

0600 

61 

c - - 

- IF wool CANNOT DC RECONSTRUCTCO USING VIC, 7FCN VPARIT HAS LOWCRC 

0610 

6Z 

c - - 

- VIC, ANO VCiVSONIC, and WOOT MUST BC COWFREO TO CHOKING FtOW 

c 

0620 

'”£,3: ■" ■ 


IF (VIC*G9RM0T6T*AC,I.T..999'»W00T| WR I TE T 6 , 11 5 ) WOO T 


C 

6<1 


IF IVIC*G#RHOTOT*AC.LT .'.999*wnOT>WOOT=VlC'fr7*RHO TOT* AC 


C 

65 

c - - 

- IF A CONTROL PT INDEX WAS INPUT, USE PRESS RATIO ISTORED IN 

vc> c 

0650 

66 

c - - 

- A VOAR AND fv’HOBAR THERE FOR A,B,C CALCULATIONS. 

c 

0660 

6 f 


ir (icTLPT.ro. 01 GO to 20 

c 

0670 

66 


VCP = ATOTAL*SORT (5.*( 1 ,-VC**( 1./3.5)) > 

c 

0680 

■■■69" 


POPTCP=VC 

c 

0690 

70 


rcPH=o. 

c 

0700 

7i 


IF (XON( ICTLPII . CC .XONd 1 ICALL SlNTPl XON ,Y ON ,NH UPMX ,X0N4 ICTLPT ) 

,YCPC 

D710 

72 


IHl 

c 

0720 

7 3 


VCP0AR=WOOT/(G*RHOTOT*PI/19«* .*(VON(lCrLPT »**2-YCPH**2 n 

c 

0730 

79 


CALL WBAR1T(VCPRAR,ATOTAL,WHOTOT,RHOCCP1 

c 

G7<t0 


20 

VC=wnOT/(G*PHOC*ACI 

c 

0750 

76 

2 5 

IFTVC.GT.VSONCCIHPITE 16,1161 VC 



"■ 77 * 


IFiVC.GI.VSnNCC IVC=VSONCC 



7B 


IF (VA. CO. 0.01 VA=VC 

c 

0760 

79 


c 

0770 

80 

c*** 

TFSTS FOR normalizing PARAMETERS (ELNOI 

c 

0760 

01*- 

c 

IF KND r -1 , FLND =VRISHR 

c 

0790 

82 

c*** 

0, SET ELNO = 1.0 and SKIP NONOl MENS ION AL CALCULATIOC 

0800 

' 83 

c*** 

1, FLND = YRI5HR - YRIHU& 

c 

0810 

89 


2, USE RF.AO IN VALUE OF iLNP 

c 

0820 

' 8S ' “ 


9,5,6 Usr VA FOR HONDIHCNSIONALI 7TNG VELOCITIES 

c 

0830 

B6 


c 

0890 



IF (KND. CE. fit 60 TO 35 

c 

0850 

0 8 ' 

30 

IF (KNO.EO .-1 .OR.KND.EO.9 1 FLND=YTGSTS 

c 

0860 

0 9 


IF (KND.CQ.U0R.KND.EQ.6l £LNP=YTF STS-YTFSTH 

c 

0870 

90 


IF (KND.EO.P.OR .KND.E0.51 £LND=1,Q 

c 

0880 

91 


XRl = XRl/ELNft 

c 

0890 

92f 


YP IHUP=YRTHUD/ELND 

c 

0900 



‘ YpisHP^:YRT SHR/ELND 

c 

0910 

99 


YTESTS=YTESTS/ELND 

c 

0920 

95 


¥TESTH=YTESTH/ELND 

c 

0930 

96 


YUING'YWING/CLND 

c 

0990 

97 ■ 


WDOT-kiDOT/ELND/rLNO 


□ 9 50 

98 


AC-AC/ELND/ELND 



" 99” 

35 

RtT0r-P?j56fl*TI OTAL 

c 

0960 

100 


GRH0S32.179*PT/RTT0r 

G 

0970 

101 


C102RT=.5/RTT0T 

c 

09BC 

102 


IF (PSTAT.NE.C.DJ C 1 0 2R T = . 5*RH0S T/PT 

c 

0990 

10 5 


VCbVA::VG/V A 

c 

1000 

lp(i 


VrOVA=VlNF/VA 

c 

1010 

la’s 


VNrOVC=ViNF/VC 

c 

1020 

106 


VrOAT:VINF/ATOTAL 

c 

1030 

idf 


vcoat=vc/atotal 

c 

1090 

100 


VAOAT=VA/ATOTAL 

c 

1050 

109 


C0N1=l .0-.2*VC0 AT**2 

c 

1060 

110 


C0N2 = 1 .Q-'.2*VF0 AT**2 

c 

10 70 

ill 


C0N3=1 .0-.2*VA0AT**2 

c 

1080 

ll2 


RS0RTF:C0N2**2.5 

c 

10 90 

113 


RSORTA~CON3**2. 5 

c 

1100 








li*! 

— 

* RSORTC=CdNi**2.5 * * 

c" 

iTio” 

1 15 


IF lUDOT.EO.O.O ) VIC = VC*RSORTC 

c 

1120 



inubof’.EO .0. » UbOt=VIC*G*RHOTOT*»C 

c 

1130 

J17 


PSPTC=1.Q-C102RT*VC**2 

c 

1160 

'”TIa ■' * 

m -d, ■ 

■ps'PtiP = i:o-cib2RT>vifir**2 

c 

■"*il70"' 

119 


PSPTCr=RSOR TF*CON2 

c 

1180 


w>a.iii — _ . •• 

' — piFrcuriffeft'Tc^'esNi — 

c 


121 


PSPTCA=RSORTA*CON3 

c 

1200 

"T22 


f*5‘P7'A = i . b-c I02R T* V'A ♦ * 2 ■ ■ 

c 

1210 

123 


HlNriVFOAT/ <CON2*+.5> 

c 

1220 

" 129 


HC=VCOAT/(CbNl ♦•*,5) 

c 

1230 

125 


MA=VAOAT/(CON3**.51 

c 

1290 

'“*126 ■' 


b"if7r=pTiri.o-psptiPi ' ' ' 

" c 

' I? 50 " 

127 


QCINr=PTC*( .7*VFOAT9*2*RSORTr> 

c 

1260 

126 


OGrP7*:n.O-PSPTC» 

c 

12 70 

129 


QCC=PTC*(.7*VC0 AT#*2*RSORTC) 

c 

1280 

130 


bArPl*( l.Q-pspt At 

c 

1290 

131 


OCA=PTC*< . 79VAOAT**2*RSORTA> 

c 

1300 

13? 

■ >w» • ■ p* • • -m- 

THEtC = TlOtALV510.67 

c 

13 ID 

133 


DFE=PTc/21 16.22 

c 

1320 

r3 9 ' 

, 

KBtPR = VTESfH/YfESTS 

'c 

1330 

135 


yD0TCR=UD0T9S0RmHETC I/DEL 

c 

1390 

TSS^ 


“ UR'lfF i9»KClb,NCHT ,NTf1IN'fNPHIN,RHOST,«XTESTnO ) ,IU = 1,10> 

c 

0980 

137 


WR17C(9» rTESTH,YTESTS,YUlNG 

c 

0990 

'13 a 


'“WRITE (9) nThETa 

c 

0500 

139 


WRITE (6,501 

c 

1350 

■‘no-' * 



WRITE (6,55 iVC, lie, be ,QCC,P5PTC,PSPtCC,RS0RTC 

c 

1360 

I'ii 


WRITE (6,6D»VA,MA,OA,OCA,PSPTA,PSPTCA,RSORTA 

c 

1370 

'Pi2 


WRITE ♦6,65>VrNr,MiNF ,01 Nr,bcINF',PSPtrF,PSPtct fRSORTF 

c 

1380 

19 3 


WRITE (6,70) 

c 

1390 

—nnr " 

-n-.— 

” — WRITE" r6';T 5 1 At F AT ,WMF OVt ;WI 6 V a iVtb VA“, VSflNlC i'v S oScc ,wobfc R 

c 

■ 1900' 

195 


WRITE (6,801 

c 

1910 

■~rqT"“' 

+ ,d. . .. 

■ ** *WRT TE“ ( 6 , 8 5 ) T £ T at , P S T A T , R S T A f C , A S T A f , R H b S t , W D b T ,V I C 

c 

1920 

197 


WRITE (6,701 

c 

1930 

"liTR" 


WRITE U.RDITTOTAL ,PT,PTC,ATbTAL,RHOfOT,IHETC, OEL 

c 

1990 

199 


WRITE 16, 80) 

c 

1950 

“TTD ' “ 


, EO 'TO 90 ■■ ■ ■ 

c " 

"*■ "19 6b' 

151 


WRITE (fc,120)lCTLPT,POPTCP,VCP,VCPBAR,RH0CCP 

c 

19 70 

~T52' 


"GO to 9 5 

c 

I9B0 

153 


90 WRITE (6,70) 

c 

1990 


** *-**' ' ■ 

■95 WRITE (6,1 Db»)(Ri,YRrHUB,YRiSKR,HBTPR,ELND,CUTOFF 

c 

i 5'bd 

155 


WRITE (6,701 

c 

1510 

1&6 


WRTTE (6,I05)XtEST<n ,'VTESTH,YTESTS,YuiNG 

c' 

1520 

157 


.WRITE (6,80) 

c 

1530 

T5T1“~ 


"WRITE (6,1 1 OINT (1 1 ,NP (1 i,NCLb,NCHT,NHUDKX ,NX,kND,KSKIP,NOTHET 

,ISWIC 

1590 

159 


2RL,NT(2l,NP<2l 

c 

1550 

16 a 

C “ 


c 

1560 

161 

c 

FORMATS 

c 

1570 

“I7T2' 

" £■* 


c 

"(■sTsb ■ 

163 


RETURN 

c 

1590 

169 

C 


c' 

"1600 

165 


50 FORMAT ( IMO ,27X ,5 8HMACH DYNAMIC PRESSURE 

PREC 

1610 

166* 

. -X •• •• •• - 

• ISSORE RArtO/lOTH VELdClTY NO INC 

. c 

1620 

167 


2 COMP. INC. COMP. DENSITY RATIO) 

c 

1630 

" T6 '8 ' 


'S5"'FWMAt**(riH ■control i I'PE 10 . 3, 1 P6E19 . 3 ) 

c 

1690 

169 


60 FORMAT (IIH BULK , 1 PE 10 .3 , 1 P6EI 9 . 3 1 

c 

1650 

- -no ■ 


65 Format diH Free ,iPEio.3,iP6Ei9.3X8H stream) 

c 

1660 



i'Tl ' " "to "FORMAT ClMO » C 1670 

172 7S FORMAT (67H ALFAF VINF/VC VINF/VA VCC 1680 

ITV" I/Va ' VSONIC VSONICC.IRM WDOTCR/ C 169(3 

I7A A . 5X,1PTEIA*3> . . P 1700, 

ITS 80 FORMAT (1MQ«110H C 1710 

176 I— - r— ..P..17?P. 

nr "«5 FORMAT nOOM ' ’ tSTAT PSTAT PSTATC C 1730 

178 I ASTAT RHOSTAT UDOT VIC /9X , IPC 10 . 3, I P6C 1 A . 3C 17A0 

17*9 21 C 1750. 

180 90 FORMAT HOIM . TIOT PTOT PTOTC C 1760 

ISI “ “ r im ' RHOtof THCT DEt/SX ,1P7E1A.3> C 1770 

182 95 FORMAT (lH0t6ElZ.5l C 1780 

”~lbT?0'RMA f ' (9AH " KR'i ' TRlHliB" VRISHF? ' HUB-TC 179(3 

18A _ HP RATIO LND P-S PLOT CUTOFF/SX , 1P6 ElA . 31 C 1600 

"™“18'5* ■' IOB'FORMaT «62H XtCST TTESTM VTEStS C 1810 

186 1 TUING/SX t IPAC lA .31 C 1820 

187 “’ lib 'format (9AM NT NP NCLO NCHI NHUBMX C 1830 

188 I NX KNO MSKTP " . NOTMET ISMIRL/ C 18A0 

"~169’“ “ 2 “iX>X',lHi,l'ftf5X»lHl,I5,AX,l3 ,5X, 13 ,6X , 13 ,6X , 12 , A C 1850 

190 3X,I2f6X •lZt8XtI2t8Xfl2/ C I860 

191 A ibX, rH2.1A,5X,lH2,I5l C 1070 

192 115 FpRHAT(22H - - - - WEIGHT FtOW= ,E15.6,* EXCEEDS CHOMEO FLOW.* / C ISeOi 

■ i9'3 " ■ ' i • PftOCEEbING WITH CHOKING VALUE LISTED BELOW*) 

19A 116 FORMAT! ’OCONTROL STATION VELOCITV= *,E13.A,* EXCEEDS VSONICV 

' " ' ■ i • PRbCEEblNr/’wl TH VC = VSbNIC« IF YOUR CONTROL STAT ION *» 

196 2/* IS NOT AT THE THROAT, RESUBMIT WITH A LOWER VCM 

““"197 ‘ l20 FORMAtltSH CONTROL PT INDEX PRESS. RATIO VCP.. VBC 1900: 

198 lAR RHOCCP /IXfllMtFOR A,B,C( , 1 X , I A , IPAE 1 A . 3/ 1 C 1910: 

- ‘199 - - - - ; C 1920; 

Jl^KPT PRINTS 



— * • Woct”?* 

1. subroutine: getabc * e 

"^zlt***** 

3.C*«* COMPUTES VI » V2 . V3 , A , B j; C fROH INPUT P ARAWETERS E 

COMMON '/Rnou'ri/ x6NI‘iQ6ViYON^^OO^,NSPE^IDKNSpBfiDI,jitRI^NHUBMX,N ' 

mn.nsplt.vning e 

tOMHW/rNTRfL/YfEST‘H7vTESTs7NOTHfcT,lCTLPT,VCP,VCPB»R.RH6cCP F‘ ‘ 

COMMON /COUT2/ VINFP, RHOTO T »V TC __ _ E 

" COMMON /RDoliT 2/ “t lio'd f/VV«K< 20072 » , V VCRI 20b» ,'V2 Hao >, V mOO > ,V2CE 
1R(200) E 

COMMON /NIN/“xb^Fr taabliTOFF i200»TNPMlNVMCLb~, E " 


A* 

^5. 

6 9 

7_. 

'b; 

9. 

" 10 . ■ 

11. 

'ir: 

13. 

. 

15. 

16. 

17. 

“U. 

19. 

20 . ' 

21. C9*9*9 

22. C>*« 

23. C**P** 
■ 2 «* . 

25. 

26. C 

27. C 

28. C 

29. 

'W.' 

31. 

32. 

33. 

3'4. 

35, 

"36; 

37. 

'38. ■ 

39. 

4d, 

91. 

42. 

43. 

'4 *4 . 

45. 

46. 

■"48Tci*i ' 
49.C#***9 


Id 


15 


20 


/NIN/ XOFF1200 I.TOFF 12001 .NPMIN ,MCLO ,NCHI 
COMMON/FLAGS /I VORT* I GE0M,1S]G«1CURV, NONE UF,IDENT 
'COMMbN /ROOUt3/‘VXAxT2ol)t2»,VXCRI2DOI ~ 

COMMON /RCONTI/ VC« VI NF * ALFAF, TTOT AL »ELND. V A ,P T 

COMMbN /CETbUT7’VMAG<3l»ALlL;BiIL,C\ir - • - 

COMMON /GEABC/ Y1 

DIMENSION VXAXHr2'», VXAXSi2r 
NAMELIST/CCC/ VMAC,ARC,ESS*ALFAF 

' NTimEL ISt 7B0‘B/ W/Tg; V2 

P 10180=3. 14 159265/180. 

AtrAFsALFAFoPIOiao " 

compute Vi , V2 , V3 ■ 

1 F '1 1 eiiPT . .’oTSfib ; A trAK7fiE7 99974^ 5 To ’to "55 

IF rxOFF«NCLO».t.T.XONIl»» GO T0_2D 

SEARCH ON HUB^ COUNTING BACKNA^ 

J=NHUBMX ' 

ir fxONI J> . i t ."X'OfRlNCLOl'l GO TO 15 ’ 

J=J-1 

OO 'TcT io • • - ■ - - 

J=J*l _ 

XH=XOmNCLOT ' ■ 

IFtAB=l 

CALL INTPOL li XH,i' FLAG,WX ,DUm7dUM ,0UM J ' 

VXAXHf I I ^VX 

CALL INTPOL (2,J,XH,]FL7g7vT7Fum7duOuM» 

VXAXH12)=VK 

CAU INTPOL (3,J,XH,IFLAG",VXafH',DUM7bUM,DUM) 

YH=V1 

GO TO 25 ' ’ ' ' -■ ■ 

VH=0.0 

VXAXH(l»=d.'0 ■ 

VXAXH(2)=0.0 

VXCRH=D.C1 ■■ - 


50. 

51. 
52 
S3. 
54 . 

,55., 
56 . 


25 

3D 


35 


Search ON SHROUD counting forwards 

K=NHUBMXVl 

IF (XONIKI.LT.XOFFINCHIII GO TO 35 

K=x4i ■' ■; 

60 To 30 

" ' '*■ ■ ■■■: 

KS=XOFFINCHI ) 

IFLAGil 


E 

Y 

£ 

E 

E 

E 

E ' 

E 

C 

E 

E 

E 

E’ 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

■ E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 


/ 

"■T2*1j 

0000 
00 lb “ 
0020 
0030 
0040 
0050 
0060 
0070 
00 60 
0090 
DlpD 
'oTid ■ 
0120 
0130 
0140 
0150 
0160 
'0170 
0180 
bl90 
02 00 
□2 id 
0220 
■oasD 

0240 

d’iSd 

U260 

02 70 
02BD 
D29D 
0300 
0310 

03 20 
0330 
0 3 40 
0350 
0360 
0370 
0380 
D39D . 

04 DO 
04 ID 
04 2D 
04 30 
D440 
04 50 

04 60 
0470 
0480 
□4 90 
0500 

05 10 
0520 
D5 30 
0540 
OS '50 



-^.3 S’ 


■”S77 — 
Sfi. 
"59: ■ 
60, 

'"feT.’-’- 

62. 

■”6t; — 

6<t. 

ffS.C 
66. C 
’ 67.C 
68 . 

■ ' 

70, 

71, 

72, 

■ 7S. 

74 . 

"7T. ■ ■■■ 

76. 

77. 

78. C 
19. t 
so.c 

■ -er." ■' 

82. 

83, 

84 . 

85. 

86 . 

... 

68 . 

89. 

90. 
•91. 

92. 

■— 9'3.”-*- 
94 . 

95 . ' 

96. 

97. 

98. 

' 99. 

100 . 
ri'0‘1 ”• 
102. 
i03'. 
104. 
ToS".'* 
106. 
■i;o7. ■ 
106 . 
■109. 
110. 

111, *”" 

112 . 

113. 


"'till 'fNipou' n.fc; xs; 1 flig, H.' dUH'.nurt i 
vx*xsm=vx 

' 'CiLL INTPOL r2 ,K . XSTrFL*G,WX,DUM,DUH,DUM ) 

VX*XSf2»:VX 

” C*tL tNtPR ■ i'3;XVxr,TfL*iO, VXCR^ .bUM.DUM } 

tSrVJ 

"■iLWsN'creyT — 

IHTGHSNCHI-I 

*X1*L COMPONENT VCL0C1TV **« »X|[SSyMETRIC SOLUTION 
00 45 L=l,2 

X'A'SrRrii * i yo'FTlNCL'Ol -fH I ♦ vx AX (NCLO ,L » *7 OFF 1 NC L 0) « ( YOFF (NCLOE 


C 

E 

E 

C 

c 

E 

C 

C 

E 

E, 

E 

E 


Hll-YUl 
■"OO 40 I=lLOH,tHlGM 

SUM=5UM+VXAX« T,L > *VOF F( 1 1* ( YOFM I ♦ 1 1-YOFFU-l » > 
40 'CONtiNUr 


SUM= SUM* YOFF INCH 1 »4VX AXINCHI ,L 1 *1 YS-YOFF ( NCHI - 1 » I H - 1 .0 1 4 YS*VX AXS ( F 


K14( YS-Y‘6FF (NCHI » 1 
VMAG(LI=SUH/( YS*42-YH»*2» 

49 continue 

AXIAL component CROSSFLOW VELOCITY SOLUTION 


E 
L 
E 
E 

' E 
E 

5(JH = VH*VX'CR'M*TVbFFLNCL0l'-YHV*lfXCRTNCL0 l4Y0FrfNCL0 I4( YOFF (NCL0*1 »-YE 

E 
E 
E 
E 


IHl 

00 SO I=UOW,IHIGH 

SUM=SUM*VXCR1 n*YaFFI Il4TY0FFf I+1»-Y0FF(T-1 ) I 
5d CONTINUE 


SUM=SUM* YOFFCNCHT »*V X CR I NCHII # f YS-^YOFF < NCH I -1) 1 + « -1 . C 14 Y V XCR S4 < yE 


■Tfi-vo'rr fNCMi n 

WMAGT 3>:SUK/( YS44 2-YH4421 

55 CLrL = VrMF4C0SLALFAFl 

IF (IVORT.EO. :» GOTO 60 

ALlL:;»VC>ViNF4SIN (ALF AFi*VMlG12H/TVMAG( 1 )-VMAG»2 I ) 
BL1L= (VC.V1NF4SIN (ALFAFI4VMAGT 1 M / I VHA G t 2 1 - VM A G (1 )) 

"■■‘G'O'TO ‘B'5 

60 ALIL =-VINF4SIN< ALFAF I 

BLH= (VC - AL1L4VMAG n Tl/VMAGI 21 
IF (ICTLPT.EO.Ql GO TO B5 
’ RHbRAt=RHOCCP/RHOTOT 
VCPINC^VCP 


E 

C 

C 

E 

E 

E 

E 

E 

C 

E 

E 

E 


65 VTE5T=VCPTnC* IVCP 4(RH6RATI*4tVCPiNC/VCPBAR) -VCPTNC)/ < 1. - VCP IN C4A LOE 
_lG(BHORAn/WCPHAR> E 

IF (AGSTlVCPlNC-VTESf )/VCPiNC».LE.i.C-D5) GO TO 70 E 

VCPINC=VTEST • E 

GO TO 65 * * E 

70 BLIL=(VCPINC« ALII.*T(lCTLPT,ll-CLIL4V2UCTLPT)>/t-TlICTLPT,2H E 

' “IF' (TirAr.Eo.999.4pT01a'd» "Go TO '75 E 

VHAG( l» = -TnCTLPTU» E 

vMagi 2r=-TncfLPT;2i E 

VMAGT 3»=-VZnCTLPT» E 

“ 'GO to 85 ■ E 

75 ARE = -VC/VJHA£T2»*T(ICTLPT ,21-VCPlNC E 

ESS = 7T UC7LPtrrr»VHAG nT/VMAGt riif tie E 

CLlL=t-ARE4V2fICTLPT I -E SS4SQRT I VI NF4V I NF* t V? 1 1 CTLPT ) 4 «2 ♦ CSS4E SS » “ t 
lARE4ARE»)/(V2ncTLPT»4#2*ESS4ESS» E 


0560 

05 70 
QS80 
0590 
0600 
0610 
0620 

06 30 
06 40 
0650 
0660 
0670 
0680 

06 90 
0 700 

07 ID 
0720 
0730 
0740 
0 7 SO 
0760 
0770 

07 80 
0790 
□ 600 
0810 
0820 
0630 
0640 
0850 
0860 
0 8 70 
0880 

08 90 
0900 
0910 
0920 
D9 30 
0940 

0 9 50 
0960 

09 70 
0980 
0990 
1000 
1010 

10 20 
10 30 
1040 
1050 
10 60 
1070 
10 80 
1090 

1 1 DO 
1110 
1120 



IIS. 

n 6 i' 

117. 

lie. 

JJ| 9 . 
120 ." 
121 * 
12 2 ,' 
123. 
i 2 <l. 
125. 




¥iF=Vitif ' 

If (VINF.eO.O. »VIF=^LIL 

ALlL:SORttWlF*VIF-CLil*FLlLi ' 

BUL=lVC-*LILAVMAO< I > 1/VMAGI21 
AtFAFrATANfCL JUAllL* -90;Vpi0ian 
ALF=*LF*F/P10ia0_ 

MRiTc" ib.aorrCF ■ 

80 fORHATI'O AIFAF HAS BEtN CALCUtATCO FROM U00f,VlNF, AND CONTROL 

lolfNT pressure'” *,E12.Ar* 0E6»i 

65 ALFAF:ALFAr/PIOieO 
RETURN ■ " 

END 


E 

E 

E 

E 

E 

E 

E 

PE 

E 

E 

E 

E 


11 30 
I IRQ 
USD 
1160 
1170 

iiao 

1 i 90 
1200 

12 ID 
1220 
1 2 30 
12 R 0 



"so.'ismc* 

i» 



3*C 

5« 

__ _7. 

87 

9, 

rev* ■" 

n. 

T57 “ ■ 

13. 

• 15. 

-"■■'is. 

17. 

" — ^le.- 

19. 

2d." ■ 
21 . 

22 . 

23. 


SUBROUTIMr INFRCt: 


1N1.E1 FORCE C«LCUL*TION 


DIMENSION XTESmOl 

-UTmEnTIon ' "vATismi.vdROi Ml 

DIMENSION KHB(200»,7H 12001 .PSPTHCI 2001 iPSOPTH* 200 1 ,S OHI 2001 

T7xsri 2dbT7^'^sT^Db'i ,psp Tsc<" 2 dd V, psop ts 1200 1 » sbsi 200 1 .x hci 220 1 . 

2XNI220ltXSC(2£01 ,XS(2C01 
b IMEN s io n" VR E SH i 2 cbl , CPCHf 200 1 iVRE SS 1200 1 

_ SJ/OFCM( 201 ,^UBFJ«C 2 P 1 .SUercS12Dl ,SUOFS 1201 , 
3S0B*FHT20 *."SUTrAFS'«20 i7sub1mC« 20 iVsuikiM 2V^ .TuBL'SC f20 1 .SUDL5 1201, 
RSUB«LH(20I|SUBALS (201 «TMETA<201 •S(IBHHC(201 ,SUBMHI201 •5DnHSC(20>. 
SSuBMsi'iO i .SUBTIHC ( 201 1 SUBOHIZOi , SUB DSC « 20 1,50005(20 1 , SPHDHC (20 1 , 
6SeM0H(201 ,SESH0SC(201 ,SBM0S(201,YU1NGG( 10) 
b IMEN SION XOFF(lDai,rQFFti001 ,VXC( 1001 .VRESI 100 1 , P50 PCI 1 00 I , 
1PS0P( 1001 tSDBOFXf 1001 ,SU0DXC( loot .VAFTilODI 

— O IMEN fiON SUB'ARil 2driSUeFR 1(20 Vi'SUBF^C 120 1 , SUB WOT (20 1 ,SOawDC( 201 
1 ,SUBHFX(201,SUOMrC(2 01,SOBMM(201,SURMMCI201 
CdMMON/FLAGS/lVORT,iGEOM,l5iG,’lCURV,NONEWF ,CA5LN0 
COMMON /RCONTl/ V C, V 1 NF * ALF AF ,TTOT Al ,EUND , VA , P T • 

COMMON /RCdNt 2/ P STAT ,TSTAT ,WDOt ,NX ,KND,YRI M, YRIS, UTIP 
COMMON /COUTIF OC A.PT CtPSPTCI ,PI01 BO, AIOT At ,GRHO 


51 JAN 77 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 


IS 1 
DODO 
0010 
DO 20 
0030 
□ 040 
00 50 
0060 
00 70 

ooao 

00 90 
0100 
0 1 10 
0120 
0130 
0140 
0150 
0160 

01 70 
0160 
0190 
0200 
0210 
0220 


‘ ”'2'4 ; ■ ' 

RtilL MFLUX,MFLUXC,MMFLk,MMrl,xC ' ‘ 

P 

02 30 

25. 

REAL MRESHC,MRESH,MRESSC,MRESS,LRFSHC.LRESHaRESSC,LRESS 

P 

0240 

26." 

REAL MINF ,NC ,LMC ,LH,C SC ,LS ,MLHC ,MLH,hLsc ,MDS,MDSC ,HOH ,MDHC rHLS 

P 

02 50 

27. 

REAL LTC.tT ,HLTC,ML1 ,MOTC,MDF ,HRTC ,MRT .LRTC ,LRT ,MFLX p .fiFLXPC 

P 

0260 

28. 

l,LlFT,LtFTC 

P 

0270 

29, 

COMMON /JANl/ NL,KK,J 

P 

0280 

■Jo. 

DATA VABS/6H ,6H .6H ,6H /,V0RD/6K " ‘ ,6H 

P 

0290 

31. 

1 ,6H ,6H / 

P 

0300 

32. 

DATA CAPR71715.63/,C/32.174/ 

P 

0310 

33. 

PlOieO = 3.141592657160. 

P 

0320 

34. C 

READ (5,10031 20 , CASENO , NVI NG , ( VUT NGC( 1 1 ,I =2.NUINc) 

P 

0330 

35. 

20=0. 

P 

0 340 

''367 

NWiNG-1 

P 

0350 

37. 

IG FORMAT (F8.2,A6,2X,T8 »7F8.2I 

P 

0 3 60 

38, 

itEST = 0 

P 

0370 

39. 

DO no I Y = 1 ,NU1NG 

P 

0380 

40. 

REWIND 4 

P 

0390 

41. 

READ 141' NCL0,NCHI »NTH1N ,NPttI N ,RHO£ T ,( XTEST ( TUI , IU=1 , 1 Cl 

P 

04 00 

42.' 

READ! 41 YRIHUB, YRJSHR,YMINGG(1> 

P 

04 10 

43. 

RFA0(41 NIHETA 

P 

0420 

44. 

is YWING = VWlNGGliYl 

P 

04 30 

45, 

DO 105 N=1,NTHETA 

P 

0440 

46, 

READI4I VC,V INF, ALFAr,TTOTAL 

P 

□ 450 

47. 

AIFAF=ALFAF*P10160 

P 

0460 

"'48 7c' 


P 

0470 

49, C 

THETA IN DEGREES 

P 

04 80 

sa.c 


P 

04 90 

51. 

RCA0(4I THETAINl 

P 

0500 

52. 

THETA(NI= THETA(N IfPIOiaO 

P 

0510 

53. 

REA0(4» 11 

P 

0520 

54. 

READ(4i (XHBdl.VUm.PSPTKcn l.PSOPTHdl.SDHll) ,VRESfim, 

P 

05 30 

55, 

11=1,111 

P 

05 40 

56. 

READ(4) JJ 

P 

0550 





59 . 

59 . 

60 . 
61 . 
6Z. 

' ‘ 65 . 
69 . 
65 . 

^ 66 o 

67 . 

69 . 

" ‘69. 

70 . 

71 . 

72 . 

73 . 
79 . 

75 . 

76 . 

77 . 
79 . 
79 . 
60 , 
er. 
82 . 
63 . 
89 . 

65 . 

66 . 
97 , 

68 . 

89 . 

90 . 

91 . 

92 . 

93 . 
99 . 

95 . 

96 . 

97 . 

98 . 

99 . 
100 . 
ici. 
102. 
103 . 
109 . 

’ 105 .~‘ 

106 . 
■' 107 . 
109 . 
109;' 
1 Id . 

"*in; 

112 . 

113. 


“■ ■"SCub rs"! fxsRfi I . vs irtTj^sptsc HTT psoTtsu » » sosii f,»RC55iiil 

1I=1»JJ» ' 

' ’■ ir (fv.co.ll 'GO' ifcr25'"“ - 

JJJ = 0 

o6'2d i=i,jJ - • ‘ 

IF ivsm .DT.VUINGI GO fO 20 

^ I 

20 continue: 

1 ■' ‘■ 

25 Rt»DC9| NOFF _ „ ‘ __ _ __ 

Re*o 191 xoFFfii.rorf nf;vxciir;VRESiii;psopc«if;ps6p'«ii«v*FT(i» 
NOFNl = NOFf-1 

SCib TM fx6rF‘ri’V;vffFFn'»i^1irciiV,¥RE5iri .psopciTi .psopiTT,^ 

1 VAFim ,I=2,N0FN1» _ _ 

fitAO 191 XOrFINOFFr,VOFFrN6FF»*VXC'«NorFr;VH'S*NOFF».PSOPCiNOFF», 

1 PSOPINOFf I.VAFUNOFF I 

" 11=' Ji-*l " 

IN = II- 1 . . . 

DO 30 L=1,IH 

PSPTHC(II= PSPTMCil-l» 

PSOPTHU»= PSOPTHIl-ll 

soum = soiMi-ii * " 

XH6U I = XHRII-ll 

■ "VHm = VHU^'l ■* 

VRESH<n = VRCSHEI-ll 

cPcHm = cpch(i-ii ■■ " 

30 1 = i-i 

35 Ni = 1 . ■ ■ ■ 

J = 11 

" ' ' kx= 1 ■ 

CALL LCRN6E < YHiPSPTHC.VS JHUB , ANS i 

PSPTHCim = ANS ■ 

CALL LGRNGE < VU, P SOP T H, VRIHUB , ANS > 

PSOPrunils ANS . 

CALL LGRNGE I VU, SDH, VRIMUB . ANS » 

SDHIlDr ANS ^ 

CALL LGRNGE t VH, X HB , VRIHUB , ANS I 

XHBlIIlr ANS , . 

VHOII- TRIHUD 
J=Jj 

CALL LGRNGE I VS , P SPTS C, V«1 SHR , ANS J 
PSPTSCn » = ANS ' ‘ ' * 

call tGRNGE IYS,PSPTSC,YUING,ANS| 

PEPTSCLJJf= ANS 

CALL LGRNGE « YS, P SORT S.YRISHR ,_ANS I 
PSOPlSLl 1= ANS 

CALL LGRNGE ( YS,P SORT S, YWING, 0 NS I 

"p'SOpts(JJI= ' ANS.'" ■ ■ • 

CALL LGPNCE I YS, S DS , VRISHR , ANS ) 

SDS< 1 »= ANs 

CALL LGRNGE ( YS , S OS , Y WING , ANS I 

SOSfJJt: ANS " 

CALL LGRNGE < YS, X5R , YRISHR , aNS > 

""'XSR'C ll= ANS 

CALL LGRNGE I YS,XSR,YWING,ANS» ' 

■ XSRT JJI= ANS 


p ' 'b sW 
P 0570 
P 0560 
P 0590 
P 0600 
P 0610 
■p ' 06 20 
P 06 30 
P 0690 
P 06 50 

P 0660 
P 06 70 

p b6To' 

P 0690 
P 0700 
P 0710 
P 0720 
P -0730 
P 0790 
P D75D 
P 0760 
P 0 770 
P 0780 
P ‘0790 
P* 08 00 
P 0610 
P OB 20 

P 08 30 

P 0890 
P 0850 
P 0860 
P 0870 
P 08 BO 
P 0890 
P 0900 
P 0910 
P “0920 
P 0930 
P 09 90 
P 0950 
P 09 60 
P 0970 
P 09 SO 

P 09 90 

P 1000 
P 10 ID 
P 1020 
P 10 30 
P ■ 1090 

P 1D5D 
P 10 60 

P 1D70 
P 1080 
P 1090 

p noo 

P 1110 
P 1120 



'“ll 

*““"*fsn)= VRISMR ' 

P 

1130 

US. 

VSIJJ) : VWINC 

P 

1140 

"ntr; * 

■ »HIU' = d.D ' ' ■■ 

P 

USD 

117. 

SDHtl 1 = SO»H21 - VHl 2) 

P 

1160 

iia.c 


P 

1170 

1 19. C 

CAU CONSTANT 9AUIES 

P 

1180 

~i2o;c 

~ 

P 

1190 

121. 

RHOT - PT7ICAPB4TT0TAL) ' 

P 

1200 

1*22,* 

RHORAT = PHOT/RMOST 

P 

1210 

123. 

If IPSTA T.Nr.0.0) RHOT = RHOST 

P 

1220 

124. 

ir tpstaT.co.d.oi rhorat = i.o 

P 

12 30 

125. 

ATOTAL = 49,04S0RT(TIOTA».) 

P 

12 4D 

”1*26: * 

“ c6N2' = VC/ATOTAL 

P 

1250 

127, 

RCORT = ll.D-,2*CPN2*i»2M‘*2,5 

P 

1260 

123; 

PA z PT-.5*RHOf«VtNFt*2 

P 

1270 

129. 

C 0 N 1 = l,D-.2*(VINr/A1 0TAL)4«2 

P 

1200 

13C. 

PAC ZPTC4C0N1443.5 

P 

1290 

131. 

MINF =<V1NF/AT0TAL)/(C0NJ««.5 1 

P 

1300 

rs 2. ' 

HC z c6N2/iC i .D-,2*C0NZ»?2M4.5t 

P 

1310 

133. C 


P 

13 20 

134.C 

WRITE i INPUT ANO CONSTANTS 

P 

1330 

135.C 


P 

1340 

13S. 

ir IN.EQ.n WRITE (6, 175ICASCN0,YPIHUD.VR1SHR,YWIND, VC. 

V1NF,ALFAF,P 

1350 

137. 

1TTOTAL,RHOT.PA,PAC,P.INF,MC.NTHETA 

P 

13 60 

imc 

WRITE <6,20101 THETAINl.tXHDm ,VHni,PSPTHC(r),PSOPTR<I I.SDHtll, P 

13 70 

139, C 

1 vftesH<n,cpcH<i) ,1 = 1 ,Ti) 

P 

13 80 

140. C 

HRlt'E 16,20221 * XST? 11 1 , VS ( 1 1 , P SP T SC ( I » ,P SOPT S < 11 , SRS tj 1 

, P 

1390 

141 .C 

1 VREssm.cpcsn 1 

P 

140D 

142. C 

WRITE 16, 2023 1 iXOFf 1 1 l.VOFF 11 > ,VXC 11) , VAFT III , PSOPC 1 I», 

PSQP (1 ),VREP 

14 10 

143, C 

ISII»,CPC1I) ,l=l,NOFF) 

P 

14 20 

144 ; 

‘ "" 00 461 = 1 ,1 1 

P 

14 30 

145. 

XNCIl >= PSPTHCll 1 4VtUI I 

P 

1440 

T46. 

40 XH1I1= PSOPTHm*YKlI 1 

P 

14 50 

147. 

DO 45 J=1,JJ 

P 

14 60 

*148. 

XSC1J»= PSPTSCIJUVSU) 

P 

14 70 

149. 

XS1J)= PSOPTSIJ) 4YSI J ) 

P 

1480 

. 'iso.* *" 

'45'"C0NtiNUE 

P 

1490 

151. 

CALL TRAPISOM.XHC ,ANS,1I 1 

P 

15 00 

152. 

SUBFCHIN) = ANS 

P 

15 10 

153. 

CALL TRAP ISDH.XH.ANS.in 

P 

15 20 

154. 

SODFHINU ANS 

P 

1530 

155. 

CALL TRAP ISOS, XSC, ANS, JJ) 

P 

1540 

156. 

"soBFCSlNlr ANS 

P 

1 5 50 

157. 

CALL TRAP tSDS.XS ,ANS ,JJ) 

P 

1560 

1 5“8 ;r 

SIIDFSIN)! ANS 

P 

15 70 

159. 

CALL TRAP(SDH,YH,ANS,1I) 

P 

1580 

' 1*60. 

SUBAFH1N)=ANS 

P 

15 90 

161. 

CALC TRAP 1SD5,YS ,ANS ,JJ1 

P 

1600 

“Tbfr ’ 

SliBAFSlNlz ANS 

P 

1610 

163* 

CALL TRAplYH,XHC,ANS,n ) 

P 

1620 

■ '164. 

SdBLHClNI = ANS 

P 

16 30 

165. 

CALL TRAP1VH,XH,ANS,I 1) 

P 

1640 

166. 

SUCtHlN»= ANS 

P 

1650 

167. 

CALL TRAPIYS.XSC, ANS, JJI 

P 

1660 

168. 

SUBLS'riNirANS 

P 

16 70 

169. 

CALL TRAP»YS,XS, ANS, JJl 

P 

1680 

170. 

SUCLSlNlzANS 

P 

16 90 




r.f 

’CrtLL'TMP«VH,VH7*NS»nr * " 

P 

1700 

172. 


5U8ALH(NI=ANS 

P 

1710 

173. 


CALL tRAP«VStrS,ANS,Jt)l 

P 

17 20 

17<i. 


SUBALSINirANS 

P 

17 30 

If5. 


PACfiPT = PAC/PtC * " 

P 

1740 

176. 


PA0Pf= PA/Pl 

P 

1750 

nr;- 


5d"i=l,'Ti • ' 

P 

1760 

l7Ci 


XHCll »= -PSPTHCni •vmi »*'*2 

P 

177D 

179. 


Anln= -PSbPlHf ir *YHn r *62 

P 

1780 

160. 

50 

CONTlNUr. 

P 

1790 

IQl. 


DO 55 J=1 ,jj 

P 

10 00 

,182. 


XSCIJlr -P5PTSC(JI *VS(J|9*2 

P 

1810 

183. ■ 


‘JtSCJlr -PSOpiSiji •YS(J»4'»2 " 

P 

1820 

ie<i. 

65 

CONTINUE 

P 

1830 

165. 


COST s COSTtHtTAlHh 

P 

1840 

186. 


CALL TRAPCVH.XHC.ANS, n 1 

P 

18 50 

187. 


StJBHHCIN>= C05T*AN5 

P 

I860 

188. 


CALL TRAPiVH.XH.ANS.in 

P 

1870 

189. 


SUeM<MNl= cost *6195 ' 

P 

1880 

190. 


CALL TRAPtYS,XSC,ANS, JJI 

P 

18 90 

191. 


suiiMsctN»= c6si*ans 

P 

1900 

192. 


CALL TRAPIYS,XS,ANS,JJ» 

P 

1910 

193. 


SUBMSINJr COSTAANS ' 

P 

1920 

199. 


00 60 1=1,11 

P 

1930 

l95. 


XHCtl l = PSPTHCU i*YH tl'» * ** 

P 

1940 

196. 


XHTl) = PSOPTfHI »*YH( II 

P 

1950 

197, 

60 

CONTINUE ■ ‘ 

P 

1960 

198. 


00 65 J=1,JJ 

P 

1970 

199. 


XSCtJl = PSPTSCIJI9YS(JI 

P 

1980 

2CD. 


XS(J1 = PS0PTSIJ|9YS( JI 

P 

19 90 

201. 

65 

•CONTINUE 

P 

2000 

202. 


CALL TRAP CXHB.XHC.ANS, III 

P 

2010 

203. 


St)DDHCtNl= COSt*ANS 

P 

20 20 

204. 


CALL TRAP(XHC,XH,ANS,in 

P 

ZD3Q 

205. 


SUBOH(NI= C05T4ANS 

P 

20 40 

206. 


CALL TRAP<XSR,XSC,ANS ,JJI 

P 

2050 

■2Q7.' 


'SliR0sCiNl=c6'St*AWs-' • ' - ■ ■ — :*'■ 

P 

20 60 

208. 


CALL TRAPIXSPfXS.ANS, JJI 

P 

2070 

209. 


SllBOS(Nl= COST*ANS 

P 

20 60 

210. 


00 70 1=1, n 

P 

2090 

2il. 


xricn 1= PSPTMciii *YHf i i*1xhbU i-z6i 

P 

21 00 

212. 

70 

XHII1= PSOPTMtll ♦YHUI*(XH6<1I-Z0) 

P 

21 10 

213. 


00 75 j=i,llj 

P 

2120 

214. 


XSCMI= PSPTSCIJI *VSt JI*«X5RU1-Z0I 

P 

2130 

215. * 

“is 

"XSYJl = PSOPTSiJl •^YSt jr»(XSRTj'r-ZOI 

P 

2140 

216. 


CALL TRAPtXHB ,XHC ,ANS ,in 

P 

2150 

217, 


SflMDHC»Ni= ANS.4C05T ' ’ ' ' 

P 

2160 

218. 


CALL TRAPexHB,XH,ANS,lII 

P 

2170 

219. ■ 


'■sRM0MtNT=A*NS*c6sf — 

P 

2180 

220. 


CALL TRAPtXSR ,XSC,ANS ,JJT 

P 

2190 

221. 


smiosctNir ans*C6st 

P 

2200 

222. 


CALL TRAPIXSR.XS ,ANS, JJI 

P 

2210 

223i. 


SBHDSIN»=ANS»C0S7 

P 

22 20 

224. C 



P 

22 30 

225.C 


ROTOR inlet CALCS OFF-BODY POINTS FROM COMBYN 

P 

22 4 0 

226. C 



P 

2250 

227. 


call TRAPIYOFF,YpF^,ANSiNOEF* 

P 

2260 



0 0 BO i=i,worr 
iscfi'i = psopcii r*y 6 rF«rr'" 

*5„*SJ*L= PsppnjpyofFi i» 

“ chlC TifTp iTorrV'xs.TNiiNOFrV”"''' 
SUBFAIfM) : ANS 


CAtL fRAP ( VOFFf|XSC,ANS,NOFn 

MJJBFBXJNI ^ANS 

00 85 r=TTNOFF~ “■ 

_ »s<i» s vx c< HAYomi i 

~f 5 *Jl 5 CUI PSO'pCUt**U.O/l.'*rr*l(T( 
CALL TRAPiyoFF,XS*AKS tNOFFI 


_ cal l fRAPiy OFr,»SC,AN! 

subudcini ^'ans 
__D0 90 I = 1,N0FF 

X s iiT “iT x'sTi ViViiVnV^ 
90 xsctn - xsc«it*vxcu 

CALL TRAP CyOFF,XS,AN: 

SUB«n<«NJ = A^S 
"'■""call trap lyO>F,XSC,Ai 

SUOHFCINI = AR5 

doW i=TTn6ff " ’ " * 
xsdi = xsm*vorr(n 
<nscTn = xst<r»*Yom 

t AL^ TRAP_« Y0FF ,XS ,AW! 
SiiSMMTNr = COSTPANs' 

call trap ry^F.xsc^Ai 
*SUBhMClNT"= CO'ST*ANS“ 
00 !00 I=l,NOFF 

“x?rrr‘= vxcii »*vAFfiT 

_ XSCJIIJ: XSil»*PSOPC( 

loo’ contTnue 

c all tra p (VOFF.XS.AN: 
■" SUBOFXINI = ANl 

CALL TRAP IY0FF,XSC,AI 

SUBbxcWf =‘“ans ^ 
1C5 COt^TlNUr 

'"ARIX1"= "3 . 19 1*S926¥* ( V 
_ AU(CTH = 3.:9159265*« 
ALXCTS = 3. i 9 159265*1 
lOlMM rB, D/199. 
c6n 3= -l6i99*PT‘ 

C0N3C = -T0199*PTC 
C ALL TR AP VT ifE T A , S UDE C 
FHC=ANS*C0N3C 

CA'LL ‘trap" i THC7A , 5UDFI 

FH = A_NS*C0N3 

"call trap ‘rtrrc T a , sub *f' 

SC=-ANS*C0N3C 
■ ■ ■ ■?: ALL f RA P (THE f A , S i>D F S 

FS=“ANS*C0N3 
‘call fRAp (THETAiSimAFI 
AFH= ANSPT0199 

CALL trap (Tmfta.subai 

AFSr-AN5*T0199 
PACAFH = PaCPAFH 


S.NOFFI 


SjNorri 

nsVnoffT' 


n 

S. Wp FFi 
N^jNpfJI 


l*YOFFm 

n* *ii. c/i .9) 

StNpjFn,^_^,._ 

NS.NOFF t 


OFFINOfv- l*♦2-Y0rF( 
VRIHyBP*2l/199. 

YRI N5**2-Y(?iS HR** 2 


1 >**2)/199 , 


1/199. 


H.ANS.NTHETA) 


H.ANS.NTHETA I 

cT. A NYniT H 'Cl A ) 

.ANS.NTHCtA) 

H.ANS.NTHETA) 

FS Vans.ntheta ) 


-“2‘fl^T — 

2 B6 o 

2ae. 



290 , 

292. 

'Ts^r. " ■ 

294. 

296. 

PHiFH = ?ii*ArH 
PACAF5 = PAC9AFS 

■■ - 'PMr's' s ■ PM Af *S ' *' ’ 

FHC = FHC * PACAFH 

'■* *♦•*«*?« ‘ 

FSC ^ FSC « PACAFS 

TT-rTr* (fAAFS 

CALL TOAP I1HCTA*SUBLHC|ANS,NTHE;IA» 

*VlTc= ■ €0fJ3c*A«S 

CALL TRAP (THrTA.SUBLN.ANS.NFHCFA'I 
LH'= CON3#ANS '* 

CALL trap 4THCTA«SU8LSC.ANS«NTHCIAI 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

" P 

P 

' 2S40'' 
28 50 
28 60 

28 TO 
2880 
2890 
2900* 
2910 
2920 

29 30 
2940 
2950 

“*?97. 

-L5C= 

C0N3C9ANS 

P 

29*6'0 

29S. 

CALL 

TRAP ITHETA.SUDLS.ANS.NTHCTAI 

P 

2970 

. 2,,- ’ - 

cs 

= ’C0N3*aN5"'* : 

P 

2980 

3DQ. 

call 

TRAP ITHCTA,SUBALH,ANS»NTHCTA) 

P 

2990 

' Jdl ." ' 

* ALH= 

t0144*ANS ** “ ' " 

P 

3000 

302. 

call 

TRAP ITHCTA.SUBALS»ANS«NTHCTA 1 

P ' 

3010 

)t03. 

AL$ 

= T0144*ANS 

P 

3020 

304. 

PACALH = PAC^ALH 

P 

3030 

*305. ' 

pAALH = PA*AlM ■ " ■*' 

P 

3040 

306. 

PACALS = PACPALS 

P 

3050 

~ 507. 

PAiLS = PA4ALS’ - 

P 

3060 

30B. 

LHC 

= LHC * PACALH 

P ■ 

3070 

•“309 ." ' 

Xrt = 

■■■DI-a XaATh — ■■ — 

P 

3DB0 

310. 

LSC 

= LSC ♦ PACALS 

P 

30 90 

*311. 

'ls = 

ts ♦' PAALS " " * * ‘ ■ 

P 

3100 

312. 

101728= 2.0/1728. 

P 

31 10 

■ 3D. 

CALL 

TRAP. rlHETA , Su’B'mhC . ANS ,'MTHE1 AY 

P 

3120 

314. 

HLHC 

=-ANS*T0l728*PTC 

P 

3130 

■ *315. 

' CALL 

TRAP 4 THETA', STOeWH UNS.^TTHirt A* ' 

P 

3140 

316. 

MLM= 

-ANS*T01728*PT 

P 

3150 

■317. 

CALL 

TRAP 4THC*TA,SUiiMSC,‘ANS,NTMCtAl * 

P 

3160 

318. 

HLSC 

=-ANS9T01726*PTC 

P 

3170 

'3l9. 

call 

TRAP 4THETA .SiJBMS, ANS,NTMETA> 

P 

3180 

320. 

HLS= 

-ANS4T017289PT 

P 

3190 

-321." 

CALI 

3ra p 'L f met a Sufi Oh'C V Afis .¥Ti4£!tAT"' 

P 

3200 

322. 

OHC 

= C0N3C*ANS 

P 

3210 

*’323. 

CALL 

Trap iTHFTA.SUBOH.ANS,NtHtTA» 

P 

3220 

324. 

DH = 

C0N3*ANS 

P 

3230 

*325. 

CALL 

TRAP 4 THE! A ,SUBCTsC,ANS,Nf METAl' 

P 

3240 

326. 

use 

= C0N3C*ANS 

P 

3250 

* 3'*27.’ ■ 

call 

trap"’! fHCtAi'S0SDS/VNs“,NfMETA» 

P 

3260 

328. 

OS = 

C0N3*ANS 

P 

3270 

*329. 

■ CALL 

TRAP 4tHEtA.SBM0HC,ANS,NTHETA 1 

P 

32 80 

330. 

hOHC 

= T01728*PTC*ANS 

P 

3290 

331. 

CALL 

TRAP 4THETA,SBHDM,ANS,NTMETAf 

P 

3300 

332. 

HDH= 

T0J7289PTAANS • 

P 

33 10 

333,'* 

CALL 

trap I Thc’IA ,5BHDScVA'NS;*NTMetA) "* 

P 

3520 

334. 

«nsc 

= T01728*PTC*ANS 

P 

33 30 

335. 

CALL 

TR A'P- 44 H E T A , SB M 0 S , A Ns , N t HE T A 1 ' 

P 

3340 

336. 

MDS= 

T01725 *PT4ANS 

P 

3350 

337. C 



P 

3360 

336. C 

SCCONO INTEGRATION FOR OFF BODY POINTS 

P 

3370 

339".C 



P 

3380 

340. 

CONS 

= T01?28*Ci*RH0T 

P 

3390 

341. 

C0N4 

= T01444C4RH0T 

P 

3400 






560. 

561. 

“l 62 r “ 

565. 

■* seit. 
365. 

"”T6rr~" 

367. 

•""36r. — 


C0N7 = TO1728>»RH0T 
j:ON6 = T01«I‘**RH0T 

C ALL TRAP ( tHCt « » Slifi ARi t a¥s .NTMCt aY ’ 
ARl = T01<«it*ANS 

CAlC trap TTM^TA ,SUnF*Ri7ANSiNTHEIA>' 
FRI = PA*ARI«CON5«AR5 
CALL TRAFTtlfETATSUn?RC,AMS;iiTMEIA“l 
FRIC = PAC*^ARI«CpN5C6ANS 

'cAL'~ Wap i THCT a' , siTeu Dr.Afis .nThcta > ' ' 

MOO; CONM**NS 

CiLL trap ( THCT a , SUBUDCVANS iNTMFfA ) ' 
MOOTjC = CON‘te«NS • RH0R»T_ ^ 

CALL TRSp" T tMCTr; SunrirYfANS .NTHETX r" 
MFLUX = rON6*ANS 

CALL TRAP «THnTAiYunMFc‘iANS;NfHETAI 
HFLUXC = C0N6*ANS « RHORAT 
CALL TRAP TtHCTA.SUBMliiANSVNtMETAI 
Ht^LX = CON7*ANS „ „ 

CALL trap' ffHCTA.'syRHHC'iANSiNTHCIA 

MRFLXC = C0N76ANS ♦ RHORj^ _ 

"call 'TRAP LtHTTAVsUBbFX'iAMSjNTHCTA i' ' 
DFLUX = ANS«CON6 

CAL'L ■ Wap ( THCTA ; SUB01(C%ANS .NTHCtA »" " 
OFLUXC = ANS«C0N6* RHORAT 
RHC ■= WRtTL«C**2^'HC'M21 ' 

RH - S0RJ<LH**2*DH**2I, _ _ 

“RW='S"0R>lLSC**2«0Si:**2l' ' ' ' 


369. 

RS = S0RT«LS**2*DS**2I 

P 

3680 

570. 

MRESHC = 

HLHC ♦ MOHC 

P 

3690 

371. 

NRESH = 

MLM ♦ MDH 

P 

3700 

STzT""" 

MRESSC = 

HLSC * HOSC **" 

P 

3710 

573. 

HRE5S : 

MLS ♦ MOS 

P 

3720 

“ TT4 

SiNAL = 

SIHtALFAfi 

- P 

37 30 

375. 

COSAL = 

COStALFAF) 

P 

3740 

576. " 

Crcshc :: 

LHC*COSAL - DHC*SINAL ' 

P 

37 50 

377. 

LRESH = 

LHACOSAL - DH9SINAL 

P 

3760 

TTb"* 

LRESSb = 

LSC*COSAL - DSC*SINAL 

P 

3770 

379, 

LRESS = 

LS*COSAL - DS9STRAL 

P 

3780 

—fm — 

DRESHC = 

DHCiCOSAL ♦ LHC*5I MAL 

P 

3790 

381.. 

ORESH = 

OH6COSAL « LMA51NAL 

P 

3800 

3'82. 

ORESSC n: 

DSC*COSAL * LSrAsiNAL 

P 

38 10 

383. 

DRESS - 

DS*COSAL * LS«SiHAL 

P 

3 8 20 

584. 

RBARHC :: 

12.*HLHC/LHC 

P 

3830 

385. 

RBARH = 

12.«HLH/LH 

P 

3840 

— JesT"' 

R8ARSC = 

12.9KLSC/LSC ' - 

P 

3850 


3B7. REARS = 12r*HLS/LS 

588. " " ZeiRHC =~T2.*HOMC/6 hC~' 

369 . 26ARH = 12.6HDH/D M 

sviT; ZBARSC = I2.*H0SC'’FDSC 

391. L®*£S = 12 .6HDSFDS _ 

'T92. FRHC YsORTTLRESHC**2»DRESHC‘'/‘621 

393. F RH £J50R T I t^SH • «♦ OJE SH99J »_ 

394. FRSC = 'S0RT<LRESSC*92<>DRESSC**zr 

395 . FKS = S0RTCLRES5 • *2* DRESS»^2I 

596, ■ FTC = FHC*f"sC 

397, ___ FT = FH ♦ F5 

'398. AFT = AFH ♦ AFS 



3^. 

~Tl1C ~ LMC ♦ LSt ’ ” 


3980 

«Q0. 

LI = LH ♦ L5 

P 

3990 

— COTT* 

"AL'I "r'll'M"'*' aCS ' 

P\ 

4000 

«IU?. 

HLTC = HLMC * HLSC 

P 

4010 


HCr = hVh ♦ MLS 

P 

40 20 

«Q(«. 

RBARIC = 12.4MLTC/LTC 

P 

4030 

VBTT ' 

Ti'ei’ftt = f2.*ML?/LI 

P 

4040 

•106. 

OTC = DHC * DSC 

P 

4D50 


OT = DM ♦ DS 

P 

40 60 

•loe. 

HOTC = MDMC ♦ DDSC 

P 

40 70 

"Tnj’y. ■" 

Mftf = hFh ♦ fibs 

P 

4080 

•llo. 

2BAR1C = 12.4MDTC/0TC 

P 

4090 

“•rn; 

’IWHl = ITTWBi'T/Crf ' * 

P 

4100 

•ll^. 

MRIC = MRESHC * MRES5C 

P 

4110 

■ V13. 

HRI = MRUH + HrCSS"' ' 

P 

4120 


LRTC = LTC4COSAL - 0TC45INAL 

P 

4130 


iRI = CT*C0SAL - DT4SIMAL “ ~ - 

P 

4140 

•>16. 

ORTC = 0IC*C05AL ♦ LTC«SINAL 

P 

4 150 

<ir, 

ORl - OT*COSAL ♦ LT4S1NAL 

P 

4160 

418. 

fRTC = S0RTILRIC**2*DRTC**2» 

P 

4170 

■ vi9~r 

'FRY = S6RTTLRT*42«DR'f 

P 

4180 

420, 

4AFTAV - C40FLUK/WD0T 

P 

4190 

42X. " 

ifAFlAC = G*OFLliXC/MbOTC 

P 

42 00 

422. 

VIOVC = 4INF/VC 

P 

4210 

4ji, 

¥J*iVV - IWlW'=¥jrrf7TV"» /it ~ ’ 

P' 

4 2 20 

424. 

41HVC =«VINF-VAFTAC»/VC 

P 

4230 

4?yr” 

"DbL = OR t /CRT ' 

P 

4 2 40 

426. 

OOLC = ORtC/LRTC 

P 

4250 

■ '"'4"2J. " """ 

ONBPl - 160. /3. 14159265 

P 

4260 

428. C 


P 

42 70 

fTf^TC 

liliAi'lbNHEfi'T 'PAh AMOtRS' 

P 

" 14 2 8 b 

430. C 


P 

4290 

*131* 

oTnr^nrf7rff2T#PT^iv;ir(rj/>o5JFpi ^ 

P 

4300 

4 32. 

OELVC = ATAN2fVAFTAC,VC»*0N8PI 

P 

43 10 

413*; 

ijirM“=nnnn5i2 *dfl ux,mfluk»*on8pi 

P 

4 3 20 

434 . 

OCLMC = ATAN2I0FLOXC.MFLWXCI4ON9PI 

P 

4330 

4 35ft 

uriifF = TRr"« IT 

P 

43 40 

436. 

MFLXPC = FRIC * LTC 

P 

4350 

T3T. ■ 

DMFTI = MFLUX - HFLXP 

P 

4360 

438. 

OMFLXC = MFLUXC - MFLXPC 

P 

4370 

4 39. 

PCDMF - DMFLX/MFLOK 

P 

4 3 BO 

440 . 

PCDMFC = DMFLXC/MFLUXC 

P 

4390 

*"441. 

“pniB- = imflux-2.d*lrTTfmflox 

P 

4400 

442. 

PCD2LC = IMFUiXC-2.D*LRICJFMFLUXC 

P 

44 10 

443. 

LIFT = « MD0T*VC/G^FRI l*t0SAL 

P 

44 20 

444. 

Line - I4DOTC4VC/S-FRICI4COSAL 

P 

44 30 

"4¥S . 

CTRIgP = IWbOt/Gi«(VC*SlNALtVlNF»-FRI*SlNAL 

P 

4440 

446. 

DRA6PC : tWOOTC/GI«'(VC*SlNAL » V1MF}-FR1C*5INAL 

P 

44 50 

" 447.' 

"W*6 ■ 0RA6P-tjFLux*C05i',l 

P 

44 60 

448. 

ORAGC r ORAGPC - 0FLt»XC4C0S AL 

P 

4470 

" 4tTf.-” ■ 

no:rAF=ArriF7irnTT¥c “ * " 

P 

4480 

450. 

MRITE 16.1651 

..... .P. 

4490 

451. 

WRITE I6.ri5l 

P 

4500 

452. 

URITE l6,140>FHC,FH,AFH,F5C.FS,AFS,FfC,FT.AFT 

. P 

4510 

453. 

WRIfE 16,1501 


4520 

454. 

URITE f6, 1451 LHC, LH.ALH.LSC.LS.ALS, LTC, LT, ALT, MLHC.MLHtMLS'vV 

a. ■ 

^5 TO 

455. 

TT'C,MLf,RBARHC,RBARH,R6ARSC,RBARS,RDARTC,RBART 

, 






«56. 

057. 

OSS'. 

059, 

060, 
061. 
062. 
063. 

0 60. 
065. 

0 66 , ■ 
067. 

‘ 06'6 . ■ 
069. 
'070.' ‘ 
071, 

0 72. 
073, 
’0'7<l. 
075. 

0 76. 
077. 

0 78*; 
079. 
"0B0.’~ 
oei. 
Og2. 
083. 

0 60, ■ 
065. 
”086".' 
067. 
'0“68, “ 
089. 
09ir. ' 
091. 

"OoF." 

093. 
0*90 r 

095. 

096. 

097. 

0 98*r' 

099. 

“500. 

501. 

*502. 

503. 

5 do'.'" 
505. 
*506. 
507. 

‘ s'oi 

_5D9. 

5Td.'* 

512 . 


no 

115 

120 

125 
130 
i is 


UBllt 16,155) 

WRITE l6.I70>DHC,DH,DSC|0S,nfC,OT,HQHC',H0M,f1D$C,HDS, 
lC,2B»PM,ZPARSC,7DA*RS,7BilRTC,rBART ; 

WRITE l6,!60>*Lr Ar,HRESMC,HRESHfMRES5Ci«RES5,HRTC,MR 
1 ,tRES SC, LRCSS,lRTC,LRT»ORCSHC, bRCSH,DRESSC, DRESS, DRT 
1 ,rRSC,rRS,FRTC,FRT __ 

“WRITC"i6,195|)tdFr U j ' 

WRITE l6,200)ARt,rRt ,WDDT,HrLDX,) 1 HrLX, 0 FLUXfVAFTAV,« 

lC,firUlliC,NMFLXC,bF‘LUXC,V»F'TiC^ 

WRITE (6,205)VIOVC,VlHVV,VniVC,DOL,DOLC 

Write is ,2 1 o i del w .del vc", D fciTH V d elhc . mflxF, dm fl x ,pc dhf 

lOHFLXC.PCDMFC.PCDPLC 

'VRITE' 16,215 >llFTVLiFTc',"bRXcP7DRACPC,DRi¥rDRAGC 

CONTINUE 

fornat 'ntu.Mi *■ '" * * ^ 

115) 

loti i.0,2F 7,5, 2Eli.O*^) 
f5ClS.6> 


FORMAT 

FORMAT 

FORMAT 

FORMAT' 


1 1HO,20X,23HO«0*0****OHUP***9»4>0*«0, 16X,23M*» 

1*0*****, 17X,22MT0TAL IHUB ANO_Sm?^UD )/15X .BHCOMPRE 
2PPES s', 5X , OH A R C A , 7 X ,8 H COHPR E SST& X 7 1 OHl NCOMPR E SS', 5 X 7o M 
3RESS,5X, lOHlNCOMPRESS ,5X,0HAREA > 

1 Ob' FORMA T 1 3X, BHtot AL/ 3X ,"5Hr6BCE“,0X , lf>9Ei3 , 

105 FORMAT 15X,5MF0RCE,2X ,lP9E13.0/5X,bHM0HENT,lX,lP2C13 
*''To';f3r,“l> 2t 1 3 riTs^iT7o7r3T.TP‘SrnV5 , 
150 FORMAT 13X,0HtlFT ) 

T5S“ FORMAT T3X',0MnRAG ') ' *' 

160 FORMAT 1 3X, IDHRE 5*JLT ANT S . 10 X, 1 BHANGLE OF ATTACK = ,1 

«»bR LIFT AND 1)"RA07 ' “SX , 6HM0MCNT ,Tx ,’lP2El 3 , 0 , 13X 

llP2E13.O/5X,0HLIFT,3y ,1P2E1 3.0 , 13X,1P2E13.0 ,13K,1P2C 
2’,3x;'iP2tl3.?;T37riP2E^^ lPZEf3Vo/'5X,’5MFdRCE.2X 

O1P2E13.0 , 13X, IP2E13.0 I 

165 FORM'AT rrHd,5DX7i7HSURF"ACr'lNtEGK7LS/ ') 

170 format 15X,SHFORCr,2^K,lP2El3.O,13X,lP2C13.0,13X,lP2F. 

' ■ 'i ‘ ' BXiSHHOHEN T, IX ,lP2ri 3'7o"ii3X iP2El 3,0‘ri 3X . 1 P2C 

2 SX.THMOM.^RM, iP2E1^.0,13X,lP2E13.0,l3X,lP2E 

ITb'FORHaT t fMi,'9X,lbMCA6^ , A6//fOX,9'Hy TE"sf H '= . IPE 

ITS = ,lPE12.5,3X,6MrwiNG = ,1PE12 . 5//10X ,9HVC = 
2‘WlNr ■ '=■ ,1PE12.573X,BMALFAF = , IPC f2 , 5", 2X ,'9HT 7 OT AL 
3X,9HRH0T = ,1PE12 ,5 ,3X ,9HPA = , 1PC12 . 5, 3X , BHPA 

07/l6x*9M'HiNF = ,rPE IZ.^sV^X.^HMC - ,1PE12.5///1 

5,15) ' ^ 

Iflb FORMAT liHb,9X,9H = ', lPC12^5/7o*7*xVl‘iH‘***9 

110X,lHV,10X,6MPS0PTC,13X,5HPSOPT, 12X.1HS ,12X,0HVRCS, 
2 ilP £2 2.5,lP2Ei6.5 ,iPCi9Vs,iP3E15,5 )) ■ 

185 FORMATllHO,OOX,16H#*9**SHROUD«*>»*>>//rSX,lHX,10X,lMy , 

*31 3 X , 5 HP 5 6 P T , 1 2 X , 1 H S ,*i 2 X , 0 H V R E STI. 2 X , 2 H C P / ( I P E 2 2 . 5 , 1 P 2 

21P^5^)) 

"iTb'FORMAT fTHOjoFx, '■■■' " 

«H8H9»»nOFF B0DV*«**«//IDX,1KX,13X ,l»!y,10X,2HyXfl0X, 
' '0 S OPC , 1 1 X , OH P S OP , 1 2X“, 0 HX R CS ,'l 2 X , 2 HC P / 7 U P E i 6 . 0 , 1 P c 1 3 , 
5E16.0 )) , 

19'5 FORMAT ’ll HO, 3 5 X, 3 OHM EASUR INC ST AT /ON INTEGRALS X r 
2C D FORMAT 1 1HO,33X,9H£ORCE^UE ,6X ,6HWEIGH T, 5X , BHHOMENTU 
10F,9X tOHDRAG , 7X , 7MA VE RARE/1 0 X .'oHARrA , 16X ‘.ThTO PRESS. 
20HFLUX,8X»12HMOMENTOH TLX , 6X , 0 HFLOX , BX , 0 HV AFT / /3X ,3H 
" ■ 5', 2X, SHIN COMP ,2X, IPEl i’.o', 1P3*E13 . 0 , IPEl'o .5 ,1 PCio .0 / 3 


MDTC,MDT,2f ARHP 
P 

TiLRESMC,LRCSMP 

c,drt,frhc,frhp 

P 

> 

R1XT,FR1C,WD0TP 

P 

P 

,PC02L,MFLXPC,P 

P 

- P 
P 
P 
P 
P 
P 

«**i:***sTtRoub*p 

SS.5X.10HINC0MP 
AREA ,7X,BHC0MPP 
P 

0 / ) P 

.0,1 3X.1P2E13.P 
X ;ip2ri3.o/ ) P 

P 

P 

PCl2‘:^,lX,17Mrp 

*IP2E13.0,13X,P 

I3.Oy5X,OH0RAGP 

,lP3E'l3,0,i3X,P 

P 

P 

13,0/ P 

1 3. 0 / P 

13.0/ ) P 

12.5,3X,9HVTESP 
,1PE12.5,3X,9HP 
= .1PE12.S//10P 
C = ,1PE12.SP 
CX.9HNTHETA = P 

P 

««**//15X ,1HX ,P 
12X,2mCp/ P 

P 

10X,6HPSOPTC, P 
ei6.5,lPE19.S ,P 
P 
P 

0HVAFT,11X,5PPP 
0 ,1P3E16.0,1H3P 
P 

.1PE12.5) P 

M,6X,9HM0MENT P 
,7X,OHFLO‘UiBX,P 
1NT,5X,IPE1?.5P 
X.SHCXACT, P 


0550 
0560 
0570 
0 5 80 
0590 
0600 
0 6 10 
0620 
0630 
0600 
0650 
0660 
06 70 
06 80 
0690 
0700 
0710 
0 7 20 
0730 
0700 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
083D 
0800 
0850 
0860 
0870 
0880 
08 90 
0900 
0910 
0920 
4930 
0900 
0950 
0960 
0970 
0980 
0990 
5000 

solo 

5020 
SD3Q 
5000 
5050 
5060 
50 70 
5080 
50 90 
5100 
5110 





TD, “ <TiT7i prr?T?;'z X ,*tHcbHp% xx ii .x ,iP3r.i3.M ,ipcj*i .sHpe i sil*" ’ p“" Ti zo 


”515. ‘"I E 11 ^ HT2k il ‘jft lTi^lNr-Fitf flif ITW^^ 1 1 .F7/3 X/fcHD/L *= * , iPE 1 IVFi 3 X ^8HP “ S 1 40 

516. 2DC/LC = .1PE11.4I P S 1 50 

■"£17. Z"l0 " f bf?HAY 11 MQ^SOX f 2 3M« TsXt IGNHEN J PA RAHC TERS/ZO X , 7MDEI. V =' » IPEI Z .5 t'SP 5 1 60 

516. lX.BHDELVC = , IPC 1 Z.S , SX ,7H0Etd = . 1PE12. 5.5X,8HDELMC = .1PE12.5/ P 5170 

*519.- nuB ;'5fcx ;iiiTFowYfti5tf»fir?‘2<rx';9»?^^ s' ■;rprrf;§75x;rri0WLV" = . > ‘si so 

520. 31PE1Z .S«5X*9HPCDHF = .1PE1Z.5*5X»9HPCDZL ' .1PE1Z.5/ P 5190 

szr. " 4'zOx ; 9 MKf lxpc ' = ^ l PcTz Vs i'Sx, bwoHrExc 1 pc i zis", sx'Jbri p cowrc = , P sz do 

5Z2. 51PE12.5,SX,9HPCD2LC = •1PC12.5I_ _ _ _ ** S210 

523'. 215 'FbRMififHO.ZX.lHLIft 5 /iPCi 1 . 4 ,3X ,BMt IFTC =";iPE 1 1 . 47JX .BHORAGP ~P 5ZZ0 

524. ) ,1PE11.4«3X«9H0RXCPC = ,1PE1I.4.3X.7H0RAC = , IPE 11 . 4 ,SX .SHDRACC =P 5230 

”525. 2 “.'iPEir.in "P 5240 

526. RETURN p 5250 

’ 527. E>1D " - - 



. -,PS'Q- 
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SUnROUTlNt 
«««>' * ' 

•• IHlS 

• 9*9 " 

CO HMON / ONOUT/ 
COMMON /GEMJCA 


TI 


OCT 76 
r 
F 
F 
F 
F 

'f' 


7. 


' 18, 

19. 

2D . 
21. C 
■22, C 
23, C 

"~2r."c 

25, 

27, 

■~*2“B,' 

29. 

~Tmr"' 

31. 

' “32 

33. 

^3 9 .' 
35. 


XOTF=CPS 


10 


-IF fxDir.EQ.d.oi 
A=A*XDIF 
CONTINUE 


IF THE RCAKE jftOUAL’S THE ‘ON 
TO THE VALUES ON BODY 


BODT 'X then set INTERPOLATCO VALUES- 


15 


IF lABSlXI-XONUT J.LE.1.DC 

00 IS fTrtf.'r ' 

BOO-l.O 

do 15 'Xl=H,N* - - 

IF UL.EO.K) GO TO 15 

If iTrr=¥Tin *mN <k r-«oN ircf 

CONTINUE 

Yr=o,o ■ “ ■ " 

OUM=0.0 

VlNTioTO' 

DO 35 1I=H,N 

’xClF sSc J -X ON l'i T 1 


■61 GO TO 55 


IF 


J^X_MF,EO.O,OI XOIF=EPS 
fIFLAC.GTili GO TO 2“5 ' 
TL.C0.3I GO TO 2D 


98. 

" ter;- 

51, 

sa',' 

S3, 

'-'5<». 

55. 

' 56 , 


IF 
IF 

viiiTifniVtT 

GO TO 30 

20 vmi=v 2 iii» 

^0 TO 30 

"TS^ Win 1 = VRt SdN ( I 

30 TI^l «IA*YOJjmi l/(X01F*Bllin 
VINTrviNf iU*VCll M/T X 0 iF 9 Biil 1 ^^^ 
JF I IFLA G.EQ. II GO TO 35 
w iTi I =WP n'lT ■ * 

DUM=DUM*| A*VI III I /(XDIF9BTIII I 

"35“CWfITiUn 

IF IIFLAG.EO.II GO TO 45 

ectVso^a ■' 

PS0P=0,0 . , 

00 40 "il iF.N":'™ " . - 

XOIF=XI-XON«III 

'if iXOIF.EO.d.'oi XOIF=EPS 


F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

r 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

r 

r 

F 

F 

r 

F 


12 

0000 
0010 
00 20 
0030 
0040 
00 50 
0060 



'"'no'Sf*CT,?unie~“ * - 

F 

00 70 

9. 

COMMON /RQ0UT2/ 1 <400 ,21 ♦VY AX f 200 ,2 1 ,VVCR 1 200 1 ,V2 140 C 1, V 3» 400 1 

,vzcr 

00 80 


■ iRtadoi ','T - ■' ■■ 

F 

00 90 

11. 

OIMENSION V<400l. n(4D0l 

F 

0100 


" • Ers-=i-.oE-i; 

F 

0110 

13. 

M=J-1 

F 

0120 

' l ‘C, ■ 

N=J»1 

F 

01 30 

15. 

A=l,0 

F 

0140 

16. 

'00 10 K=M,N 

F 

01 50 

17. 

XD1F=XI-X0N<KI 

F 

0160 


01 70 
0180 

01 90 
0200 

02 10 
0 2 20 
0230 
0240 
0250 
0260 
0270 
02B0 
0 2 90 
03 00 
0310 
0320 
03 30 
0340 
0350 
0360 
0 3 70 

03 BO 
0390 

04 00 
04 10 
04 20 
04 30 
0440 
0 4 50 
0460 
0 4 70 

04 80 
0490 

05 00 
0510 
05 20 
0530 
0540 
0550 






BCfA=BC:T6*« A*6ctA“ON( I li>>rXDIF*riTn» ' , 

F 

0560 

sa. 

90 

CONTINUC 

F 

0570 

59 ; 

95 

jK=J 

F 

0580 

60. 

50 

AD=X1-X0NIJK-1) 

F 

0590 

61 . 


on-xoNiJKi-'Xr 

F 

0600 

62. 


P0=9D*|XD*DD» 

F 

0610 

6JV 


P1=-I»0*BD» 

F 

0620 

6^ « 


P2=t*n+BO»*RD 

F 

06 30 

6¥'/ 


6C=-Bn '■ — ' • * 

F 

0690 

66. 


61=«[)-BD 

F 

0650 

6r. 


X2=AD ■ - 

F 

0660 

68. 


Or=IAO*yON(JX-l» J /PD* Ul*yi 3/P1*(A2*V0N< JKI »/P2 

F 

06 70 

"6‘9 . ' 


"ATPlUrAT'ANiDy » ' ' 

F 

0680 

70. 


AtPH=ALPHA/13.I9159 26 5/J80. 1 

F 

0690 

71. 


9X=VINT*C0S( ALPHA 1 

F 

0700 

72. ' 


VRCS=V1NT 

F 

0710 

■ 73. 


IF liFLAG.EO, 2| VX=DUK*cbSIALpHAi 

F 

0720 

7<(. 


RETURN 

F 

0730 

75. ■ 

55 

IF fL.eO.3) ’VINt = V2fjr ^ 

F 

0790 

76. 


VINT=T(J.L> 

F 

0750 

77. 


ir «irCAG.GT.]i viriT=vRES'6Ni jf 

F 

0760 

78. 


YI^VONIJI 

F 

0 7 70 

79. 


IF (IFLAG.NE. 1) DI>M=VP(Jt " 

F 

0780 

80. 


BETA=BETAON« J1 

F 

0790 

81. 


-JKiJ-l' • ■ — ■ 

F 

0800 

82. 


CO TO 50 

F 

08 10 

83. 


end 

F 

0 8 20 
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OCT Tfc 

* 1 

1 2 

1. 


SUBROUTINC LGRNGC IXtYfARGiGlNl 

0 

DOOO't 

' 2. 



'C0MH0N/J4N1/ Hli,LL,N " '■ . 

Q 

0010 

3. 


DIMENSION Kill, V( 50, 1 « 201, GIN( | • 20 t « A < 10 > 

0 

0020 



EOU'i VALENCE (XX, A til 1 ,1 XD, A (2 1 1 , 1 X 1 ,A t 3 i 1 , ( X2 , A (4 1 1 , (X3 , At SH * 

0 

0030 

S. 


1 tV0,A(6ll,(YI, AI7I 1 ,|V2,A|0t l,IY3,A(9ll 

0 

00 40 



“If fJSRG-xl2l> id; 10, 15 

0 

0050 

Tt 

10 

NX = 1 

0 

00 60 

6 • 


00 to 4b ■ ' ' ' 

0 

0070 

9, 

15 

IF (XINI.Lr.Xtn.OR.ARG.LEjtXtlll GO TO 10 

0 

OOBG 

lO;-- 


Tf*UPC-XiN-l)» 25,26;2D 

0 

00 90 

11. 

20 

NX = N-3 

0 

0100 

12; ~ 


"WTO'W"’ — 

0 

01 10 

‘ 13. 

25 

K - N-1 

0 

0120 

■. "IJi. ■ 


DO 35 jA=2,k 

0 

01 3D 

15. 


IF (ARC-X(JA)I 30,30,35 

0 

0140 

16. 

30 

NX = JA-2 ' 

0 

0150 

17. 


CO TO 40 

0 

01 GO 

" 18'. ■" 

35 

CONTINUE 

0 

0170 

19. 

40 

XX = ARC 

0 

0180 

2Q. 


DO 45 1=1,4 

0 

0190 

21. 


MXI = MX«I-1 

0 

D2Q0 

' 22. ' 

45 

A(l*il = K(NXI) 

0 

02 10 

23. 


ai=(tXX-Xl>*(XX-X2l4( XX-X3) }/IXO'Xl)/IXO-X2>/l X0-X3) 

0 

0 2 20 

■ 2*t. 


'B2=i tXX*-Xbl*tXX-X2l*i XX-X3n/tXl-Xbl/tXl-X2»/tXl-X3V 

0 

0230 

25. 


B3=f ( XX-X0I*«XX-X1I*I XX-X3I l/tX2-X0)/TX2-Xl )/t X2-X3I 

0 

D240 

26. 


B4=( tXX“XOI*IXX-X ll*t XX-X2I )/(X3-X0)/tx3-XH/tX3-X2l , 

0 

0250 

27. 


00 55 L=1,LL 

0 

0260 

28. 


DO 55 J=1,MM 

0 

02TD 

29. 


DO 50 1=1,4 

0 

0280 

30. 


NXI = MX *1-1 

0 

0290 

31. 

50 

A(1*5I = VtNXl,J,LI 

0 

03 00 

32. 


ANS = Bl ♦ YQ ♦ (12 * Y1 ♦ 03 • V2 * B4 * Y3 

0 

0310 

33. 

55 

GIN (J,LI = ANS 

0 

03 20 

34. 


RETURN 

0 

0 3 3D 

35. 


END 

0 

D34D 





so. 


Norpt 

1 . 

2. C**«*« 

3. C**4 

5.C**« 

6 .S*** 

7 , C*** 

9. 


SUBROUTINE NOEPTS 


J 9 


FOR RAKES NEAR HUB 


IHIS subroutine is to find the end POINTS 
SHROUO AND/OR SPLITTERS 
NOS = THE NUHDER OF END POINTS TOR EACH RAKE = 2*NO. OF SPL 
• 2 «HUB and shroud I ' * ** 

NOEP = THE INDEX OF THE RAKE ENDPOINTS 


To . 
U. 
12 . 
13. 

' lJ».' 

15. 

16 , ‘ 
17. 
Ifl. 
19. 

'2D. 

21 . 

22 . 

23. 


10 


is 


CCHHON /_NTN/ KOFF (200 I.YOFF 1^00 ttNPJlIN jNCLO ,NCH1 
iC OHM 0 N / N OU I / ■ i B E Ci N ( 2 5 T , I E N D ( 2 5 T , N 0 E P I 5 0701’ . N b"s'( 2 5 I , KR A K E S 
COMMON /ROOUTl/ XONI 9 00 I ,YON( AOOl ,NSPC (1 01 ,NSPB( 1 0) , *RI .NHUBHX 
iTN.’NrPLt.'YUfNG' 

jrl 

■■ iWSiiNIl >=i'" " ■ ■' .•* 

NPMNMUNPMIN-1 

bO'iS 'I=1»NPMNH1 ' - - -■ - - 

IF (ABS(X0FF(I*H-X0FF(I>I.GT..01» GO TO ID 

■ fib T 6 ‘is : — 

1END(J1=I 

J=J*1 

IREGINIJ>=1»1 

CONTINUE 

NRAKCSrj 

Nf^MIN " 


lENDI Jt: 


THE END POINTS OF THE SFLYTTfR 


2 R. 

25.C**««« 
i6,C*** FIND 

27. €♦♦«** 

28. DO 30 I = 1-,NRAKES 

29. I6=IBEGIN<I> 

3b. IE=IEND(I) * ' 

31. lEMirlE-i 

32 . DYTES T = A B5 ( TO FF ( I 0) -Y OFF ( T B ) 

33 «C*#««# 

39.C**« NS IS THE COUNTER TO bETERMiNE NUMBER 

35. C*#4 NOCP rs THE END POINT INDFX 

36. C*****' ' w,.:..... 


OF END POINTS PER RAKE 


37. 

38. 

39. 
NO. 
XI. 
82. 
83. 
>|M. 

85. 

86 . 
87. 
88 '. 
89. 

50. 

51. 

52. 

53. 


20 

25 


30 


NS=1 

NOEP(I.I)=m * " 

IF INSPLT.CQ.DJ GO TO 2S 
DO 20 K=IB,IEM1 

IF iA0S( A0S(YOFF (K'tn-YOFFCxn-DYTEST) .LE.l ,dE-8) 
NS=NS*1 , , - . 

NOCP(I,NS»=K 
NS=NS»1 

NOEPI I,NSI=K«1 

0YTEST=A6SI V0FF(K^H-Y0FF(K+2>) 

CONTINUE 

NS=NS4l ' 

NOEPd ,NS »ri£r 

N0S(1J=N5 
CONTINUE 
RETURN . 

END 


GO 10 2C 


OCT 76 
N 
N 

• N 

N 

ITTEN ^ 

*' “n"‘ 

N 

"n 

N 

N 

fNTMN 

■■'n 

N 

■ n"' 

N 

N 

N 

N ' 
N 
N 
N 
N 
N 
' N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 

N 

N 


12 

□ 0 00 ' 
0010 
00 20 
0030 
0080 
*00 50 
0060 
0070 

ooeo 

0090 
0100 
0*1 ro 
0120 
0130 
0180 
0150 
□ 160 
'O i'70 
0180 
0190 
0200 
0210 
0220 
0230 
0280 
0250 
□ 260 
0270 
□ 280 
0290 
0300 
D310 
0320 

□ 330 
0380 
0350 
03 60 
D37Q 
0 3 80 
0390 
08 00 
0810 

□ 8 20 
08 30 
0880 
08 SO 
08 60 
08 70 
08 80 
08 90 
05 00 
05 10 
0520 





’Sd.oFBdV 

1 . 

2. r. 

3. C 

<«.c 

5.C 

'" 6 ." 

7. 

a. 

9. 

id. 

11 . 
rz’. ■ ■ 
13. 

“ 14 . 

15. 

■ 16 . 

17. 

is:. " 

19, 

. 

21 . 

■ 22 . 

23 . 

■ 

25. 

'26. 

27. 

29 . 

3'd.' ■■■ 

31. 

32. ■" 

33. 

~'3T, 

35. 

36 .' 

37. 

— .;38 • 

39. 

41. 

ii2. -- 

43. 

Ii4 .’ ' 
45. C 
46';C 
47, C 
iiT. 

49, 


19 


SUBROUTTWr OFrODV 

SUilROUTlNr TO C 4 LCUUTC ALL OFF-UODY VARIARLFS 
CPCON CONTAINS MACH NO. IMl ON OUTPUT AS OF 6 /;i 2 / 7 ' 


COMMON /MONOF/ JJS.J.I 
COMMON /ONOUT 7 VRESON 
COMMON ARCONTl/ VC.W] 
COMMON /NIN/ XOFF» 20 O 
COMMON/dOP/WDCTCR 
COMMON /NOUT/ liiCGlNl 
COMMON'/lTnOUT'l/ XONT 4 
iin.nsplT.vui no 
common' /RDOUT 4 / NTMET 
COMMON /GEABC/ VI 
COMMON /GOUT 1 / OCA, PT 
COMMON /TOUTl/ SINTH, 
common /RC 0 NT 2 / PSTAT 
COMMON /VOUTl/ PSOPCT 
12 H 1 DD»,VMI t ICDI . VAFT 
COMMON /VOUT 2 / UI TICID 
ri.BETAPSI lODl ,VPR 51 « 1 
COHMON/BOO/DELQ 
■*COMHO‘N/F 6 RCe/ S< 4 Q 0 t, 
1 VXUOO»,V( 1 DD),XUOO» 
0 THEN SION 
1001 

DIMENSION OLbC(30n), 

1 3001 

tiTMENSlON VBRFFl 2 C 0 ) , 
DIMENSION 


PSOPTC1200) 
BETAOF < rOO» 
ZETA(20ni 
U{?CQ) 

DIMENSION PS 0 PTI 4 '01 
16 UI V A Lt*N CE ( P SO P t( 1 > 
REAL HpRIME.MPRIS T,MP 
Pi=3. 14159265 
014 = 1 , 0 / 1.4 
13 P 044 ='GRH 0 / 144 . 
NTEST =0 

DO 40 I=I,NPMIN 


14rC»»VP»40L.l ,BETAON14 30l 
NF.ALFAF.TTOT AL,ELND,VA,PT 
1,V0FF<20D 1 ,NpMIN,NCLO,NCHI 

25l,lENDI25»,NOEP<5D,61,N0S( 25) 
D0»,YONI40d»,NS>Etl0),N5PDl 10) , 

A,THCtAT 101 , X test UD) 

C.PSPTCl ,Pr018C,AT0TAL,GRM0 

COST)), omega 

,T5IAT,WD0T,NX,KND,VRIHUB, VRISH 
iao»,pnm looi.ZFTAHiDD) ,vvni 
1 ( ]CC» ,VSPANI (lOd »,ETAH IDO) 
I.V2PRK lOO.BETApI (1001 , VPRIU 
DO),MPRST (100 ),MPRI UOOl 

vAEf(2C0) ,VXC(“200),VRES0F (2DT: 
,NRI 

BETAdOO), .'Vi; 

lOSJtSC), 0(50!, OC9H5D), QFFA 

RBRTF (2'o6»‘, 0ST0U50.6 

VYC(200*, VZC 
,MPRlHr(2O01 .MPRIST (200), ALFAOF 
. VSPAN(2031, eta 

, PHI(20n), VH<200) ,CPCOFF 

,V2P2 IM(20D», BETA PR ( 200 ),y PRIME 
’ V2PRSf2QD» ,BFTPS( 20D) , WPRIST 

,PSOPTC( IT » , ( PSOP ( 1 1 .PSOPC til) 
RST.VPRl 


.ARAKES 


OCT 76 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 


XRJ.miUBMX.NTML 

L 

L 

L 

1. 

L 

R.UTIP L 

CC),CPC( 100 ),VL 
L 

Of) ,v?pnsrt locL 

L 

L ' 

VR'S, UOOJ , L 

L 

'.'(3 Op) , ALFAdL 
L 

Cr( 30 C), YiOC(L 
L 


(ZOO), 
(200 I, 
( 230 I , 
( 200 ) , 
( £00 1 , 
(£D0) 


/S'" - 


READ FROM TAPF 3 WR E SOF ( I » , tf X C U ) , V YC (1 ) , V2C ( I ) 
fjfcTo (3')'VRES0F(1 l,'iXC(T),VYC'(l),W2Cd) 

umu. — ^.r.uncc l\C .....'.ill.t.AA*, 


L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

I. 

L 

L 

L 

L 

L 

L 

L 


i c 

□ 000 

00 to 
0020 
0030 
OP 40 
0050 
0060 
0070 
□ 080 
0090 
□ 1 00 

01 10 
0)20 

0 130 
D14D 
0150 
0160 
S' 170 

01 80 

01 90 

02 00 
0210 
0 2 20 
0230 
02 40 
0250 
0 2 60 

02 70 
0 7 BO 
0290 
03CC 

03 ID 
0 3 20 
0330 
0 3 4C 
03 50 
036C 
0370 
0380 

03 9C 

04 00 
0 4 ID 
04 20- 
0 4 30 
04 40 
□ 450 
04 60 
04 70 
04 80 


so';" 

if (VCONA.LE.l.O) 60 to 15 ' 

L 

0490 

51. 

PSOPTCd 1=0.0 

L 

050C 

" 5*2. 

MPRlMCd )=C.0 

L 

DS ID 

S3. 

MPRISTd )=D.D 

L 

0 520 

54. 

‘ Vo f ORMATdM 1 IMAT PT. NO, , I 5, 1 OH, VRESOF ( = 

,C12.4,3IH) is greater tL 

0530 

55. 

IMAN VMAX. VC0NA= ,E12.4> 

L 

0 5 40 


HRITE (6,10II,VPE50Fil!,VC0NA 

L 

05 50 





'■”57.' Gfi TO 2b ' ‘ ' '■ 

58. 15 PSOPTCn » = (l.D-VC0f(/n«*3.5 

■ 59 . 20 ALFHOrn I=ATAN2«VVC<1 »,VKC(HI/PioiBO 

60. Bn^orn l:ARSIN«V7Cn l/VRCSOniH/piOlflO 

" 61 . V*rT 1 1»=VZC ( r »*5lNtH^ VYC rt V^CdSTH 

62 . VSP*N(n=VVCni*S!NTH-97Cin*COS7H 

Ts: • ' cTim »s*i*N 2 <VAmn .vs'crrnyp'rffirfl 

6A. ZETAU l = «TAN2fVSPANU I, VXCI 1 II /PIO 1 80 

65 , PHini=ATAN 2 (V 2 Cni,VXCfm/PldlflO 

66. VMU IrSORTIVXClI I **2« VYC C 1 1 **2 I 

67, CPCdFril lr(PSOPTC»Il-PSPlCi l/fOCA('PTCi 

68. IF IVCONA.lt. 1.1 00 TO 25 

' 69. CPC0FFm=9994. ’ 

70. GO TO 30 

71. 25 CPCOFFCI I=VPCSOF«ll/AtdtALJ?SOntll.~VCOi;iA) 

72. 30 CONTINUE 

* 73.C 

7'I.C IF THF OFF-BOOV X 15 NOT AT CONTROL STATION, 

■■'- 75 .C ■ ' 

76. IF (XOFFm.NE.XTESTUIl GO TO MD 

■ 77 . lF(NltST.EQ.0lNtE5T=I 

78. U(II=0MEGA*T0FF( 1 1 

79 . v 2 pRjHni=tfzcni-iim ^ ■ 

80. BETAPRd l=AlAN2tV2PRlHCII,VMmi 

81. VPRIHCfH=VHlTI7C0S(BETAPRTrif ‘ ' “ 

82. BETAPRII l=BETAPR niFPIOiaO 

~83, * VC0N:VPR1KC(I 1/ATOTAL 

89. IF (WCONA.GT.I.QI GO TO 35 

85. MPRlHEin=VCON/n 1.3-VCOffAl*«>.5y 

86 , 35 V7PRSm=-VZCIlI-lMll 

’B7. BETPStTI=ATANZfV2Pir5ITr,VKmi " ‘ ' 

88 . VPRISTTI !=VMU I/COS(BCTPSn II 

89v BETPSm=BETPS«n/PTbi 80 

90. VPCON-VPRISTTTI/ATOTAL 

91. IF IVCONA.GT. l.DI Go TO 90 " 

92. HPRISTai = WPCON/« »1 . Q -VCONA 1 •* . 5 1 

“*93. -w 'cefiiiiijoc " — *■ • 

99 , CALL NOEPTS 


‘ 9S.C**9*9 • • 

96. C*** I r COUNT FOR INTERPOLATED OFF-DDOY POINTS 
'97.C'**9 IK LOOP FOR NUMBER OF R'AkfeS 
9B.C»***9 

‘ 99,' -■ T=C ■ ' ■ * ' • ■“* 

lOD. OP'95 1«=1,NRAKES 

lot, * ^>JOSl=NOSaKl - 

102. 16-lBCCINMKl _ 

103, iFIlBiEO.NTESTlNtES'T-IK ■ ' ‘ 

109.C9«*9« 

TOS.'C#*"*' ’TS = srARTlHG“'POlRI Tb riW'oN~SbITr 
106,C**1* iSp = STOPPING POINT TO FIND ON-BODY X VALUE 
■107.'C»i* "K = Cbt/NT*F6R NUMDEW oF' E*NPPOINTS*Toir"i?aKE ^ ' 

IOB.C«**«* 


'109. N5=0 

110. DO 90 K=I,NOSl 


1. IF I'K.GT.ll GO TO 95 

2. IS=1 

3. ISptNMUBMX - 


L 05 60 

L 0570 

L 0 5 80 

L 0590 

L D60C 

L 06 ID 

L D62D 

L 06 30 

L 0690 

L 06 50 

L 06 60 

L 06 70 

L 06 80 

L 06 90 

L 07 OD 

L 0710 

L 0720 


SKIP FOLLOWING 



CALCULI .0 7 30 
t 07 90 
L 0750 
L 0 760 
L 0770 
L 07 30 
L 0790 
L oeoo 
L OBIO 
L 0620 
L 08 30 
L 0890 
L 08 50 
L D86D 
L 0870 
L 0860 
L 0890 
L D9d0 
L 09 10 
' L D'920 
L 09 30 

L 0990 
L 0950 
L 0960 
L 0970 
L 0980 
L 0990 
L 1000 
L 10 10 
L 1020 
L 10 30 
L 1090 
L 1050 
L 10 60 
L 1070 
L 10 80 

1090 






I' W. " 

'4 m ■ ■ • 

CO TO 7b 

L 

11 3D 

ns. 

45 

ir (K .[:o.^osl > GO to gs 

L 

1140 

iu. 


17* iHOOfK, 2l.ro. 01 Go TO 50 

L 

1150 

117. 


1S-N5PC(NSI 

L 

1160 

lie. 


ISP=NSP01NSM>-1 

L 

1170 

119. 


ir IK.C0.N05I-11 rSP=NTHIN 

L 

11 BO 

12'0.' 


60 TO 70 

L 

1190 

121. 

50 

NS=NS«1 

L 

12DD 

122. 

55 

1S=NSPB«NSI 

L 

1210 

123. 


15P=NSPEINSI 

L 

1220 

12H. 


ir IXOFFdC ) .GT.XONil SI .OR.XOFF lip > .U .XONUSP J » 

GO TO 6D L 

123D 

12S. 


CO TO 70 

L 

1240 

T26. 

60 

NS=NS«1 

L 

1250 

127. 


GO TO 55 

L 

1260 

126. 

66 

lS‘-NH»eMX»l 

L 

1270 

129. 


15P=JJ 

L 

12 80 

OD.C 



L 

1290 

131. C 


00 LOOP TO SEARCH FOR ON-BOOT X VALUES NEAREST TO 

OFF-BODY X WALUCL 

1300 

■■132.C 



L 

1310 

1 33. 

70 

I = I»1 

L 

13 20 

i3«l. 


xn» = xoFfnii) 

L 

1330 

13H. 


IFLAG-2 

L 

1340 

136. 


DO 85 J=IS,ISP 

L 

13 50 

137. 


if IM0D(X,2).EQ.D1 GO TO 75 

1 

13 60 

1 ra.c 




L 

13 70 

139. C 


SEARCHING FORWARD - TOp-STDE OF A BODY 

L 

13 60 

i<io.c 



L 

139D 

141. 


IF (xn 1 .LF.XONd sn GO TO 60 

L 

14 00 

142. 


IF iXONlJtL.LT.XilM GO TO 85 

L 

14 10 

143. 


CALL INTPOL (l.JfXin .IFLAG.VXm.VRESnj.orTAm 

.ALFAini L 

14 20 

'144. 


PsePCIIt = »1.0-,2-FIV/RES<Ti/AT6TALi>» *2 1443.5 

L 

14 30 

145, 


Ym=Yl 

L 

1440 

146. 


CALL VAPOFF 1 I.BETA, ALFA.VX .VRES.X ,Y) 

L 

1450 

147. 


CO TO 90 

L 

14 60 

14Q.C 



L 

1470 

149 ,C 


SEARCHING BACKWARD - UNDERSIDE OF A BODY 

L 

14 80 

'150.C 



L 

14 90 

151. 

7 5 

IF (XONt J) .GT .X< H) GO TO 85 

L 

ISDD 

152. 


IND=J-1 

L 

1510 

153. 


call INTPOL n.J.Yd l.IFLAG.VXm.VRESn l.BETAni 

.ALFftfl n L 

15 20 

154 . 


psopcm=ei,o-.2*rvRCs<i »/atotal>4 4 2)443,5 

L 

15 30 

155. 


vm=Yi 

L 

1540 

l56r 


KCTAn»=-ErTAn» 

L 

1550 

157, 


V X 1 1 » =-v X m 

L 

15 60 

158. 


CALL VAROFF ( I , B E TA , ALF A , VX , VRCS . X , Y ) 

L 

1570 

159. 


CO TO 90 

L 

1580 

160. 

80 

Ym=o,o 

L 

1590 

161. 


vxm::wxcrTO) 

L 

16 00 

i&2 . 


VRtSLf irWRESOFirO > 

L 

1610 

163. 


BETA<I|=BETAOF(IB» 

L 

1620 

1 64 . 


ALFA<II = ALFAOnlB) 

L 

1630 

165. 


psopcm-psopTctini 

L 

16 40 

166. 


CPCn )=CPCOFF<ID 1 

L 

1650 

167. 


GO TO 90 

L 

16 60 

163. 

85 

CONTINUE 

L 

1670 

169. 

90 

CONTINUE 

L 

1680 

170. 

95 

CONTINUE 

L 

1690 





i7i. 

... . 

L 

170D 

172. 

c«*« 

INTECHATCO WCICHT FLOW OETwrCN LOWER ROUND* RV< EITHER 

IftlR OR AXIS) L 

1710 

173. 

c**« 

ANU LOCAL V VALUE 

L 

1720 

17^. 

C*4« 

NIO = NUMBER OF INTERPOLATED OFF BODY POINT 

L 

17 30 

ITS. 


L 

1790 

17b. 


NI0=0 

L 

17 50 

177, 


10S=Q ■ ■ * .. ■— . * 

L 

1760 

17B. 


DO 125 J=1,NRAKES 

L 

1770 

179. 


IOS=IOS*1 

L 

1780 

lao. 


OLOCnOS 1=0 .0 

L 

1790 

161. 


NOSI=NOSUl ’ ■ 

L 

1800 

1B2. 


QST=0.0 

L 

1810 

163. 


DO 120 NS = 1,N0SI,2 ■ * 

L 

1820 

169. 


NI0=NI0*1 

L 

1830 

les. 


NLOU=NOEPIJ,NS» 

L 

1890 

166. 


NM1=N0EPU,NS«H 

L 

18 50 

1B7. 


NH1M1=NH1-1 

L . 

I860 

188. 


10S=I QS*1 

L 

18 70 

169. 


OLOCI l6SI=PI9rpS0PT’cT NLOUi**bl9*I YOfF(NLOM)*V)(CINLOW > »*PSOPCCNIO >*L 

18 80 

190. 


1 90199 (V(N10t9!VX< NIO) ) )9 1 YOFF( NLOW ) -V (NIO ) ) «OST 

L 

1890 

191-, 


DO 100 I=NtOW,NHIHl 

L 

1900 

192. 


10S=10S* 1 

L 

1910 

193. 


OLOC( idS »=OLOC(IOS-1 ) •P19(PSoPTC(I V l )** o199(YOFF(1 *1 )9VXC(1 ♦! ) )*PSL - 

1920 

199, 


10PTCm990199(V0FF(I) 9VXCU m9TY0FF(l«l l-VOFF (1 n 

L 

1930 

195. 

100 

CONTINUE *“ 

L 

1990 

19b. 


NlOrNIO*! ' 

L 

19 50 

197. 


losnoSM 

L 

1960 

198. 


IF (X(NIO).LT .X0N(JJ1 ) GO TO 105 

L 

19 70 

199. 


OLOC( lOS )'=OtOC(TOS-l i ♦Pr9iP^dPC"fNr0T990199(y(Nl0l9VX (NIO ))*PSOPTC(L 

1980 

2Q0. 


1NH1I990199( Y0FF(NHn9VXC(NHI> 1 T9(Y (NIO)-VOFF(NHI ) ) 

L 

1990 

201. 


OSTsOLOCdOS ) •* * 

L 

2000 

202. 


GO TO 110 

> L 

20 ID 

203. 

105 

OLOCnoS )=0L0C(I0S-1 » 

L 

2020 

209. 


05T=QL0C(T05) 

L 

20 30 

205. 

110 

IF (NS.EO.NOSr-1) GO TO 115 

L 

2090 

206. 


JOSilQS*! 

L ■ 

2D 50 

207. 


OLOC(10S'):OLOC(I05-1 1 * " 

L 

2060 

208. 

1 15 

OSTOT ( JiNS)=OST 

L 

20 7D 

209. 

120 

CONTINUE 

L 

2080 

210 . 


iosJiJi-ios- 1 05A vr 

L 

2090 

211. 


iosAvr=ios 

L 

2100 

212. 


IF (J.EQ.l) IC>SJ(J)=10S 

L 

2110 

213. 


0(J|=0ST 

L 

21 20 

219. 

125 

CONTINUE 

L 

2130 

215. 


DO 13(3 1=1,105 

L 

2190 

216. 


CLOC(l)=OLOcn I9GP099 

’ L 

2150 

217. 

1 30 

CONTINUE 

L 

21 60 

218. 


SUM=0.0 

L 

21 7U 

219. 


DO 135 1 = 1,NRAKES 

L 

2160 

2 20. 


0 (11=0(1 )9CR099 

L 

21 9C 

221. 


IF (IBEG1N( 1 ) .NC .NCLO ) GO TO 135 

L 

22 00 

222. 


QG*R = 0(I). 

1. 

22 10 

223. 

135 

CONTINUE 

L 

22 20 

229. 


DO 190 I=1,NRAKES 

L 

22 30 

225. 


otvl('i)=(o(i )-qbaR)/opap 

L 

229C 

226. 

190 

CONTINUE 

L 

2250 

227. 


1ST=1 

L 

2260 





22S. 

irNSl 0SJ( 11 


L 

2270 

229. 

DO 15D r=1,NRAKCS 


L 

228C 

230. 

OAlL:Om 


L 

2290 

231 . 

JlriorOlNll » 


L 

2 3 00 

232. 

irixorn JTl .LT.XO'lUJ l»OALL = 0«NTCST» 1 

23 10 

233. 

0(1 14S J = IS1 .ITN 


1 

2320 

234. 

Cr(?ACT(Jl=OLOC(J)/OALL 

L 

23 30 

235. 

145 COHTINUC 


1. 

2340 

236. 

15T:lrN« 1 


L 

2350 

237. 

irN=rrN*iijsJn.i » 


L 

2 3 60 

23a. 

ISC CONTI NUC 


L 

2370 

239. C 



L 

2 3(10 

240. C 

WRITS orr-ootiY data 


L 

2390 

241. C 



L 

2400 

242. 

fiTAO (21 (VBRFFl I J.RBRTrn I ,1=1 .NPMINI 1 

24 1C 

243. 

UPITL (6,2351 


L 

2420 

244 . 

N10 = 0 


L 

24 30 

245. 

00 165 1=1,NRAKCS 


L 

2440 

246. 

NOSI=N0S»I 1 


1 

24 50 

24 7. 

DO 16F NS = 1 .IK’S! , 


1. 

24 60 

246. 

NtOWzNOFPd iNSl 


L 

2470 

249. 

NHIiNOCPd .NS til 


L 

2480 

250. 

155 NIO=NIO+1 


t. 

2490 

251. 

WRITF T6,2401X(NIf>), 

Y (Nl 01, VXdllOl ,VVr (NIO) ,VZI (NIO) , VRCSIMO 1 ,VMIl 

25CP 

252. 

1 (NIOi .VAFTI (NIOt , VSPANl (Nl 0 1 ,PSOPC ( NI 0 » L 

25 1(3 

253. 

3F (M0D(NJ0,2 l.CO .01 

CO 

TO 160 L 

2 5 20 

2 54. 

itFlTC (6,?45MJ,X0FF (Jl 

,YOrF( Jl ,WXC(J1,VYC(JI,V7CIJ1 ,VRCSOr ( Jl ,VM(L 

2530 

255. 

1 jjl iVAFK Jl,V5PAN( J1 , 

RllRTF( JI,P50PTC(J) ,J=NLOW,NHI 1 L 

2540 

256. 

ijO TO 15 5 


L 

2550 

257. 

lAC/CONTIMUr 


L 

25 60 

258. 

165 CONTINUr 


L 

2570 

259. 

WRITE (6,2501 


1 

2580 

260. 

NIO=D 


L 

2 5 90 

261 . 

NO=P 


L 

2600 

262. 

DO 185 1 = 1,1, RAKES 


L 

26 10 

263. 

NOSI=NOS(11 


L 

2620 

264 . 

CO 18 r NS = 1 ,N0S1 , 7 


L 

2630 

265. 

NLOW=NOCP(I ,RS) 


L 

2 6 40 

266. 

NMl=N0EPtI,N5tll 


L 

2650 

267 . 

170 NI(i=NIO+l 


L 

2660 

266. 

NO=NQti 


L 

26 70 

269, 

YLOCtNOl = YdJIOl 


L 

268C 

270. 

WRITE (6,255»y(NI01 , 

Y (NIOI,CPC(NIOI,AIFA lNIOl,BFTA(NTOi ,r.TAmiIOl,L 

26 90 

271. 

IZCTAl (NIOliPHH (NIOI 

rOFRACTINOl L 

2700 

272. 

IF (M00(mo,21 .E0,t 1 

CO 

TO IBP L 

2710 

273. 

DO 175 J=WLOW,NHJ 


L 

2720 

274. 

NC'=NQtl 


L 

2730 

275. 

YLOCCNQl : Y0FF(J1 


L 

2790 

276. 

WRITE (6,2601J,X0FF( Jl, 

Yorr ( Jl ,vBRFFiJi,cPcorr (J1 .alfaof (Ji,BrTAorL 

2750 

277. 

1 ( JI,ETA( JI,7ETA< J),PHI( J),OFRACT (NQl L 

27 60 

2 73, 

175 CONTINUE 


L 

2770 

279, 

GO TO 170 


L 

2780 

260. 

lap CONTINUE 


L 

2790 

281. 

laS CONTINUE 


L 

28 00 

282. C 



L 

2 8 10 

283 .C 

WRITE OFF-GODY DATA 

AT 

THE CONTROL STATION L 

28 20 

284. C 



L 

2830 



-cPS'9 


2C5. URlfC lfc,?65 )XTCST( I I ,UriP L 

266. NIOrij L 

267 . t»C: 2a^ T-l,r!RAKCS L 

266. NOS]=NOSm L 

289, DO 20n NS=1 ,NOSI ,7 L 

290, NLOU=NOrP(ItNS) L 

291, NHl'NOtPll,NS*n L 

292, 193 NIOrNlOtl L 

293 , ir (xiNioi.Nr.xTcsTn n go to 195 l 

299. WRITE <6,27C ITiNlP) .UlINJO) ,V2PRHNI0» ,VPRI »M 0 » , MPR I <Nl 0» ,«E TfcPI (L 

295. l»110>,V?PR5HNl'0>,VPR5T«NIOI,MPRST(NI01,nLT*P5«NTOI L 

296. If IH07IN10,?».E0.0I CO 70 2CC L 

297. NPI=N70 L 

298. WRirr 16 ,27C1 ftOFM J) ,U TJ» , V2PR1 H t J I , VPRl HE Ul .MPRIMCIJ) ,PCfAPR( JIL 

299. 1 ,V2PR5IJ>, VPRIST ( J>,HPBIST ( JI,QETPS< Jl ,J=NL0W,NH1 » L 

3D0. 60 TO 190 X 

301 . 195 K10=M0+1 L 

302. 2PD CONTlNDr L 

303, 205 CONTINDF L 

3 0<l.C L 

305. C WRITE uriGHT FLOW DATA L 

306. C L 

307. WRITE 16,285) t 

308. NIO=C L 

309. DO "3r I=l,NRAKrS L 

310. NO. .:NOSin L 

311. DO 225 J=1,N051,2 L 

312. N10:NI0+2 L 

313. OSTOTM,J)=QSTOT(lt.J)i6R099 L 

319. OFR-OSTOT (I , J)/0( 1) L 

315, rM=99999. » 

316, 6WALL=99999. 

317, ri.C0EF = 99999 . L 

318, WD0CRA=99999. L 

319, IF IXINIOI.LC.XONUJ) ) CO TO 215 L 

320, ARAXrrPiyi99 . 9( 7 (NIO ) oy 1 NTO ) -Y ( NI 0 -1 ) #V ( MI 0-1 ) I L 

321, OVALL-GRHO*ARAKE9r>SOPCINIO )**0 199VX1NI0) L 

322, rCCOCrsOSTOT < I,J)>OWALL L 

323, ER=D. L 

3 29. WOOCRA=OSTOT 1 I , J ) 9S0R T 1 T TOT At /5 1 8 . 67 )/PT C*2 1 1 6 . 22 /AR A hC L 

325. 2 10 EF=a5 .38 9 8-^' r*, a . ♦.Z*CM'9EMH'*3.-WD0CRA L 

3 26. nrDH=85. 38'i ,.» ( 1 , ♦ ,2*E M9EM ) # . • (1 , - 1,2 *E HfF.H/ 1 1 . ♦ .2* EP9EM ) I L 

327. £R:EH-EF/0FDM L 

328. If <AB£1EF/Pf t>M/lFM+EF/DFDrt)).GE.,Cl) GO TO 31D L 

329. 215 iF IJ.GT.U GO TO 220 L 

330. IF iXlNIOl.GT.XONrjJ) ) WRITE ( 6 ,2 7 5 ) I ,X t NI 0 1 ,DEV 1 (1 ) ,OST OT 1 T , J) ,OFL 

331. Zh.WDOCRA.EM.OWALL .FLCOEF L 

332. IF IX INIO.LE.XON (JJ) ) WRITE ( 6 .27 5 U » X ( NI 0 ) ,0E V 1 II I , OS T OT 11 , J) , OFL 

333. 2R L 

339. GO TO 225 L 

335. 22G IF IX INTO) .G T .XONl JJ) 1 WRITE < 6 ,280 )0S 701 11 , J) .OF R, WR0CR4 ,EM, OWALLL 

336. 2,rLC0EF L 

337. IF lXlN10l.tr. XONIJJ)) WRITE I 6 i2fl0 ) OS TOT 1 1 , J ) , OFR t 

338. 225 CONTINUE t 

3 39, 2 3C CONTINUE I. 

390, CALL STRMLl YLOC.OFRACT.IOSJ.NRAKES .XOFF.NOEP) L 

391. IFlMX.EO.-l) CALL OF FORC IPSOPTC ,PS OPT ) I 


2890 
2B5C 
2860 
2870 
2880 
28 90 
2900 
2910 
2920 
2930 
2990 
2550 
2960 
2970 
2980 
2 9 9C 
3000 
3010 

30 20 
3030 
3090 
70 50 
3060 
3D 70 
3080 
3090 
3100 
3MD 
2120 
3130 
3190 

31 50 
3160 
3170 
3180 

31 90 

32 00 
32 10 
3220 
3230 
3290 
32 50 
3260 
32 70 
32 80 

32 90 
3300 
3310 

33 2D 
33.30 
3390 
3350 
33 60 
3370 
33 8D 
3390 
3900 



P60 


KflllHN L 

L 

roRHflTS L 

SMS.C***** L 

346. C L 

347. ?35 fORHAT UKl f 5X ,2 3 HOTF -DODV POINTS JRAKTS)/ t 

346. • IMC.irXintHCOOROlNATES * L 

349. 1 -^ VELOCITJCS ♦ PRESS. RL 

350. 2ATI0/1Z3K AX J AL RADIAL AXIAL RADIAL CIRCUMFL 

351. 3r.riTL RESULTANT NERIDIONAL , CHOPDWISE SPANUISE COMPL 

352. 4/129M I X Y VX Y V VZ L 

353. 5 VRES VK VAET VSPAN RHOl'R PSOPL 

354. 6TC1 , ■ L 

355. 240 FORMAT ( SX , 1 P9E1 2 .4 f 7X, OPre ,4 I L 

356. 245 FORMAT U 5, 1 P9C1 2 .4 , DPF7.4 , OPFO .4 > L 

,357. 260 FORMAT «//lHD,lI2H COORDINATES NCR CP L 

jSfl, I « angles 

359. 209H AXIAL RADIAL MERIDIONAL 

36D. 3L FLOW UNnERTURNG SPANWI SC SW1RL/122U I X L 

361. 4 ¥ VBRl H ALPHA RCTA L 

362. ' 5C7A ZCTA PHI OFRACT) L 

363. 255 FORMAT I 5X , 1 P2C1 2 .4 , 1 ?X » 1P7E12 . 4 » L 

364. 260 FORMAT <1 5 , 1 P ICE 1 2 . 4 > L 

365. 265 format UHL 5X ,2 5IIREL ATI VE POTOR INLET DATA/ L 

366. , « 1H0.I4H X = ,F1D.4,17H UTIP ’ ,FJD.4//12L 

367. ‘ 12H V U V7PPIHC VPRIM MPRI ME L 

36B. 2 UFTAPR V2PRST VPRST HPRS PFTAPSJ L 

369. 270 FORMAT t 5X , 1 P ICE 1 2. 4 ) L 

370. 275 FORMAT ( I E , 2X , IP E 11 . 4 ,5X , 1 PE 1 1 . 4 ,6X , IPC 1 1 . 4 ,2X , 1 PC 1 1 . 'i,4 X , IPE 1 1 . 4 ,L 

371. 44X,1PC11 .4.2UX, IPCM .4 n L 

372. 2Bn FORMAT ( 4 3X , 1 PC 1 1 .4 , 7X , 1 PC 1 1 . 4 , 4X , 1 PE 1 1 . 4 , 4 X , 1 PU 1 . 4 , 2( 3~V’. IPC 1 1 • 4 ) L 

373. 1) L 

374 . 265 FORMAT UHL , 5X,2 1 HRAKC WEIGHT FLOW DATA/ L 

375. * 1H0.92H 1 X ( 0 ( I I-OP A R ) /OD A R OS TOTL 

376. I OFR OST OTCR/ARAKE MBAR L 

377. 234H OWALL QSIOT/OWALi. » L 

378. END L 


3410 
3420 
34 30 
3440 
3450 

34 60 
347D 
3480 
3490 
3500 

35 10 
3520 
35 30 
35 40 

35 50 
356Q 
3 5 70 
3 5 00 
3590 
3600 
3610 

36 20 
3630 
3640 
3650 
3660 
3670 

36 BC 
3690 
3 7 00 
3 7 1C 
3720 
3730 

37 40 
37 5C 
3760 
3110 





SO.ONBDY 19 OCT 76 12 


1 . 


SIWROUTINC ONUODV 


1 

0000 

2 , 

C* * **9 


I 

30 10 

3. 

C994 

THIS SliRROUTUit CALCULATES ON-BODY VARIABLES 


1 

0020 

9 • 

4 449 


I 

0030 

S. 


DIMENSION SPLOU4’'a,2l,PPL0TI40C!,2»,LA0«3) 


I 

00 40 

6. 


dimension PS0PH4fDI 


I 

0050 

7- 


COMMON /URT/ KSKIP.NT I2),NPI3» 


1 

00 60 

8. 


COHMON/SLNNO/SLND 


I 

0070 

9. 


COMMON /MONCF/ JJS.JJ 


I 

0080 

10. 


COMMON /RDOUTl/ X ON « 4 CO » , YONI 4 0 0 » , NSPE ( 1 0 > ,NSP B 1 1 D > , X RI , 

NMUBMX,NTMI 

0090 

11 . 


UN>N6PLT .YUING 


I 

0100 

12. 


COMMON /COUTl/ 0 C fl, PTC.PSP7CI , PI 0 1 80 , A TO T Al ,r.RHO 


1 

one 

13. 


COMMON /ONOUT/ VR TSON 14 0C> » VP I 4D0 » ,BET A0NT40C 1 


I 

01 20 

19. 


COMMON /RC0N.'2/ P ST A T »I ST A T ,UDOT ,N X ,KND , VR I HUD , YP ISH R ,UT IP 

I 

0130 

15. 


COMMON /RD0UT4/ N THET A, THCT A 11 D » , X TEST 11 OT .NANOLE , 


1 

0140 

16. 


1 lSWIRL,TEWrRL<42C» 

1 

01 50 

17. 


COMMON /RCONTl/ VC, VI NF , ALPAF , TToT AL ,ELNO, V A ,P T ,CUTO FF 


I 

0160 

18. 


COMHON/FLAGS/IVORT.ICLOM.T'SIG.ICIIRV.NONEWF.IDENT 


1 

0170 

19, 


COMMON/TITL/ TTITLf9,6» 


1 

0180 

20. 


COMMON/BICT/T ITLE<12» 


I 

0190 

21 . 


DIMENSION VTH«4C0), PSOPTCI400), DptiON < 4 DC 1 . VBAR<40C), 

RP0RT1400II 

□ 200 

22. 


COMMON /FORCE/ ST 4 2DJ , VAFI (200 J , VX F « 200 > , VRE EOF C 200 » , VRCS UDD) , 

1 

02 10 

23. 


lVXIlLC»,YnuO»,X(lCO» ,NRI 


I 

0220 

24. 


EouiVALFNcr Tpsomn » tPsoPTCi 1 > ) 


I 

0 2 3E 

25. 


DATA SOSREF/VS/SRCFV 


1 

02 40 

26, 


data THHETA/6!ITHLTA = / 


1 

0 2 50 

27. 


DAi.' (<TTriLnS,I6»,15=l,91 ,16=1,2) 


I 

0260 

2fi. 


1 /6!f ,6H N0R,6HHALT2E ,6im SURF.6HACFD1 

, fills TANCE 

.1 

0 2 70 

29. 


16H ON SH,6HR0UD, ,6H5/SREF,6H ,6H ,6H PRESS, 6HSURE R,6H1 

0280 

30. 


2aT10, , 6HP5/PTC , 346H / 


1 

0290 

31 . 


DATA LAB/6HT0U'ARD ,6H FAN F,6HACE / , S SREF F /6H SREF = / 


J 

0300 

32. 


DO 1C IPT B=1 ,9 


T 

C3 10 

33. 

10 

TTITL ( IPI3, S »=TITIC( I BIB«2) 


1 

0 3 20 

34. 


1 PLOT 1=999 


1 

03 30 

35. 


lSk,'=l 


I 

0 3 40 

36. 


IPLOTrC 


I 

03SD 

37. 


IF(NTHETA.EQ.r') CUTOrF = C. 


I 

0360 

38. 


IFINTttCT A.NE.ri 


I 

2 3 7D 

39, 


ICALL SRTNC 1 X ON , V ON , XRI , YR 1 HUB , YR I SHR , NHUBHX , N TH I N , S » 


1 

0380 

40. 


DO 55 1=1 iNTHIN 


I 

0 3 90 

41 . 



1 

04 00 

42. 

C4 4 4 

READ FROM TAPE 3 VRCSPN , VP , VTH 


I 

04 10 

43. 

C« 4444 


1 

04 2C 

44 , 


READ 13) VRESONII. ),VP 11 ) ,VTH1 1 ) 


I 

C4 30. 

45. 


VC0NC = .?4<VRES0N1 I) /A TOT AD 44?, 


1 

04 40 

46. 


IF IVCQNC.GT. ] .0) GO TO 15 


1 

G450 

47. 


PSOPTCII. ) = 1 1 .r-VCCNC)443.5 


I 

0 4 6C 

48. 


CO TO 25 


I 

04 70 

49. 

IS 

PSOPTCl I )=C .0 


I 

C480 

50. 


WPTTC 16,20)1 ,VRESON 1 1 1 ,VCONC. 


1 

04 9u 

51 . 

22 

FORHATllH ,11HA) PT. NO. ,1 5, 1 OH, VRESONl = ,ri2.4,31H) IS 

GREATER 

T1 

05 00. 

52. 


IHAN VMAX. VCONC= ,n2.4» 


1 

0 5 1C 

S3. 

25 

IF IVTHI 1 I.EO.C.O) CO TO 3C 


1 

0520 

54, 


BETAOMI )=ATAH(VTH1I » /VPII ) )/PI01RC 


I 

0 530 

55. 


GO TO 35 


I 

0540 

56, 

3.: 

EETAONl I )=C ,(J 


I 

055C 





57. 

35 

Cf'COfgm =1P50PTC< Jl -PSP TCI »/<0Cfl/PTCt 


1 

0 5 60 

SR. 


IT IVrONC.Ll , 1 ,1 no to 4D 


I 

DS7D 

59. 


CPCOKin =9999. 


!, 

D5 0C 

60. 


GO TO 55 


1 

0590 

61. 

4C 

CPCONU»=VRESONCI »/A T OT «L /SORU 1,-VCONCl 


I 

0600 

62. 


ir (CPCOMi > .LI. 1 ..OP .NX.NE.l » 60 TO 55 


J 

06 10 

63. 


ir (CPCoNn-n.LT . 1 . » no to 45 


1 

0620 

64. 


VSAVri=VRESONTn 


I 

36 3D 

65. 


vREsoMm=uRrsoN (I *1 > MvRCsoNU »-vsftvc I’jsoni n , ♦ n .- 

. 259 (LH5AVE*CP1 

Q64C 

66. 


ICONU M«92> / ( .25*»E«S AVE+CPCONII » >*«2M 


I 

0 6 50 

67. 


VSAVC=VSAVC1 


I 

06 60 

66. 


EKSAVF=CPCON( U 


1 

36 7.0 

69. 


VC0NC = .2 0l VRESON (1 1 / A TOT AL ) **2 


1 

C680 

70. 


PSOPTCniPC 1 .r-VCONC 1 «*3.5 


I 

069C 

71 . 


CPCOTJ m=VRESOM I J/A T OT A L/S CiP T 11 , -VCOfJC > 


] 

0700 

72. 


CO TO 55 


1 

j71E 

73. 

4 5 

WRITE (6,5011 


I 

0720 

74. 

5r 

rOKMAT(49HCON000Y SUPERSONIC VELOCITY CORRECTION START, J= ,14/1 

1 

D73D 

75. 


VPACI =ATOTAL/SQRT (1.2 ) 


I 

D74C 

76. 


EKSAVE=CPCON( T1 


1 

0 7 50 

77. 


VSAVrrVRESQNni 


1 

0760 

70. 


VPCSONd irvnACl* ( VRES ON ( 1 1 -VMAC 1» #SORT ( 1 .♦( 1 . - . 25 * ( C PCON (I l + l . »■>* 

21 

0 770 

79, 


1 >/( .26*(Cl !; ,1N(1M 1. »«#2I 1 


I 

D7.IE 

00. 


VCONC = .?>KVRESON( n/ATOTAL»*f? 


1 

0 7 90 

61. 


PSOPTCd >:( 1 .C-VCON'CK>«3.5 


I 

OB CO 

82, 


CPCONdIrVRCSONt I 1/AT OTAL/SORT(1.~VCONC) 


1 

08 ID 

83. 

55 

JF (CPCONd 1 .LT. 1 ..AND.CPCON( l-ll.GE. 1.. ANO.NX.EQ .H 

write (6, 60 II 

OB 20 

04 . 

6C 

F0RMAT(19U00.S.V.C. STOP, 1= ,14/1 


I 

D83C 

85. 


READ (21 (VBARd l,RB0KT(II,I = l,NTH3Nl 


1 

0840 

86. 



J 

3 8 50 

A7. 


WRITE NUB COORDINATES AND VARIABLES 


1 

0860 

eo. 



1 

0870 

69. 


WPITL (6,1151 


I 

0 8 80 

90. 


IF (NHUDMX.EO.C) 50 TO 70 


1 

C890 

91 . 


WRITE (6 , 120 1 


I 

0900 

92. 


DO 65 l^l.NHUBMX 


1 

09 ID 

93. 


XDllH = yONni/ELNO 


1 

0920 

94 . 


YDUH = YONdl/ELNO 


1 

09 33 

95. 


SDUH = 5d l/SLND 


I 

D9 4C 

96. 


WRITE (6,12511 ,XOilK,Yr,UH,VP (1 1 , VTHd) , VRtSDNl I 1 , VnAR (11 , PET AON (I 1 

,I 

09 50 

97. 


l$nUH,rpCONd 1 ,RBORT( I l,PSOPTC( 1 1 


1 

C9 6D 

98 . 

65 

CBNT INUE 


I 

0970 

99. 



I 

0900 

ICO. 

C<‘9« 

WRITE shroud COORDT nates AND VARTA!?LCS 


1 

0 9 90 

101. 



I 

lOOO 

102. 

70 

WRITE (6,1301 


J 

10 1C 

103. 


WRITE (6,1201 


1 

1020 

104 . 


NHUCPl=NHUDHXd 


I 

ID 30 

105, 


DO 90 IrNNUt’Pl.JiJS 


I 

1040 

1^6. 


XOUMrXONd l/ri,(!D 


I 

los: 

107. 


YDUM=YON(Il/ELHn 


1 

IP 60 

loe. 


SOUH=Sd l/SLNP 


1 

1070 

109. 


FANTOMSVBAPl 1 1 


1 

ID 90 

110. 


IF(NTHCTA,EQ.Q.AN0.1 . CE. ISWIRLI FAN TOM =T 5W 1 RL (1 1 


I 

1090 

111. 


IF (NTHETA.EQ.C. AND. I .EO.ISWRL 1 WRITE (6,751 


I 

1 ICC 

112, 

75 

FORHAT(26HO FOLLOWING 3-0 S TRE AML I N E/6 0 X , ’ -T HE T A - »/ 1 


1 

1 1 10 

113, 


IF (CUTOFF, LE .0. 1 CO TO 85 


1 

11 20 





im. 


ir ism^sn-ii.GL'.o. ) ao lo bo 

1 

1130 

115. 


I£U=1SW*1 

I 

114D 

115. 


1PL0T1=IPL0T 

1 

1150 

117, 


IPLOISO 

I 

1160 

iia. 

no 

STEST =A6S»SDUti) 

I 

117C 

119. 


IF ISTEST.GT i tCUT0rr/5LNn» 1 GO TO 85 

I 

nao 

120. 


1PLOT=IPLOTM 

3 

1190 

121. 


SPLOT UPLOl ,]SW» = STEST 

I 

1200 

122, 


PPLOT nPLOT«ISHl=PSQPTC(l> 

I 

12 10 

123, 

85 

write 16 ,12 5 n,XOUH,rPUH,VP (1 > ,VTKU 1, VRL50N1I » .FANTOH.nCTAON m , 

SI 

1220 

1 24, 

IDUH.CrCONm .POOR T»J > ,P SOP TCI I > 

1 

12 30 

12S. 

90 

CONTIRUC 

I 

1240 

125. 


IF TCUTOFF.LE.O. ) GO TO 95 

1 

12 50 

127. 


*LCN=iriX<10.4CUTOFF/SLNDl*l. 

I 

1260 

126. 


CALL PLOXiSt XLEN, 10. . . 1 , . 1 . C. ,0 . , . 15, . 1 -.0 ,0 ,5 , 2 , 1 , 1 1 

I 

1270 

129. 


CALL 5YKC0L(XLLN-1.5, .5,.25,IDENT,a.,6> 

1 

1280 

120. 


CALL SYMBOL! XLEN-2.5, 3.5,,25, THHCT ft,D. .6 » 

I 

12 90 

1 21 . 


T HL= T MET A (R ANGLE 1416 D./3. 14 157 

1 

13 00 

122. 


CALL NUMnER<XLCN-].25,3,5,.25,THE, 0.,DI 

I 

1310 

123 , 


CALL SYMBOL! XLEN- 3. 5, 2, 6,. IS, 1 

I 

13 20 

124. 


rL[iIO,6,I3) = 2 

I 

13 30 

135. 


CALL SYMB0LIXLEN-3.,2.5,.25,I3,0., 1) 

I 

1340 

136, 


CALL SYMBOL IXLEN-7.7, 2.5,.25,lAn,C.,131 

I 

13 5D 

137. 


call £YMB0L(XLEN-2.5, 1.5,.25,SSPEFF,0. ,61 

I 

1360 

136, 


CALL NUMBER (XLEN-K 25 ,1 . 5, . 25 , SLNP ,F . , 2 1 

I 

13 70 

139. 


CALL SYMBOL (XLEN/?. , . 5, . 1 5 , S05RFF , 0. ,6 > 

I 

1380 

140. 


IFilPLOTl .E0.9991 IPL0TL=1PL0T 

I 

13 90 

141. 


CALL LINE tSPLOT! 1 ,1 ) ,PPLOT ! 1 , 1 1 .IPLOTl , 1 , 1 , 1 ,0 . , . 1 ,0 . .. 1 1 

1 

1400 

142. 


CALL LINCISPLOT! 1 ,2) ,PPL0T11,2I,1PL0T, 1 , 1 , 2 , D . , . 1 ,0 . , . 1 1 

1 

1 4 1C 

142. 


CALL PLOHXLENil , ,0. ,y3) 

I 

1420 

144 .C 



I 

14 3D 

145. C 


WRITE SPLITTER COORDINATES AND VARIABLES IF IT APPLIES 

I 

1440 

146.C 



1 

1450 

147. 

95 

IF (NSPLT.EO.OI GO TO llO 

I 

14 60 

148. 


00 105 IN=1,N5PLT 

I 

14 70 

149. 


NB=NSPB» INI 

I 

1480 

150. 


NC-NSPB! IN+1 1 -1 

I 

14 90 

151 , 


IE IIN.CO.NSPLTI NE=NTHTN 

1 

1500 

152. 


WRITE (6,135»IN 

I 

1510 

153. 


WPITF !6,IZDI 

I 

15 20 

154. 


DO IDE I-NB.NF 

1 

1530 

155, 


XDUM=XON! M/LtNO 

I 

1540 

156. 


VOUM = YONn 1/ELNO 

I 

1550 

157. 


50UM=S!1 l/SLND 

X 

15 60 

156. 


WRITE (6,125 11 ,xmjM, YrUM,VPU> ,VTM(1 1, VRESONtl > ,VBAR 1 1) , BE T AON ( I 1 

.1 

1670 

159. 


1 SrUTUCPCON! I 1 iRBORTU l,PSOPTCm 

I 

15 80 

160. 

lOO 

CONTINUE 

I 

1590 

161 . 

irs 

continue 

I 

16 00 

162. 

no 

continue 

I 

16 10 

162. 


IMNX.CO.-n CALL EEFORCIPSOPTC.PSOPT) 

I 

16 20 

164. 


RCTURY 

1 

16 30 

165.C44M# 

I 

1640 

166.C444 

FORMATS 

I 

16 50 

167.C4444* 

I 

1660 

168 ,C 



1 

1670 

169. 

115 

format ( IHO , I0X,3 HHUfU 

I 

1680 

1 70 . 

120 

FORMAT ( IIX, 14H0N-B00 Y PO IN TS A/2X , 1 Hi , 6X , IHX , 1 1 X , IHY , IIX ,2HVP,9X, 

61 

1690 







171. 

lHVTHtTA,7X,4HVRCS ,7X , SHVHflRl ,7X ,4HBn* , 1 C X , 1 H5 , 11 X , 1 HM 

.sx.dhrr/ri 

170D 

172. 

27 ,3X,6HPSOP7C » 

I 

17 10 

173. 

125 FORMAT « I 4,9E 12. 4 ,F7 . ‘»,r8.4 1 

1 

1720 

17<«. 

130 FORMAT UHO.l DX,6HSHR000I 

1 

1730 

17S. 

135 FORMAT UHO , 1 CtX, SHSPL IT TER , 1 3 1 

1 

1740 

176. 

END 

I 

17SC 





O.ONANDOF 

1, SlIBPOUTINC ONOFF 

2. CALL ONBODY 

3 1 CALL ormriY 

<». RFTURN 

5. END 


19 OCT 76 12 

H GOOD 
N 0010 
H DO 20 

H 00 30 

H 0040 



6 > - 

EODF-rAPRCL«S0REL2<l l.CSPLOX 


1 


SUBROUTINE PLOX 1 S < XX , YY ,E XCP .ORO ♦Of SE TA ,0f SO T , SlETRSfSNOS? 

,K5,K6,KU 

ooco 

2 

1 

.L.NKfNLl 

U 

DDIO 

3 

C 

> 

U 

0020 

M 


0030 

S 

CXtXtXX SUBPOUTINC ADDED TO OPAW AND LABEL AXIS ERAPES FOR AU 

PLOTS XU 

DD4C 

6 


C0H“0N/T1TL/ TTITL(9*61 

U 

0050 

7 


UP =1 1 . -VY-2.*SN052 

u 

0060 

6 


Ml = XX 

u 

0070 

9 


H2=vy 

u 

□ OflO 

IQ 


CALL PL0H4 .1-1 1. ,-3l 

u 

0090 

1 1 


CALL PL0T(0.tUP,-3> 

u 

01 00 

12 


DO 25 1=1, Ml 

u 

DUO 

13 


X=I 

u 

0120 

Itl 


P=EXEP*X +OrSEIA 

u 

0130 

l!i 


CALL PLOT! X ,0. , 21 

u 

0140 

16 


CALL PLOTIX, .2,2) 

u 

0150 

17 


M=l/2 

u 

0160 

13 


B=FL0AT (Il-rL0ATlM)-X/2. 

u 

0170 

19 


IF (B) 10,10,25 

u 

0160 

20 

10 

IF (K5 1 15, 15,2C 

u 

C19D 

21 

15 

CALL RUHSER (X-SNOS2,“SNOS2-. IP, SN0S2 , P , D . ,NK1 

u 

0200 

22 


GO TO 25 . 

u 

0210 

2 3 

2D 

SN = 1.333ASN0S2 

u 

0220 

24 


CALL NUH6ER<X-SNOSZ-SNOSZ,-SN-SNOSZ-. ID.SM, 10. ,0. , 1 ) 

u 

0230 

25 


CALL NUM(1ER*999 .a,-SN0S7 1 D, SM OS 7 , P , 0 . , Nk ) 

u 

0240 

26 

25 

CALL PLOTIX ,0. ,3) 

u 

0250 

27 


B = (XX-54.*SLETRS)/2. 

u 

026C 

23 


CALL SYHBOL(B,-SNnS2-SLE.TRS-.3D , 5LCTR S , 1 T I T t U , k 1 , D . , 54 1 U 

0270 

29 


CALL PL0T(0.,0. ,3) 

u 

czec 

30 


DO 45 J=1,M2 

u 

0 29C 

31 


Y = J 

u 

030D 

32 


0=0PD» Y«OFSET 

u 

0310 

33 


CALL PL0KQ.,Y,2) 

u 

032C 

54 


CALL PLOT! . 2, Y, 2) 

u 

C33C 

35 


N=J/2 

u 

0340 

36 


B=FL0AT<J»-rLqAT<N»-Y/2, 

u 

0350 

37 


IF (B) 30,30,45 

u 

0360 

3B 

30 

IF (K6) 35,35,4 0 

u 

C370 

39 

35 

CALL NUMBER C-4 , ♦SN0S2 1 5 , Y , SNO SZ , 0 , 0 . ,NL 1 

u 

0360 

40 


GO TO 4 5 

u 

0390 

41 

40 

SN = I .333YSN0S7 

u 

D4_00 

42 


CALL NUMBER <-.15 -SN-SN-SN , V-SNOSZ , SN , 10 , ,0 . ,~I > 

u 

0410 

43 


CALL NUMBER <99 9 .0 , Y*SN-SNOSZ , SN0S7 , 0 , 0 . , NL ) 

u 

0420 

4 4 

45 

CALL PLOT<a Y , 3) , 

u 

04.30 

45 


C = <VY-54.*SLFTRSI/2. 

u 

0440 

46 


CALL SYMBOL<-SNOS2-SNOSZ-SNOS2-*1S-.6,C,SLETRS ,TT1TL<1,L J, 

90.,54 ) u 

0450 

47 


CALL PL0T< a.,YY ,3) 

u 

0460 

48 . 


CALL PLOK XX.YY ,2) . : - 

u 

0470 

49 


CALL PLOT<XX,r. ,2) 

u 

D460 

.50. 


.DO SO . J = 1,M2,2 - 

u 

0490 

51 


Y=U 

u 

OS 00 

52 


IF <Y,EO.TV) GO TO 55. 

u 

0510 

53 


CALL PLOT! XX, Y, 3) 

u 

0520 

54 


CALL PLQT.tC.f Y, 2) 

u 

05 30 

55 


IF <(Y«1.).C0.YY) GO TO 55 

u 

0540 

Sb . 


CALL PLOn Q.,Y*J. ,31 - 

u 

D550 



57 

50 

7“ - 

C«LL PL0T(XX,Y+ l.t2) 

U 

0560 

58 

S5 

continue 

U 

0570 

59 


00 60 jri,M.J,? 

u 

0560 

60 


X= J 

u 

0690 

61 


IF IX.EO.XX) 50 TO 65 

u 

0600 

bZ 


CALL PL0T(XX-X, VV,3» 

u 

□ 61Q 

6Z 


CALL PLOnXX-X, C. ,2) . .. ... , 

u 

0620 

bH 


IF UXX-X-1.».E0.0.) 60 TO 65 

u 

0630 

65 


CALL .PUT IXXrXr.l.-#.CUt-5T 

0. 

_06.‘1.0 

66 

60 

CALL PLOT* XX-X-1. ,XYf2> 

u 

D6S0 

67 

65 

RETURN _ . . 

u 

0660 

68 


END 

u 

0670 

SBRKPT PRINU 


■ 





S' - 


■30.RCHD 

1 . 


SUCROUlINr RFflDS 

2. C«-i44<r - . - 

3, C*»* IHIS SUBROUTIMi; RfADS ALL INPUT 


s,c 

6. C 

7. 

' 8 . 

9. 

10 . 

n. 

1 ?. 

13. 

lA. 

15. 

U. 

17. 

Ifl. 

19. 

Zj. 

Zl. 

Z2. 

23. 

2>t.’ 

25. 

Z't.”" 

27. 

'28,*^ 


crcON CONTAINS MACH UO. »M» ON OUTPUT AS OP &/12/7M 


EQUIVALLNCr n.TRPI, IWK AX , VKAX^D » . < VVAX.VYAXRni 
diHEAfSjoN Tfjtmi, VxAXRPcn, vyAXRom, tounmon) 

COMMON /RSAVC/ X DIIM C R TO > , V DUM t R OD ) , X AFF ( 2P0 1 , T AP T 1 20 C I 

I ,rt'0, JA,I R.riRUNNO ,H02 ,JA2 ViR2iNPUN07 

COMMON /FLAGS /I VO RT, I 6 COM »I SI G , I CUP V ,NONC WF ,TOENT 

'COMMON /NTN/ XOFr(2;:>,YOrF{2:DI,NPM1N,NCCO;N'CHJ 
COMMON /RnoUT 1/ XONtRCD) ,¥0N«40O) , NSPE CIO ,NSPGUQ1 , XRI , NifURMX.WTMB 
llN.'NSPLTtVWIMC. ■ " ■ ■ ■ ■ g 

COMMON /URl/ KSHIP.NT <2 J ,NP(2) ES 

■ COMMON/SLNND/SLNti B 

COMMON /ROOUT2/ T 14 3C ,2 J EIX < 200 , 2 » ,V YCRtZOOl , V2 1<) 0 0 ) . V 319 03 > , V ZP B 


23 MAR 77 
B 
B 
0 
B 
& 
n 
a 

B 

B 

B 

B 

B 


iHIZOS » 

COMMON /RD0UT3/ V XAX 1 233 ; ? > , V XCP ( 203 I 

COMMON /RD0UT9/ N THE t A , THET A (1 0 I , X f CST 1 1 C) , N , I SW IRL , T SWI RL < 'ISO > 
COMMON/TITL/ fTITLI9,f.) 

COMMON/BIC.t/TnLUl?) 

COMMON /RCONTl/ V C, V 1 NF . ALF AF . T TOT A L ,E LNO t V A , P T , CUT 0 FF 
CO'KMON VRCO NT 2/ > SfA I ,T S 1 A t , « DOT, N X ,K N U , YRT HUB , YR 1 SH P ,UT TP 
COMMON/CNTRYL/ Y T f.S T H , Y T CS T S t NOTHF T , I C 1 LPT , VCP , VC PS A R .RHOCCP 

"'CQflHON/BOO/DtLO 

COMMON /MONOr/ JJS.JJ 

rOMMON /DSEF30/' R ANG ( 9£t' , 1 0 ) , REX < 9 00, 1 0) ,iPLOT UO) ,t CASE' 


B 

B 

P 

6 

B 

B 

L-. 

B 

P 

B 

B 


51. A /* *,• 

52. 1, IN. *, * «, 

53. 2 TH», *CTA, D»,»E6, 

59 . ■ ■ SLNb='l'. 

55. REWIND 7 

56. read TSfltStPC'D-l 5JTITLE 


*, 'AXIAL • , 'POSl TI • , 'ON ON 'SHROUD V,' B 
, 'MERIDI ’ , 'AN ANG’,*LE,P 

',' •/ B 


09 

:oDO 
DO ID 
002D 
CC3u 
0090 
0053 
DO 60 
00 70 
C'DBO 
DD9D 
0100 
D 1 ir 
D12C 
D1 30 
0190 
0150 
Cl 60 
0170 
DISC 
D19D 
02 00 
0210 
0220 
D2 30 
0290 
02 50 
0260 
0270 


29.C«*#»« 




L 

02 BC 

*3o;t 'ffrAo*TJTn t 

"z' 

'T.'UM'BtR rtF’ ON-BOW Pot NTs rOR ' CLosTo'^noi) Y SOLUTION 

B 

D2 9C 

31 .0 

NTT 2» 

r 

NUMBER or DN-BOOY POINTS FOR OPEN-END SOLUTION 

B 

C3CC 

12. C 

NP< 1 t 


NP(2) - TOTAL number OF OFF-BQOV PO INT 5 

D 

C3 10 

33.0 

NID 

z 

NUMBFR OF rOD I.O. CARDS 

B 

032U 

'39. C ' 

KSKIP 

z 

FOR 1 CASE OF COHBYW 

B 

0330 

35. C 


z 

1 FOR SUCCESSIVE CASES USING THE SAME ECO OUTPUT 

B 

3390 

16 '.C" 

>19'S0L 

“ 

' three 'T irsoLuf IONS FROM" EOP ‘ 

P 

3350 

37.C 



( 2 FOR STREAMLINES ,I FOR CROSSFLOW I 

B 

03 60 

18, C 


~ 

1 FOUR (91 SOLUTIONS FROM EDO 

B 

D37C 

39. C 



( 2 FOR streamlines, 2 FOR CROSSFLOW ) 

n 

0380 

9"D.C 

NSPLT 

z 

NUMBER or splitters (NOISE SUPPRESSION OFVICES > 

G 

3 3 93 

91. C 




B 

D9DC 

92.C ' 




D 

C<4 10 

93. C 

NSPB : 


RIGHT MOST PDINI ON THE SPLITTFR 

P 

09 20 

9 9;c' *■ ■ ' 

NffPC = 


LEFT MOST POINT ON THf! SPLtTTER 

6 

D9 3C 

95. C 



' 

B 

09 9 0 

9 6.C 



THE FIRST SPLITTER IS THE ONE CLOSEST TO THE HUB 

B 

3 9 50 

9 7.C 



AND THE LAST SPLITTER IS THE ONE CLOSEST TO THE 

SHROB 

C96C 

9'e,c 




B 

09 7D 

99. 




B 

D9BC 

50, DATA 

HTmL<I5,161 , 15 = l,9>,r6=3,9 t 

B 

0990 


J W 

05 1C 
0520 
0530 
059C 
D55C 



57 

5S. 

59. 

60. 
" 61 

62. 

“■(TjT 

6<t. 

■ ' 65 

66 . 
67. 
6£. 
■""69; 
70. 
7 i . 
72. 
■' '73 ; 

jr<*, 

7$; 

76. 

'‘77'. 

_78j^ 

7'9, 

80. 

■""■eiT 

82. 

83; 

84, 

"as; 
86 . 
'877 
88. 
■ 89; 
90, 

■ ^r; 

92. 
93 . 
94. 
96. 
96. 
97". 
98. 
‘99 
100 . 

101. 

102 . 
1 03 . 

104. 
'IDS'; 
106. 
"i07. 
108. 
‘ 109 ; 
1 10. 
“i rr. 

112 . 

113. 


write: C6,l661TITLr B 0560 

(^5j( ITCKNTn l.NP II >,! = !, 21, NIP, K SKIP. W45riL.NSPLT 0570 

■“wi>nt ^liiyllVrTfTll.NPC! t,r=l72>'.NiO,K5KfP,N450L',KSRirT 'b*""" 0580 

NPHIN-NPIll _B 3590 

"NfMlNrNn^’r"" » — • - - -- 'g^'DB'OD 

. IT INSP IT .NC.Ol Rr* 0 (S , 170 > < R5PIH I > .WSPC <1 1 . 1 -1 . NSP L 11 _______ I’ 

'BCAO' «5T1751 VC“,VINfVALrAF,TTOTAL,ELND,rWlNG,UnP.VftfPT.CUTOrr 
U> ii?A* VC, VINF, ALFAF . T TOTAL , CLNO , T UI NO ,0 T I P , V » ,PI , CUT OF F 

inrLND.EO.DriELNnsl."' ■ ' - - 

COTOFr=AB51CUTOFF 1 


PE»n «5, 175 IPSTAT ,T5T AT.WDOT.OCLQ 
WRITE <6,176)PST AT.TSTATtWOOT ,PCLO 


0620 
0630 
0640 
3650 
'di6 6b" 

0670 


READ ( 5, 17n)NTHtTA,VCL0,NCHI,NX,KN0,N0THl:i , ICTLPT , 1 S WIRE 
WRITE (6,171 IJS’THQA.NCL^jNCHI , NX ,K ND.NOT HE T ,1 y LPT , I S WI Rl. 

IF (cuTor'r.GT". c. rop.T nt'eieta ♦ iTAsfr.E'^.y rcALL ' plTt ID ™ 

IF(NTHET A.EO.OlNOTHEiri 

READ (5,r75HTHCT‘A“ri 1 ,l‘:l,NTHETA'i‘' '' 

WRITE (6,176MTHETA(I 1,1-1 .NTHETAl 


9 068C 

B 06 90 

"b 57*06 

R_„^ 07 n 

8 0720* 

0730 


_ 

c #**### 


READ (6,1F3IIXTEST(I ) ,lrl,NXI,YTCSTH,VTCSTS 
WRITE (6,1B^MXT£STU 1 , 1 =1 , NX 1 , YTE^Sl H, YTE STS 

RFAD (5,'^BC^XR^, YRIHUD.'YRlSiiR ,NHUBHX 

WRITE (6,181 I XRI , VR TH UB , YR I SHR , NHU BKX 


0740 

3750 



IF KSKIP = 0 


RFAD DATA PUNCHED FRCM COD 


IF lKSKlP.NFj^l^_GO 1 Q_ 76 _ 

READ ' (‘ 7,161 ID ENT ."fvORf /iGEOK,’! SIGTlCljR'vVNONrWF’ 
10 FORM AT (A 6,51 1 1 

lF‘(I'VORf7FO'.rrNT'(l)=Nr(21 ■■ “ " ‘ 

^IFjnORT .EO. 1 1 NP(11=NP(2) 

00 "70 "L: 1,2 

IF (IV 0 RT*L.FCI. 3 ) 50 TO 70 
lL 00 N=l* 4 DD'»(‘L-r) * " 

1H1F/N::IL00U'*NT(L) -1 _ 

' NTL^NKL) ■■ " ‘ "■ 

non taoc^iL-i ) 


B 

B 


0780 

E179D 

3600 

3810 

08*20 

OJLlfi, 
0840 
□ B5D 


38 60 
0870 
0880 
08 90 

*0960 

3910 



IHI-IL0«NP(L1-1 
NPL=NP(L1 

IF (L.EO.l) GO T6"2D‘ 

READ (7, lOlIDENI ,IVORT,I GE 0 H , I SI G , I CUR V , NONEU F 


READ OUTPUT FROM FDD 


(BINARY RECORDS) 


25 


F0RHAT(4C13.8) 

RFAD 17, iSMXOuE JKl , JK = i,NtL) “ • - 

RFAD (7, 151 ( YON( JK) , JK=1 ,NTtr _ 

RFAD 17, 15) (TRO( JKi; jK'nLOO'NtTHidNV 

NTLP4=NTL*4C0 _ _ „ 

1'f' ( 1 VORI ,‘e" 0 ;i 1* TfAD*""!? , ITm tRb'( JX"r,7K =4ET,>Ft LPTF 
IF (NHUBM**NSPLT.ro.Ol GO TO 25 

IF (IVORfrEQ, 1) RFAD (7 ,‘l 5 1 ( I R*D ( Jx';, UK “40'i , NIL Pn 

READ (7,15MX0FF( JK),JK=i,NPL) . 

'RFAD (7, 15) I‘YQFF( JK) , JK=r,"NPlT 
RFAD (7|15) ( VXAXRI^JK 1 , UK = IL0 , IHI ) 

■NPLP"2rNP'L»2CC' 

IF (IVORT.EQ.l) RFAD I 7 , 15 M V X A XR 0 ( JK ) , JK = 2 0 1 , NPL P2 ) 
IF (NHUBHX + NSPLT.ro.D )' GO T0"3d ’ * ' 


B 3 920 
B 0930 
'"a 0'9 40 

B D9 5C 
■fi" 3 9*60 

_B J.9 7D 

D9"ao' 
D9 90 
I D DO 
1010 
13 20 
1030 
"1040 
1050 
1060 
13 70 
1380 

libo 
11 10 
1120 





n<<. " lT'T!¥ 0 #Tf .To". IT'K'^AO' rv7#XRD l JkT, JK: 2 CV,NPLr >2 ^ 

115. 3P RTAD »7, IBM VYAXPrUK »,JJ^=ILD, 

‘"” 1 T 6 ; ‘ ■ IFnVoRl .'Eb'. i) PTAD "Vf; IBrrVYAXRD ( JKV , JK = 201 ,NPL'rf> 

117. IF <NHUP«y*NSPLT.rO.: ) GO TO 35 

-Tie; rr n vopr.to; 1 1 prAD’ (vf*jrijbiJ«y,j«=joi . npIpz)' 

119. 35 IF 1L.CP.21 GO TO NO 

— 12 0 ; 'imn} ”• rr, re i rv 2 ( jm ,'j'KTn‘fft)fr;nriW) 

121. RFAD I7,1EMV31JK),JK=ILOON,IHION1 

—' 122 ; R CAO * r 7 , 1 D M V X C t?'< JK > 7 .iK =1U £57 1 H .t ) 

123. READ l7,l,r.MVycniJH»,JK=3LO,IHI) 

"T24. RTAO rT/lEntfScRT JK)7JK=lL0,rHl) '* ' " ■ 

125. CO TO 55 

" 'T267 '■'‘•irr'Tr‘nri<soL7i:tr:^i to-Yff-rr — 

127. DO MB 1=1, M 

128. • RrAD 17,15MEPDD< JKl , JK=1,NTL1 

129. M5 CQNTINUr 

— no." 1!0'50 1=1,5 ■ ■ 

131. KFAD 17, 15ME.rDD(.(K) , JK = l,fjPL) 

I KMJt: 

133. 55 DC 60 1=1 ,NTL 

XD0HU) = X0NII 1 ’ 

135. 6D YDUMl I ) = VONI I 1 

“ ns; —” "-110 65' 1=1 , hpl ' 

137. XAFFM ) = XOFF(T I 

— 138™” 65'VRrFm.=Y0FFm — • — - - •* • 

139, 70 CONTTNUr 


■q u sc 

R HMD 

D 'll5C 

B 11 60 

B‘ 1170 

B 1180 

*“R'“rr9o” 
D 12DC 

B ' iSTc 

n 12 2D 

B 12 3C 

B 12 40 

-p - 

B 126D 

B ' 12 70 
R 1280 

e ■ ' 12 90 
6 13 00 

""b'* '1310 
D 13 20 

D ■ 13 3b 

B 1 3M0 

■■ B ’ 13 50 

6 1360 

■ — fl — md" 
B 13BC 


TTfO. ’ ’ 75' VRITC f6,16CMnLr ' ' 

iMi. irn woRT.ro. n NTm = RTi2) 

142. ■•"'BPITC: (6,AD>IDCRT 

1M3. PO FORKATflH ,22H1NLFT GCOHCTRY IDFNT= ,A6» 

' 144 .“ — IF 1 1 m T .1 0 . 1 1 'tfPI T E ' f 6 , P'5 ) 

FORHAMIH ,ICX, BOHLJtJEAR C OHS 1 NA T 1 ON OF THL FOLLOUTNO PABIC FL0U5B 
T 'A.' UNIFORM AXrBYHMrrRK'TdUcV OTCffl/'6Tx,26fiir.‘'' sT‘R'iP”VORT£:XP 

2 ON SHR0Un/64X,33KC. UNIFORM CROSSFLOW (DUCT OPENM R 

"Tr llVORT.tO.ri VPITC ■Tft.R'OT ' ■ ■ 

rORMATdH ,1EX, 9 1HL:NEAR COMBINATION OF THE FOLLOWING BASIC FLOMSB 

1 a: "TiFTT0RH"A)a'5TMHrrTnc ■£DiRri:toTmT6rx736H'7r;‘'' uinTbTrfrTxB’ 

215YMHFTRIC (DUCT OPEN 5/6MX , 35MC . UNIFORM CROSSFLOW (OUCT CLOSFDMB 

■ B 
D 
B 
B 

V 

B 

e ' 

B 
B 
B 
E 



TF rrGCOH.TOVO) WRITE (6,‘9'5)TGrOM 
IF (IGEOM.NE.C) WRlTF (6,1DCHGF0M 

ir Ti s iG . E(STs'>‘~Sfinrr tbtitsi iti g 

IF (ISIG.EO.n WRITE (6,11GHSIG 


TCC 
163. 105 

"164; 

165. 110 

■ T567 — riS 
167. 

“resT 


IF (ICURV.EO.O WRITE (6,12CMCURV 

“irTi cDRV".Tfrrn“Trf5nT“( 671551 1 cTirv ■ 

IF (NONEUF.EO .0) WRITE (6,1331 

' rr rNoNETJF .ro*nT“WRTrr"(7.;'i 35 1 ' 

FOPMAT(24HOCURVED ELEMENTS ( IGEOMF= , M , IHI 1 
"HiRfl A 7T?7H3rrTrriT4rimTTGEroHF = , i r,“i m rr~ 

F0RKATnH«,30X,M3IIPrECEWI5C-PARAU0LlC SOURCE DENS 1 T I ES( T S ] OF;; , 1 1 , B 

- "'B" 

FORHAT nH*,3DX, 4D HPIECEW I5E-LTNEAR SOURCE DENS I TIES ( 1SIGF=,I1 .IHMB 
'rbWATTl M* ,3 0)< .TTHnrf^E'ttlirE-CONsrAffT 'SOURCE bEN'SiTlE S(iSlGF=, liV B* 
I IHI » £5 

rSkMAl ( 1 H» ,8 0X74 6 HInT CRN ALLY -computed F LE ME N f TuRVrTTl'FE’'s' rl CUR VN=, B 
I II, IHI I B 


1390 
14 00 
14 10' 
1 4 20 
'"A 30 
1440 
14 50 
J. 4 60 

14 7d 
14_6C 

Tm 90“' 
1500 

Tno 

15^0 
1‘5 30 
1540 

15 50" 
1560 
T5"70" 
1580 
1 5“90 
1600 

16 10' 
162C 

Vrsb 

1640 
T6 5P" 
16 60 


TTtT 

169. 

170. ''''r25'T6RMArirH478DX,3rHUSi:R-'‘iNPUT ELEMENT CUR VAT UR F S ( 1 CUR VN=,1 1 , 1 H 1 r'B 


16 70 
1680 
16 93 




T30' 

rOKHAT<32H NtW VtlOClTV TO 

RKULAC 

ARF USED 

. t 




B 

'17QD 

172. 

135 

fORMAM32H OLD VOLOCI TV FO 

RHULAE 

ARE USED 

. 1 




B 

17 1C 

'173 . 


inKND.CQ.Q.OP.CUTOFF .OT.? 

. iSLNn 

=rLNO 





U 

1 7 2C 

17M. 


IMKNn.LT.O.AND.KND.Nr.OJS 

LND=1. 






8. 

1730 

175. 


CALL CONST 







B 

1790 

176. 


IF IK MO. or. 0 1 00 TO Ki5 









1750 

177. 


DO 19 0 i =1 .'mtmin 







B 

1760 

17B. 


xoNmsyDUHU i/clno 









17 70 

179. 

l9C 

YONTI l^YDUHm/CLNO 







B 

17 80 

180. 


00 195 Tsl.NPHlN 







B 

1790 

181. 


XOfFM irX'AFFUi/CLNO 







B 

IBOO 

182. 

195 

YOFF 1 I »=YAFFm/ELND 







B 

IBID 

18 3'. 


DO 150 1:^1, NX 







B 

1820 

leif . 

lEC 

XTCST(I»=XrC5T<I lyCLNP 







B 

18 30 

i'85.' 


CUT0FF:CUT0FF/FLND 







P 

IB 90 

186. 

155 

IF(KND.NE.9 iriND=l. 







B 

IBSD 

107. 


RETURN 







B 

1B60 

180. C 









B 

1870 

isT.'c 


FORMATS 







B 

188C 

19D.C 









B 

1B9C 

191. c 









Q 

1900 

192. 

ion 

FORMAT UHltlCX,3~HC0MPPCS 

SIBLE 

COMBYN APPRO 

ACH 

5 ,10X .12A6 

t 

B 

1910 

193. 

l65 

FORMAT I12A6) 







B 

1920 

199.1 

1 6 

F0RMATnHl,12A6> 









I'9S.' 175 

ToRMA'T '(2Dl9 1 — - • 







B 

19 3D 

196.1 

1 1 

FORMATllH ,2G!91 









197. 

175 

FORMAT (IDFQ'. 3)"’ 







B 

199C 

198 . 1 

76 

FORMATdK ,1006.31 









199. 

IBO 

fOR'MAT <3riG.2/l9) 







B 

19 50 

2D0. 1 

“1 

FORMATtlH ,3riL.9,I9» 









201 


tORHAT' U'Tx ,3Tf;i6'r' 

M-*--..-. ~vaia •' 





" B'" 

i9 60 

2C2. 

190 

FORMAT (1MC/25H QAStD ON B 

ASIC DATA FROM, 

13, 

ihv 

I2,)H/,I2. 

BH 

RUN NB 

19 70 

203. ■ 


1 C . , T'6 , 9H 'A No. ,71, i N? ,'i 2", l»7 

,r2,3H 

RUN NO. , 

T6? 

> 



' 

1980 

209 . 

195 

IF (NTHETA.NE .0) PO TO 2C5 







B 

1990 

205. 


NrUT-'tXDN(iSVIRLtV2*l 1*2 







B 

2 000 

206. 


FANN = 2 .*NCUT 







B 

201.0 

’"I’er .• ‘ 


C A L L ” r Cfix I Ti F ANN , 9 . ,1 . , 2 0 . 

,-FANN/?. ,C. ,. 1 

5,. 

1 f 0 

,0,3,9,] ,-l 

1 

B 

zoic 

2 08. 


CALL 5YHBOL<FANN-1.5, .5,.? 

5 ,IDENTtO.,61 





8 

2030 

209. 


DO 2'CO iC-1 ,ICA5C 







B 

2090 

210. 

2CD 

CALL LTNElRLXll , ICl ,RANG< 

l.lCl, 

IPLOHIC) 

jlJ. 

,D,0,-FANN/2., 

A* 

D.,2rp, 

2050 

2ir. 


) . ) 







B 

20 60 

212. 


CALL PLOTIFANM*! . ,0. ,-3) 







B 

2070 

"7 rs . 

"2f;5 

"FfCtJTOFr'.GT .0. .09.NTHETA. 

CO. 01 

CALL PLOT 

ID 




B 

2080 

219. 


STOP 







B 

2090 

^15. 


'tNb* 







B 

2100 





~s<5TS'nrTFc' 

1 • 

" 

3^ 

■'4'. 

5. 

ID 

SUUROUTiNr STNTP <2 , W ,Nj, K 1 , VI f 
QIHCNflON X«20C», V(2'C0N 2li>, W(,l) 

OC 10 1S1,N . , 

xms7<n 

viiirwni ^ ^ ^ 

OCT 76 
S 
5 
S 
5 
S 

12 

GOOD 
00 10 
3020 
DO 3D 
3090 

6 « 


cxlC SORtXV <x,?,wi 

S 

0050 

y.c 



s 

3060 

0. 


Dd'^15 I=i,N 

s 

0070 

9. 


K=1 

5 

ODBC 

iif, 


ir (xiicT.uiu on to i^ 

5 

30 90 

n . 


IF (Xl.co.xmi GO TO 2D 

S 

0100 

'i2^ ■ 


7f' m'.LYVxrfn 'go TO '2f * 

"s‘ 

0110 

■13. 

15 

CONTlNlir 

s 

0120 

" 1<(. ' ' 

Ztl 

V1=V<K1 

s 

01 30 

15. 


GO TO 50 

s 

0190 

16. 

25 

IF IK.rO.n GO TO 35 

5 

0150 

17. 


IF CK.LQ.NI K=N-1 

S 

DJ 60 

IC 


"if IX (R) .FO.X <K* 1 ■>) K=K-1 ” 

s 

01 70 

15 . 


Wl=<Xl-X<Kn*(Xl-X«K<l»5/UtK-U-X<Kn/<X(K-l)“XlK*lM 

5 

0180 

20. 


U2-1X1-X iK-1 ) »4(X 1-X «K»m / < X<K>-X fR-1 >» / TXU> -XU+1 n 

s 

019C 

21. 


U3HX1-X(R-in«<Xl-X(K)»/(X(K.J»-XIK-l))/IXlKM’"’(‘t^>> 

5 

0200 

22. 


VI=VTK-I >*Wl + r«K I#W2 + V«Ktl ><«W3 

5 

OHIO 

23. 

30 

RtniRW 

S 

0220 

29. 

'35" 

■y 1=0.0 ■' ' 

S 

02 30 

25. 


BtTURW 

s 

0 2 90 

'26. ' 


END 

5 

D2SC 





50BTXC 



19 OCT 7ft 

12 

1. 


suHRotmrJC sD(»ixvn<,v*‘4P7s» 

T 

13 Pi 

2. 


OIHENSION XllOOl jYClOCI 

T 

0010 

3. 

10 

NSNPIS 

J 

.11 ap. 

<4. 

IS 

NN=K-'l 

T 

0030 

s. 

2C 

DO 56 KT=1,NN 

T 

0040 



XMIN=X1KTI 

T 

30 50 

7. 


J»0=Kt 

1 

C06D 

9. 


JKL=KT«1 

T 

0070 

9. 

25 

DO US JKrvIXt.N 

T 

3000 

10. 

30 

IF IXtilN-xi J«n Ms.qs.ss"" 

T 

0090 

11 . 

3S 

XMN = X«JK1 

T 

31s.<0 

l2. 

9C 

JAO-JK 

T 

01 10 

U. 

<(5 

CONTI KUC 

T 

01 20 

I'M. 

S'; 

¥VIN = VlJXDl' 

T 

0130 

IS. 


Xf JXD)=X(Kt I 

T 

0140 

!(>. 


YIJAD»=V1KT > 

T 

3150 

17. 


X(Kn=XHlN 

T 

0)60 

IB. 


viknryHiN 

T 

3170 

19. 

£5 

CONTI NUF 

T 

0100 

2b. 


PTTURN 

T 

C19C 


21. CND T :20C 



so.ssW 

1. 

27“ 

3. 

-irrc" 
s.c 
’^7V- 

T. 


SlIHROUTINE SRTNi: <XON ,¥ON ,XBI , tRI HURtyRTSHR , NH UBMX ,N THIN ,.S> 

■■ "DiTiCN'srnN roNirr, foNoT;' su» " ■ ~ 

COHM ON /HONOF / JJ 5,JJ 
S ROUT INC 


19 


9. 

'lUT 

11 . 

TTr 

13. 


IF TKHUaHX.LE.CI 00 TO 35 

— irnir=yTn 

151=3 

tr'Tx^#iiTnGTrxMfi~r‘Go to is “ * 

ID IS1=1SI»1 

rr x-o-wrTsn~yf{R 7 "r 3 T?d tss 


15 


TTT 

15. 


Tf^'R'nTDrr' 

1SI=1 


XHD = XQNU T-(K0M2»-X0N1 1 1» YONl 2 > -XON I 1 » >#t ' 


"tg; '"Tir's'n'srFriQTjrri vofTT isr> -xHBr*«2«*f fow « i si »-YTrHUfri«rfr " 

17. 1S1=I5T*1 

TTfi TT irmTTjTnnmTi ^ . 

s<n = sti'U'»soRTi fxoNU >-xoN<i-in**2t(yoN(n-yoNfi-i »M9?> 

■£ErroKrn"Nur 

152=151-1 



* Yl'lS 2 )=-T6Fr rm NlT5TT-l(>7o ♦ TyMTT sTT^^ 

153=151-2 

TTEri cT"Tiirr7rr3 

139=152-1 

- —3713 9 > =5 H39 -T()RT HyOTTni? »“5R5Trrvy9'VnT«V&r|Tmfri 1 7l -T0>1 f I 

U9#21 

3C''COHTnH'(r“ ‘■' 

35 ISI=NHUBMX 


f.T=I invr' 




IF T1SI.GT.(JJ-*61 I GO TO *(5 
TF 7 X O Nil SI T -XRTl ~53 ,30 , ' 

*15 15I=JJ 




Sh 9 

1 HYOWlViTr, LT.'TfTl 5 

5D SUSl >=-S0RT « (XONl 

" “36 t“ 

‘ 1 51-151+ r - 

37. 

DO 55 1=151, NTMIN 

—“••jr;" “ 

£'n ) =5 n -IT-SCRT (T 

39. 

55 CONTINUE 

~WST ‘ 

I'S'2=T51-I 

41. 

ST1S2»:S0RT( CXONII 

Uz • 

r5KTN=KlHtfRHX» I ” 

43. 

153=151-2 

TJIj'i 

cro TO ' I=TS«TN,'1S 3 ■ 

45. 

I39 = 1S2"1'*NHUPHX 


“5fn91=S<ti9'* if* So 

47. 

119*21 

4^.C 

■fcU "ONTTNUr" " ■* 

— nsa ;t " 
51. C 

tNO OF 5 

“T?. 

“RTTOyiT" 

53. 

END 


rOCT'76 

“■ 1 2 ' 

J 

□ GOD 

J 

3310 

J 

0020 

J 

"Ijoso' 

J 

3040 

J 


J 

0060 

J 

Dola 

r. 

0080 

' J 

3090 

J 

01 DC 

J 

bl !0' 

ON I I J 

0120 

J 

Di 30 

J 

0140 

J 

0150 

J 

01 6U 

J 

0170 

J 

DISG 

J 

0190 

.1 

3200 

J 

0210 

J 

3220 

J 

oHn 

J 

0240 

i fj 

U2'FC 

J 

0260 

J 

32 71T 

J 

0260 

J 

0290 

J 

0300 

J 

‘irnr 

J 

3320 

J 

0330 

J 

3340 

J 

"T31T5T3 

J 

3 3 60 

J 

0 3 70 

J 

3380 

J 

0390 

• J 

04 00 

J 

04f0“ 

J 

04 20 

" J" ~r4"35“ 

J 

04 40 

.9+1 >J 

04 50" 

J 

34 60 

"■■•‘■—J 

”CTt 7i) 

J 

0480 

J ^^4 9D 


05 00 

J 

oBir'f 

J 

0520 




SO.STRCMLN 

SUBROt/TJ STRM « Y, 0 ^ l U ,NR AKES «>t.Nt 

2. "cFMfrdN/BOO/DEtO 

3j_ DIMENSIO N YUt, Oil I lOIll, Km. Ni l. 

5.C 1H1S SUBROUTINE CALCULATES STREAMLINES 


19 OCT 7t 

_ 1^ 

“ o'" 

0 „ ,, 

0 

0 



,c 

• 

WRITE 16,35) 

0 

0 


IFIDELO.CO.C. )OELO=. 1 

0 

• 

15T51 

0 

« 

IFN^Iom 

0 

• 

DO 30 1=1 .NBAKCS 

0 


NO=NIJ,ll 

OSTRK=OELO 

WRITE 16,43 I xTnO) ^ 

ID L=IST 

IS IF <L.r,C,lFN) 50 TO 25 

IF (,NOT. UQSTRH.GE.O 4L I , AND. QSVBM ,LE , 0 IL» U» . OR . (OS IBM «LF .01 L I , 


1U.0STPM,GE.0«L+1I »>) GO TO 23 
YSTRM^VILM ( Y(L ♦ 1 1 - Y <L 1 1 *( OSTRM-0 IL 1 1 / I 0(L-* 1 i -0( L » * 


WRITE <6,45IQSTRM,YSTRM 
2D L=L*1 


GO TO 15 

25 OSTRM=CiSTRM*DFLO 

ITTSisThM.LE. 1.01 GO TO ID 
IST=1FN< 1 
lFN=IFN»^.l 0(1*1) 

3C CONTINUE 


RETURN 





i 










“rcTVXRur — 

1. 

' 2,- 

3. 



SUB R OUTTNC V<f?OrF «1 t E BT A« ALF» t VX , Vt?CS »X «TI 

DIMENSION BET«(1»» tifutll, ¥XI1I, VRESUIt XU», Vlll 
COMMON yiOUTl/ SINTH.C05TH.0HEG> 


COMMON /NIN/ XOrr«23D I,Y0FFT230».NPM1N.NCL0,NCHI 
COMMON FCOUTl/ QC * , P T C , PSPTCl ,P10 1 BD , • T 0 T »L , ORHO 


19 OCT 76 

M 

H 

M 


M 

H 


COMMON 7V0UT1/ PSOPCnDDl.PHII CIDD l,ZETM<nD»,VVmrai,CPCIlDO»,VM 
IZIllOri.VHl (ICOJ .V>FT incoi ,YSP»N1I lOOI.ETMnOCJ M 


COMMON /V0UT2/ U1 < 1 00 » , VZPR I <1 00 » , BET* PI Cl DO T , WPR 1 U DO , VZPRS T (1 30 M 
1 » .BET APSC IDDl .VPRST C 1 CDT.MPRST I TOO T .MPRI HOOT M 


REAL MPRST.MPRI ■ 

VCAN = .2*CVRrSm/AT0T ALJPP2 
‘IT^VCAN.LC, 1 .c> CO TO 10 
psopcm=r.o 


MPRlcn = D.D M 

MPRSTCIl =D.C __ M 

GO fo"l5 “ ■" m" 

ID PS0PC<1»=C1 .0"VCANI**3.5 M 

1^ VYr(H:VXCn9TANC ALFA Cl MPIOI80T m" 

CrCC I >=SQRT15.<C 1 ./PSOPCTT »»»l 1./3.51-1. M M 









VGUrS^VBAR D 


A = 1.0-,2*VCUirSA D 


u-«“VL’UUin D 

yCOHPriVS AR-A*«Z , S^VGUES )/ < A**l ,5*[U ♦VGUtTS D 

IT^'fcTSTl VCoffP'^GTJffiTVvcoMP') . IT t . . DDD i I GO TO IS 
I=1*X D 

ir~itf‘C(5MP.et.VCRIT» VC0NP = .5*( VGUfTS+VCRI T) I 

VGUES=WCOMP D 


II.GT,20» CO TO 15 D 

GO TO 10 0 

TF7rM5BAR = <rTT=T2#TvrC0RP /AT0TAL1»*3»**2.5’»RH0T0T 

IF li.GT.201 WRITE t 6 ,20 IVB AR , VCOHP ,RHO0 AR 0 

rr"<l.GT,20> VBAft = VCDHP*RHDBAR/RHOTOT D 

RETURN 0 


D 

20 FORMAT OHj.SAHT EKCEEDS ?3 ITERATIONS FOR RHOBAR ,5* , 7HVBAR = ,IPED 
n'G'.3,2yVSTlVC'0f1P :: ,lPE10.i,2*,9HRHOPAR :: ,1PE1D.3/ 0 

270H VBAR HAS BEEN REDUCED TO WCOHP *RH0BAR/RHD TOT , UHE R C VCOMP^WCRITD 


D 

END D 



279 


INPUT AND OUTPUT FOR TEST CASE 















OSOhEfftT ONlt, SCI8CI.E“REtC»St 2-0 


DATE 053177 

CASE BFOCl 


TEST CiiSt RELEASE 2.0 



FL*G INPUT, 1ST RECORD - 
OOQQ 0 

FOREOD. 2ND - PUNCH. PLOT , REDO FLA6S 


. : • 

HEOCl LCD Oil 



000 0 0 



NO. OF edClEi 

=~r: bels = 


KRl = 11.630000 


ENBEEO= .00 





EXP0NCNI5 


SUPERELLIPSE 




P~= — 2.OT£r 

0 ~ 2.000 

T~ 

V 

STBTnrsiSB ~ 
-1.33Ca*0J 

8.dno«oo 0.0000 

O.OOOD O.OOOO 

“ 6.000A 1.1611*01 

D.OODO 2.9000*00 

3.6000*01 

2 .*oao*iM 

P = .2!l0FDCn0«01 

« = . 2 NaooooQ«ci KD = . 101 iooao«oi 

■ 

6“= Tf^fJODBootoT" 

B = .35999999*01 YD = .25999999*01 OMEOft = .ODODOODO 


~Z — ITCRAfTChi---" 

□ELS IN = .25000 

DELS = .255D9 

DELS OUT = .2S5D9 DSTEST = .2*595 


LAST POINT K= 

21, X 



.00000 

ENRECD 


STRAIGHT LINE 




irncn — 

— sr — 

Y 

1716 11^1 
2.xaC0*O3 

5.bdb0*&l 

2.9000*00 



LftST POINT 11 = 

IBS 




•OOOOD 

SHROUD 



t 


FNREEO 


STRAIGHT LINE 




^ ^ rnjDTj 



T 

371.1100 FUr" 

6.3303*03 

1.16ll*0l ^ ■ 

6.0000*30 



LIST POINT K= 

7S, X 

= .11611*02, Y = 

. 60000*01, XAPP*= . .COOOO 


.OQOOO 

ENREEO 


CUBIC 




— ~J.OUII 

"X — 

y 

“ 1.2611*QJ 

6.0000*00 

1.16ll*tll 1,69 b 0*00 

6.0000*00 9.9910*00 

s.oOOD-ol 

9.9910*00 


2 ITERMIONS 

» = 

-2.07160-03 B - 

9.13569-32 C = -1,225 28- 

■01 0 = 5.3 8996*00 

• 

ULL5~IN 7755IT9 DELS = .25525 DELS OUT = .25525 BSTCST^ 

■= .25199 


L*5T POINT K= 
ENREEOr 1000.00 

TT^nr 



.792D9-C3 

•EXPONENTS 


SUPER ELLIPSE 




— r - -jTxrau — 

0 = 2.000 

X 

r 

3.000U*bD 

9.9910*00 

1.69BD*oD O.Odoo 

9.9910*00 ' O.OOOD 

O.'DSBD O.OOOD 

O.OOOD 5.8900*00 

D.DOOO 

7.0000*00 


A r .16960000*01 XQ = .16900000*01 



■ B~= .SRB999^B*00 Y0“= .5S«0G00a*01 0NE6A = .00000000 


a !IER*IT0«5 

DELS IN = .25525 

DELS = .18050 


.05000 






















CEOMETRr 0«LT. SClRCtF BElCJkSE 2-C 0*TE 0 53 177 


L*ST POINT K= 137, X- .03000 , T= .58<»DD*01 ,K*PP»= - .23557*01, OT/DX= 99999*05. *LPH*r -.89999*02 

EWHECOr 1000. DO ^ 


EXPONENTS SUPESELLTPSE 



p - 
0 = 

.COD X 

.000 V 

0.3000 0.0030 

9 . 3000*03 5 . 8900*00 


2 .S 8 DC -31 7 . 

6 . 1190*00 6 . 

7933-01 

2770*30 

2 . 5810*00 

6 . 9530*00 

9 . 0000*00 

6 . 9530*00 

p 

. 


mm 

. 61330009*00 

xo 

= -.189 00000*01 




0 


, 17577100*01 

B = 

. 25810000*01 

ro 

= .658 10 000 *01 

ONEGi = 

.DDODDOOO 



8 

DELS 

liERXriONS 

IN = .07170 

DEIS = 

.07170 DELS OUT 

= 

.25525 OSTESl = 

*00177 

FINAL P*CE= 

.05157 


E*ST POINT K= 160, xr .258 10*01, »= . 69530*01 ,N«PP»= -.3t7Q5*O0,OT/OX= .03DQ0 ,ftLPH*= -OODDD 


ENPEEO STgMGHT LINE 



1.000 

X 

? 

2.5810*00 

6.9530*00 

1.1611*01 

6.9530*00 






LAST 

POINT Kr 

tarn 

.11611*02. r= 

.69533*01 .NAPPAr 


BRHH 



.00000 


EKREED 


STRAtOMT LINE 








l.OOQ 

K ' 

1.1611*01 

3.6003*31 








. T 

6.9530*00 

6.9530*00 






LAST 

POINT K= 

223, ‘x= 

.36000*02, V= 

. 69530*01. KAPPAr 

.GOOOO 

,DV/OX= 

.00000 

.ALPHA= 

.OOQDD 


INPUT 

FOP THE COnaiNE PROGRAM NT(n= 22b NTI21= 221 

NHtSNXr 

98 NP= 93 





BOOT 1 CO'ORDInATES - X 

¥ 

KAPPA 

OT/OX 

ALPHA 

s 

S-SI27 

DELTAS 

1 

.80110*01 

.00000 

-.62500*00 

.99 900*03 

.90030*02 

.00000 

-.97972*01 

.00000 

2 

.80275*01 

.22962*00 

-.61992*00 

.69360*01 

.81796*02 

.23022*00 

-.95170*01 

.23022*00 

3 

.80769*01 

.95723*33 

—.58976*03 

.39355*01 

.73771*32 

.96309*00 

-.42891*01 

.23288*00 


.81559*01- 

.67395*00 

-.59280*00 

.22785*01 

.66309*02 

,69377*00 

-.90539*01 

.23068*00 

s 

.82nlB*Dl 

.88020*03 

-.99509*03 

.16911 *01 

.59903*02 

.92566*00 

-.38216*01 

.23189*00 

6 

.83917*01 

.10791^01 

-.99701*00 

.13321*01 

.53105*02 

.11590*0] 

-.35882*01 

.23335*00 

7 

.85920*01 

.12596*01 

-.90221*00 

.10872*01 

.97392*02 

.13939*01 

-.33533*01 

.23992*00 

B 

.87099*01 

. 19211*01 

-.36235*00 

.90730 *C0 

.92217*02 

.16309*01 

-.31168*01 

.23696*03 

9 

.88866*01 

. 15688*01 

-.32893*00 

.77183*00 

.37662*02 

.18607*01 

-.28865*01 

.23027*00 

10 

.90765*01 

. 17099*01 

-.30021*03 

.66091*03 

.33961*02 

.20990*01 

-.26532*01 

.23332*00 

11 

.92 >76 *01 

.18276*01 

-.27590*00 

.5679 6 *CD 

.29573*02 

.23298*01 

-.29179*01 

.23582*00 

12 

.99881*01 

.19383*01 

-.25553*00 

.98677 *C3 

.25956*02 

.25677*01 

-.21795*01 

.23787*00 

— n — “ 

.97065*01 

.20367*01 

-.23861*00 

.91560*00 

.22568*02 

.28072*01 

-.19900*01 

.23956*00 

19 

.99315*01 

.21228*01 

-.22968*00 

.35162*00 

.19373*02 

.30982*01 

-.16990*01 

• ?<in9S«afl 

15 

.10162*02 

. 21973*01 

-.21333*00 

.29312*00 

.16337*02 

.32903*01 

-.19569*01 

.29211*00 

16 

.10397*02 

,22599*01 

-.20923*00 

.23882 *01 

.13932*02 

.35339*01 

-.12139*01 

.29306*00 

17 

.10635*02 

.23102*31 

-.19712*03 

.18768 *03 

.10633*02 

.37772*01 

-.97000*00 

.29385*03 

10 

.10877*02 

.23996*01 

-.19180*00 

.13889*00 

.79072*01 

.90217*01 

-.72599*00 

,29951*00 

19 

.11120*02 

,23776*01 

-.18809*00 

.91796-Dl 

.52920*31 

.92668*01 

-.98099*00 

.29505*00 ' 

20 

.11365 *02 

.23999*01 

-.18591*00 

.95690-01 

.26132*01 

.95123*01 

-.23999*00 

.29599*00 

21 

.11611*02 

.29303*01 

.00000 

.00000 

.GOOOO 

.97582*01 

.11002-01 

.29 595*00 

22 

.11866*02 

.29003*01 

.00000 

.00000 

.00000 

.50133*01 



. 23 

.12272*02 

.29003*0: 

.00000 

.00000 

.00000 

.53199*01 

.57220*00 

.30611*00 

29 

.12590*02 

.29003*01 

.00300 

.03000 

.30030 

.56868*01 

.93959*00 

.36733*00 

25 

.12980*02 

.29000*01 

.ODObo 

.□0030 

.00003 

.61276*01 

.13803*01 

.99080*00 ' 















GtOM&TRT ONLT* 

SClRCLt RELEASE 

2-0 





DATE 053177 

2b 

.135C9»D2 

.24000*01 

.00000 

.00000 

.00000 

.66565*01 

.19093*01 

.52896*00 

27 

.14144*02 

.24000*01 

.00000 

.00000 

.00000 

.72913*01 

.25440*01 

.63475*00 

28 

.14906*02 

.24000*01 

.00030 

.33000 

.30033 

.80533*01 

.33057*01 

.76170*00 

29 

.15820*02 

.24000*01 

.00000 

.00000 

.00003 

.89670*01 

.42198*01 

.91404*00 

iO “ 

“ .16829*02 

.24000*01 

.00000 

.00000 

.30000 

.99760*01 

.52288*01 

.10090*01 

31 

,17838*02 - 

.24000*01 

.00000 

.00000 

.00000 

.10985*02 

.6237B*D1 

.10090*01 

32 

MiMM r:T:rkC7>MH 



.00000 

.00000 

.11994*02 

.72468*01 

.10090*01 

33 

.19856*02 

.24000*01 

.00000 

.00000 

.00000 

.13003*02 

.82558*01 

.10090*31 

3% 

.Zt)B65*02 

.24000*01 

.00000 


.00009 

.14012*02 

,92648*01 

.10090*01 

3S 

.21874*02 

.24000*01 

.00000 

.00000 

.30000 

.15021*02 

.10274*02 

.10090*31 

36 

.22883*02 

.24000*01 

.00000 

. .00000 

.ODOOO 

.16030*02 

.11283*02 

.10090*01 

37 

.23892*02 

.24003*01 

.00000 

.00000 

.30030 

.17039*02 

.12292*02 

.10090*01 

TB — 






■Hii.nnivj 


.10090*01 

39 

.25910*02 

.24003*01 

.00030 

.30000 

.00000 

.19057*02 

.14310*02 

.10090*01 

“40 


.24000*01 

.00000 

.00000 

.o6ooo 

.20066*02 

.15319*02 

.10090*01 

HI 

.27928*02 , 

.24 000 *01 

.00000 

.00000 

.□0000 

.21075*02 

.16328*02 

.10090*01 

HZ 

.?5‘937*C2 

.24 0 0t}*01 

.□□□00 

.00000 

.30030 

.22084*02 

.17337*02 

.10090*03 

H3 

.29946*02 

.24000*01 

. 00000 

.00000 

.00000 

,23093*02 

.18346*02 

.10090*01 

HH 

~ .30955*62 


.00030 

.30000 

.30000 

.24102*02 

.19355*02 

*10090*01 

‘ H5 

.31964*02 

.24000*01 

.00000 

.00000 

.00000 

.25111*02 

.20364*02 

.10090*01 


— mil 1 1 ■ 



.30000 

.QOCPO 

' .26120*02 

.21373*02 

.10090*01 

Ht 

.33982*02 

.24 000*01 

.00000 

.00000 

.00000 

.27129*02 

.22382*02 

.10090*01 

^ 4A 

— ■■fctt-rii iiF — 

.24 000*01 

.00000 

.60000 

.00000 

.28138*02 

.23391*02 

.10090*01 

%9 

.36000*02 

.24000*01 

.00000 

.00000 

.30030 

.29147*02 

.24400*02 

.ia090«31 

BOOT 2 CO-Ofi01N*TES - * 

T 

KAPPA 

DV/OK 

ALPHA 

s 

S»I2»-S 

DELTAS 

50 

.36000*02 

.60000*01 

.00000 

.OOCOD 

*00000 

.00030 

.24400*02 

.00000 

51 

.34961*02 


;obb3b 

.30096 ~ 

.30030 

.10090*01 

.23391*02 

.ioo9r>«n* 

52 

.33982*02 

.60000*01 

.00000 

.00000 

.00000 

.20180*01 

.22382*02 

.10090*01 

53 

1IIIIIIIIM 



.00000 

.GODOD 

.30270*01 

.21373*02 

.10090*01 

54 

.31964*02 

.60000*01 

.00000 

.□DDOO 

.03000 

.40360*01 

.20364*02 

.10090*01 

'■ W 

■namitbU:mv.aai 

rstroDd*!)! 

rsnwD 

wmimnimam 


.50451*01 

.19355*02 

.10090*01 

56 

.29946*02 

.60000*01 

.00030 

.00000 

.33030 

.60541*01 

.18346*02 

.10090*31 

"57 


■WTPM.n.lM 


.Odoo^ 


.70631*01 

.17337*02 

-10090*01 

SB 

.27928*02 

.63003*31 

.GD330 

.33030 

.3DD33 

.80721*01 

.16328*02 

.10090*01 

5^ 

.V J I." E3 1 K8M 

T.i.i.i.i.g.f 



.ooooO 

.90011*01 

.15319*02 

.10090*01 

60 

,25910*02 

. 60003*01 

.00000 

.00000 

.00000 

.10090*02 

.14310*02 

.10090*01 



■SK.WUP.IM 




■PWM-m.M 

.13301*02 

.10090*01 

62 

.23892*02 

. t000Q*Dl 

.00000 

.30000 

-30300 

.12108*02 

.12292*02 

.10090*01 

6^ 

rz?Bs3*02 

. 60000*01 

.00030 

.33000 

.30030 

.13117*02 

.11283*02 

.10090*31 

fc-> 

.21874*02 

.60000*01 

• uoono 

.00000 

.30000 

.14126*02 

.1027t;*D2 

.10090*01 

(>!> 


T-1.1.1.9DP1M 




.15135*02 

.92648*01 

.10090*01 

66 

.19856*02 

.60000*01 

.00000 

.30000 

*DOODO 

.16144*02 

.82558*01 

. 10090*01 

67 

■TinimM 


.CCOOb 

. DOOOO 

.00000 

.17153*02 

.72468*01 

.10090*01 

6B 

,17838*02 

.60000*01 

.00000 

.DCOOO 

.00000 

.18162*02 

.62378*01 

.10093*01 


. 16629*02 

■wa<T»tiT.nif 

. 00000 

*nv0Q0 

.00000 

.19171*02 

.52288*01 

.10090*01 

70 

. 15820*02 

• BODOO^Di: 

.00030 

.03300 

.30033 

.20180*02 

.42198*01 

. 10090*31 

71 


. 60000*d5 

.ODDOD 

.obooc 

.ODOOO 

.21094*02 

.33057*01 

.91404*00 

72 

.141^4*02 

.63000 *31 

.CD330 

.30CCO 

.33033 

.21056*02 

.25440*01 

.76170*00 

7J 

" "."135Cv*0z ’ 




.30000 

.22491*02 

.19093*01 

.63475*00 

74 

.12980*02 

^63003*01 

.00000 

.30000 

.00000 

,23020*02 

.15803*01 

.52896*00 

75 

.12540*02 

. 6D0D0*Ol 

.□□□□a 

.00000 

.00000 

.23460*02 

.93953*00 

.44080*00 

76 

.12172*02 

.60000*01 

.00000 

.00000 

.00030 

.23828*02 

.57220*00 

.36733*00 

i't 

.11«66*D2 

-63303*31 

.0003!.* 

.03333 

.33030 

.24134*02 

.26639*00 

.30611*00 

73 

.11611*0’ 

.60000*01 

-.61607-01 

.74506 -C8 

.42689-06 

.24389*02 

.10999-01 

.25509*00 

79 

.11359*02 

. 59981*01 

-.58453-01 

.15139-01 

.86732*03 

•24641*02 

-.24115*00 

.25215*00 



- ^gV- 


GEohethv ostt» scircle REiE*sr 2-0 d«tc C55I7T Hise 


BO 


.59925*01 

-.55289-01 

.29391-01 

.16835*01 

.29892*02 

-.99162*00 

.25097*00 

ax 

. 10860*02 

.59835*01 

-.52125-01 

.92782-01 

.29497*01 

.25191*02 

■LAUMUXI 

■nii-uu.i ■ 

82 

.H161H-*02 

•59713*0I 

-.98968-01 

.55331-01 

.31670*01 

.25388*02 

-.98829*00 

.29740*0O 

83 

.10366*D2 

.59563*01 

-.95825-01 

.67060-01 

.38365*01 

.25635*02 

■ Bl 11 1 ■ 


£«,■ 

.10121*02 

.59385*01 

-.92701-01 

.77983-01 

.99591*01 

.25880*02 

-.19803*01 

.29550*00 

BS 

,98776*01 

.59182*01 

-.39599-01 

.88118-01 

.50358*01 

.26125*02 

-.17299*01 


86 

-96398*01 

.58957*01 

-.36522-01 

.97977-01 

.5S679«01 

.26369*02 

-.19687*01 

.29382*00 

87 

.93929*01 

.58711*01 

-.33971-01 

.10607*00 

.60599*01 

.26612*02 



88 

.91518*01 

.58995*01 

-.30996-01 

.11392*03 

.69990*31 

.26859*02 

-.29599*01 

.292S9*0I 

39 

.891 15*01 

. 58163*01 

-.27998-01 

.12102*00 

.69009*01 

.27096*02 

-.26969*01 

.29203*00 

90 

.86717*01 

.57865*01 

-.29975-01 

.12739*00 

.72598*01 

.27338*02 

-.29380*01 

.29160*00 

91 

.89325*01 

.57553*01 

-.21526-01 

.13303«Ca 

.75777*01 

-27579*02 

-.31793*01 

.29129*00 

92 

.81937*01 

.57229*01 

-. 18598-01 

.13795*00 

.78596*01 

.2T82iJ*02 

-.39202*01 

.29095*00 

93 

.79553*01 

.56895*01 

-.15691-01 

.19216*00 

.80911*31 




91 

.7717i*Cl 

.56553*01 

-.12800-01 

.19566 *00 

.82879*01 

.28301*02 

-.39015*01 

.29059*00 

95 

.79799 *01 

.56203*01 

-.99231-02 

.19895*01} 

.89939*01 

.28592*02 

^^9oTil ij'Ta 


96 

.72917*01 

.55897*01 

-.70571-02 

.15059*00 

.85608*01 

.28782*02 

-.93822*01 

.29035*00 

97 

.70090*01 

.55988*01 

-.91985-02 

.15192*0) 

.86383*01 

.29023*02 



98 

•67664«Q1 

.55126*01 

-.13939-02 

.15260*00 

.86769*01 * 

.29263*02 

-.98629*01 

.29056*0t 

99 

.65287*01 

.59763*01 

.15101-02 

.15258*00 

.86753*01 

.29503*02 

-.51039*01 

.29 099*00 

nns 

.6^911*01 

.59901*01 

.93656-02 

.15186*tS> 

.86398*01 

.29799*02 

-.53938*01 

.29092*00 

ICl 

.60539*01 

.59092*01 

.72293-02 

.15093*00 

.85550*01 

.29989*02 

-.5589 1*01 


loi 

,58158*01 

.53687*01 

.10090-01 

.19831*00 

.89359*01 

.30229*02 

-.58299*01 

.29027*00 

1Q3 

.55781*01 

.53337*01 

.12966-01 

.19S9B*U) 

.82772*01 

.30965*02 

-.60696*01 

.29027*00 

jiTS 

.5390^*01 

•5j99S*6l 

.15859-01 

.19199*00 

.80788*01 

.30705*02 

-.63050*01 

.29032*00 

IDS 

.51021*01 

.52662*01 

.18759-01 

.13770*00 

.78909*01 

.30995*02 

-.65959*01 

.29092*00 

IB& 

.93637*01 

.52393*01 

.21683-01 

.13275*00 

.75617*01 

.31186*02 

-.67860*01 

.29058*00 

107 

.96299*01 

.52029*01 

.29628-01 

.12708*00 

.72922*01 

.31927*02 

-.70268*01 

1 ■ 

10 a 

.93857*01 

.51733*01 

.27595-01 

.12069*00 

.68816*01 

.31668*02 

-.72678*01 

.29108*00 

109 

.91959*01 

.51952*01 

.30567-01 

.11357*00 

.69792*01 

.31909*02 

-.75093*01 


lio 

.39055*01 

.51188*01 

.33609-01 

.10571 *00 

,60395*01 

.33151*02 

-.77511*01 

.29185*00 

11 ) 

.36699*01 

.50999*01 

.36697-01 

.97112-01 

.55967*01 

.32393*02 

-.79935*01 

.2*238*00 ' 

IIZ 

.39225*01 

.50720*01 

.39713-01 

.87758-01 

.50153*01 

.32636*02 

-.82369*01 

.29295*00 

113 

.31796*01 

-50519*01 

.92833-01 

.77637-01 

.99399*01 

.32880*02 

-.89801*01 

ui'. M 

119 

.29359*01 

.50393*01 

.95919-01 

,66738-01 

.38181*01 

.33129*02 

-.87295*01 

.2**93*00 

115 

.26910*01 

.50193*01 

.99092-01 

.55096-01 

.31507*01 

.33370*02 

-.89698*01 

.29^38*00 

116 

.29999*01 

, 50073*01 

.52182-01 

-92596-01 

.29363*01 

.33616*02 

-.92162*01 

.29638*00 

117 

.2197S*01 

.99989*01 

.55328-01 

.29221-01 

.16738*01 

.33869*02 

-.99638*01 

wmw kii 11 ■ 

118 

8,1^3486«01 

.99929*01 

.58972-01 

.15050-01 

.86226*09 

.39113*02 

-.97127*01 

.29891*00 

119 

. 16980*01 

.99910*01 

.29996*00 

.00000 

.00000 

.39363*02 

■ULUUiJ'il 


120 

■' .15265*01 

.99953*01 

.29787*03 

-.50751-01 

-.29053*01 

.39535*02 

-.10135*02 

.17153*00 

121 

.13638*01 - 

.50076*01 

.30778*00 

-.I0036<QO 

-.57310*01 

.39698*02 

-.10298*02 


122 

. 12099*01 

.50268*01 

.32913*00 

-.15 j07*Q0 

-.85399*01 

.39853*02 

-.10953*02 

.15518*00. 

IZI 

.10695*01 

•.50523*01 

.39793V 00 

-.20107*00 

-.11369*92 

.35001*0? 


1 1 1 M M ■ 

129 

.92755*00 

.50839 * 01 

.37870*00 

-.25958*00 

-.19283*02 

.35191*02 

-.10791*02 

.19092*00 

125 

.79897*00 

.51198*01 

.91956*03 

-.31206*03 

-.17331*02 

.35275*02 

-.10875*02 


126 

.67865*00 

.51610*01 

.97290*00 

-.37532*00 

-.20572*02 

.35902*02 

-.11002*02 - 

.12720*00 

127 

.56659*00 

.52069*01 

.59057*03 

-.99 683*03 

-.29076*02 

.35523*02 


■milLLL' ■ 

128 

.96268*00 

.52575*01 

.62879*00 

-.53018*00 

-.27932*01 

.35639*02 

-.11239*02 

.11551*00 

129 

.36912*03 

.53115*01 

.79075*00 
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.30033 .56*93*32 -.32393*02 .10066*01 
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D*TE DS3177 


6.2397*01 

8.2397*01 

2.1981*00 

8.3679*01 

8.3679*01 

2.93B0*00 


8.5176*01 

0.5176*01 

2.8197*00 

8.6838*01 

8.6838*01 

3.30S9*aO 


8.8630*01 

8.8630*01 

3.9395*00 

9.3578*01 

9.0578*01 

9.7500*00 


9.2681*01 

9.2681*01 

5.8010*00 

9.9937*01 

9.9937*01 

7.1270*00 

, 

9.7230*01 

9.7230*01 

8.6526*00 

9.9651*01 

9.9651*01 

1.0351*01 


1.0218*02 

1.0218*02 

1.2000*01 

l.D976*02 

1.0976*02 

1.3299*01 

• * 


is*d: 


l.Q715<0Z 


D^CODQ 

























Prosca> KOD 


Ho i.Bput ia shown for BOO since all BOB Input la antOMtlcslly . " 

generated In SCIRCL and passed on to BOB wla mass storage file. Ho 

input cards need he punc hea. , ■ 

p6tENTl»L~FtdTr - FODF" RtLEiSE i D»TE 053 ITT 

~'"oo1icC*s’' '* inFRiFT "colipwT ^ ~ “ 

L ONG BEICH Oll f lSI OW 

PROGRill e¥0F^-- P*B*b 6~LTC *XtSY«METH7c¥l~tm CBOSS^^ ~ 

”aeVSe "caSE CONTROLniaT « ’'•seas — ~ - 


.'’ELEaSE 2.3 _ 2-BOPT CaSC W0« BFOCl 

a^QJCS 2 

"NNU*^* ='o"‘’"' . 

C HOBO ^ ■ _ 1.0 C300G 0 _ _ _ _ 

' rtacH Nd.= Iqodocooc' 

TCJ^St _=_ _.OQDCaOQ _ ^ 

EPSLoVr ■ .TqC3QOO~ " 

P SF HO . = ___ 


SU RFtc r OF REWOL_OTIOM _ ; 

~ CROSSFLbu' . ^• 

OFF-BODT POINTS 

PaTRI* SOLUTION 'BT TRiaHGUL»Rr2M ION IS0LTIT1 

_ T ORIE * !. 

punched output ~ 

TNPJiT TaPE N O. F OR COO RDINa TES INO N ON-UNIFOBW FLOW OHLT - S 





P01EMTI3L FLQU - fbOF RELWSE 2 ‘ 

' * - "foucOs * •IRCR'iFT" COnPfTNT'” 

^ ..Lone BE*CJf oiwiyow 

TES T CAS E HEt. E*SE 2.3 2-BODT 

NN = H9 N* = _.OOOpQDp _ MT = .OOOCODD 

THETA" = * "■ '.DQCDDDb' "soblC V .b'dDOOOQ ADOV = ' .OOQOJCO 

XE = .DDODDDa »E = . 3300300 


CURVED ELEHENTSJ IGE0HF=D1 PI ECEUISC-PARABOLIC SOURCE DENSIT lESlISISF 

M£U VELOClfV FORnuLAE ARE USED. 



o"n - B 

0 D r c 

0 0 R 0 I N 

A T E S 




*««UNTPANSFORMED#^« 

**• TRANSFORilEO 




X 

T 

X 

r 

X C.P. 

Y C.P. 

1 

8.011G0 

.SOOQO 

a.ciico 

.QOOGO 








8.DI521 

.11310 

2 

E.02751’ 

.22962 

8.02751 

.22962 

8.04826 

.34 427 

3 

3.07693 

,95720 

S-.C7693 

.95720 

8.11287 

.56686 

4 

6.1 5536 

,67395 

3. 15586 

.67395 








8.20576 

.77867 

s 

3.26185 

.88020 

9.26185 

.88020 

8.32409 

.97894 

6 

8.39166 

1.07911 

8.39166 

l.C79li 

8.46460 

1.16622 

7 

8.5<l20<l 

1.25959 

8.54209 

1.2S9S9 








8.62911 

1.33974 

3 

8.7C99A 

' 1.R21Q9 

S.70<J99‘ 

1.42109 


' 






8 .79680 

1 .49671 

9 

3.88659 

■1.56BP1 

3. S86S9 

1.56881 








3«9SQ29 

1.63834 

10 

9.07637 

1.70990 

9. 07697 

1.70440 








9.17597 

1.76769 

n 

9.27756 ■ 

1.82758 

9.27756 

1.82758 








9.38195 

1.88460 

12 

9.488G9 

1.93830 

9*t|BBQ9 

1.9383D 








9,59658 

1.98910 

13 

9. 7 0653 

2.03666 

9.70653 

2.03666 

9.81893 

2.08132 

14 

9.93155 

2.12283 

9.93155 

2.122B3 








10.09629 

2.16145 

15 

10.16201 

2.19701 

13.16201 

2.19701 








10.27907 

2.22970 

16 

1C. 39693 

2.2S99D 

10.39693 

2.25940 

10.51587 

2.28626 

17 

10.63593 

2.3102b 

10.63593 

2.31020 








10.75586 

a.33151 

13 

10.87676 

2.34955 

10.87676 

2,34955 

10.99831 

2.36 499 

19 

11.12020 

2.37759 

11.12023 

2.37759 

11.29256 

2 .38740 

20 

11.36512 

2.39990 

11.36512 

2. 39 440 








11.98809 

2.398_18 


DATE 0S3TTT 





-j?97- 

POTENTiVL FLOW - EODF RELEASE 2 

" ' “ * - DOUCIJIS *IRCR*FT ' COH^JINY’ ~ 

_ LONG BEACH OlvrSICM 

TEST CASE RELEASE 2.2 2 -BQOY 

NN = R 9 H* = .OaaOQOD HY = .DQDEODO 

theta = ‘ '.oaDcbcD aoox = .aanoacc addv = .cooDaaa 

*E = .ODODOOD YE = .OQQCOQD 

CURVED ELEMENTS I rCEOr!F:=C I ?T ECEUISE-PABABOLIC SOURCE OENSI TI ES« IS16F 

NEW VELOCITY FORMULAE ARE USED. 


d N - B 0 D Y C 0 O R O I N A T E S 
• •*UNTRANSroRMED*** «*• TRANSFORMED 



X 

y 

X 

y 

21 

11 . 611 CD 

2 . 9 cooa 

11.61100 

2 . 9 GO GO 

22 

li.B 66 D 9 

2 . 40000 " 

11 .86609 

2.90000 

23 

12 .i 722 d 

Z. 4 C 00 D 

12 . 17220 

2 . 9 CC 00 

2 R 

12 . S 3 959 

2 ^ 4 DCC 0 

12.53959 

2 ^9 0 00 O' 

? s' ' 

12.90033 

2 V 4 uObO 

12^90 033 

2 ". 9 0000 

26 

i 3 .~ 5 D 929 

2 . 9 D 00 a 

13 •50929 

2 . 9 boo'd 

27 

IR.IRROA 

'2 .40000 

> 19.19909 

2.90000 

28 "’ 

■ Iir. 9 DS 75 '" 

' 2 . 40 dCD 

' 14 T 9057 S 

"i'i 90000 ’ 

29 

15 Is 1979 ■ 

2740000 

■ T 5 . 6 f 979 

279 FQ‘od" 

30 “ 

1 6 r 82 ^D“ “ 

2.40000 

‘“l 6 •'82882 

" 2 . 40000 ’ 

31 

17.83781 

2 . 4 D 000 

17 . 837 ei 

2.40000 

32 

1 E.S 46 BZ 

2.4 00 "od 

18.09682 

2.40000 

33 

19 .BS 583 

2 . 4 CO 00 

19.05583 

2.90000 

"34 

?brF 6 'r 84 

' 2 . 4 obdo' 

" 2 ‘F.'e 69 e 4 

■^idb'ob' 

35 

21.87385 

2.40000 

21.87385 

2.40000 

36 ' 

" 22 . 38286 ' 

274 QOOO 

22.88286 

2. 40000 

37 


“ 2 . 4 DOM 

23.89187 """ 

2 . 40000 ” 

30 " 

"29 30088 

2 . 9 "EibEtj' 

' 29.90088 

2.40000 

39 

25.^0939 

2.45000 

25.90989 

2.40000 

RO” 

26 . 9 T 690 

2 . \ 0000 

■ 26 .' 918 ^d^ 

" 2 J 4 dbo? 


* 'C.P.^ 

11.7^855 
12.C19J5 
12.3,55.87 
12.7S99R 
. lI.aRRSI. 
13 . 82867 
l«l.52A9a 
15.36^7 
16.32«iZ9 
17.3333J 
1 B.3R231 
19 .3513 2 
20 .36D3 7 
21 .36935 
22.37836 
23.38 737 
«.3_9838, 
,25,*tg539 
26.5J.RR3 
27.U23*tI 


Y C.P. 
2.40CD0 i_ 

2 .«»aoco 
. 2 .ROPCO. . 
^.R3C30 
2.R00Q0.,, 
2 .<iaoaD 
2.RD 0CC 

.jr.RqoGO 

.2 .R_ 3 P 0 ,D,... 
2.Raasn 
2 .RQDDD 
2.R0PD0 
_2 . ROaOD 
2.N30DE 
z.Ropnq 
z.R ggD O 
,2.R0pDp 
2. ID COD, 
2.R3 SG0 
Z-ROCOO 





POIENTI*r FLOK - rODF RELCftSE 2 ‘ ' ' DATE D 53177 

“ ‘ ■ * 'douclas' aiacR'AFT’^ ' co«p*nt'‘ ' ‘ ' ^ 

LOME BEACH aimSION _ 

TEST CASE RELEASE 2.D 2-BOOT ___ 


NN = t(9 nx = .DQaODOO HT .COOHiaD 

THFTA'= .MOObOd ' ADOX = .bDOOODO ‘ ADDT = .COOCaod 

XE = .O3CQ0CD YE = .3D03300 


CUBWED EIXHENTSITGEOHF=DI PIECEUISE-PARABOLIC SOURCE OEMSIT lES I ISIGF=D» IMT EPH A LLT-C O HPU TE D ELE HEWT- CURVATURES tl CURYW=3 1 


NEi# WELOCltT forhulaE are used. 










0 N - B 

0 D T C 

0 0 R 0 I M 

A 7 E S 









*«^UNTRAfJSrOPHCO«** 

9** TRANSFOBHED 









X 

y 

X 

T 

X C.P. 

Y C.P. 

DELTA S 

SunOS 

D ALPHA 

CURVATURE 


41 

27.92791 

2.40000 

27.92791 

2.40GC0 




■ 






*i2 





26.43242 

2.40500 

1.0D901 

21.30693 

.00000 

.crooo 


26.93692 

2.4C0C0 

28. 93692 

2.40000 




' 









29.44143 

2.40GC0 

1.50901 

22.31S94 

.00000 

.00000 


43 

29.94S94 

2. 4 LOCO 

29.94594 

2.40QDC 








44 

30.95495 

2.400C0 

33.95495 

2.4D0C0 

30.45044 

2.40000 

1.0D9ai 

23.324«___ 

• OQJIOJ 

.00000 

— 

4B 

31.96396 

2.40DCO 

31.96396 

2.4C0D0 

31.45945 

2.40000 

I ^0093 1 

_ 24^33396 


.00000 

— 

46 

32.97297 

2.4CQR0 

32.97297 

z«4ooao 

32.4SS46 

2.43PD0 

1.^901 

25.34297 _ 

,,.0,0000 

.00000 

— 






33.47747 

2.40000 

1.00901 

26.35198 

.OOODO 

.00000 


47 

33.98198 

2.4CCOO 

33.9B198 

2.40000 









34.99C99 




34.48646 

2.40000 

1.00901 

27.36099 

.00000 

.00000 


43 

2. 4 COCO 

34 .99099 

2.4Cdr!0 








49 

' 36.O0C0D ■ 

2.4C0DD 

35.C3D00 

2.40CO0 

35.49549 

2 .40000 

1.00901 

^e.37c^ 

*CGQPO 

.00000 

-- 





P0TEN71JIL flow - rOPF RFLCASE 2 

COU^XtE AIRCRAFT COPPANT 

LONS beach OIVISIOM 

TFST CAEE RELEASE Z .2 r-EOHY 

Af-* = 17R -lx = ,?Q0tC3D M = -£PCC>30j 

theta = -LUErCEC A03X = ,3a2CjCP AOOY : .3DSE32n 

XE = .StEDJEEJ YE = .33EGECC 

CURVED ELEHEf.'TS«IG£OHF=Cl PI ECEUISC-PARABOLlC SOURCE QENSITIESC ISlGFi 

NEH VELOCITY FORMULAE ARE USED. 

OW-a'OfiY COORDINATES ~ 

***UNTFANSFORrED«*« «•* 7PANSF0SHEC *#« 


1 

36.D2C00 

6 

36.rOOCC 

*" '~2 ' 

“■3 4. 9 90 99 

6 m «i Ci-A^G 

34.99799 

3 

33.98198 

6.0C0C0 

33,93 1 9E. 

4 

32.9.7297 

^ *CC3 C2 

32-97297 

5‘ Pi. 96396' 

6 

31 .'96395 

6 

30.95495 

6.00030 

33.95495 

7 

29.9"4S94 

6.30000 

29.94594 

.... g- 

“6'. 9 3*69 2 

6«G3DGu 

23.'93692 


■2f79279l’" 

■ ‘ 6'.3DC20 

27.92791 

IQ"” 

~2'6T9139D “ 

G « G C 0^.^ 

25 .91890 

11 

25.90989 


2S. 93989’ 


IZ ZR.9CG8S S.DECrC 2^.93388 
13~~^ JT89'1B7" “ S .OaDPO 21 • 89 187* 


19 22.38286 6.32020 2?. 88286 

15 ri 787 JB 5 "~ ■&.DSDDCrr 21 . 87 ' 385 ^ 

*16 ~2^D.e60B4 6.00022 ~ 20- £69 84’ 


6.00000 
6 .20 k-20 

6.00G00 

6-23020 

5'.00023' 

6.300CO 

6.32023 

‘6".ccooa 

S.CdCGD 

s.ooodo 

■* 6 T 03 C 03 ~ 

~ 6 . 30 CP 0 ’' 

6 . 00060 '* 


6.00000 

VTccoco ’ 


35.-‘'954^ 6.GC--.3 

34. 4 864 3_ 6 2vOD3G . 

33.47747 6.33 >2* 

32.46 846 6 .00 COO 

31.4S945 6.0DCC0 

3a.45044__ 6. 00300 _ 

29. 44143 6 .qpDCO _ 

23^43242 ^6 .OpOOD 

27.42341 6.0pDCp_ . 

26.41440- 6 . 0002 c 

25 .405 3 9 6 .0DDC0 

2 4.39638 _ 6.3 DDPD 

23.38737 ^6.33030 


22.37336 6.D PD0D _ 

2a.3&935 6.30305^ 

6 .00G2C 


16 20.86484 6.000CC 20. £6484 6-OrCDO 

20.36034 


17 19.85583 6-3C0CE 19,85563 6.22C03 

_ _ ___ 19.35132 

13 18.84682 6.3CQ0D iS.84'68'2 G.OOOCO 

LB. 34231 

19 17.83781 6. COODD 17.83781 ”&.0ODDb 

: ' 1 17.33330 


20 18.82880 6.00000 16.82880 6.00000 


6.30000 

6.33C0C 

6.0330C 


DATE 353177 




- 3oo 


POTE«Ti»L FVQ« - EOPF RELEASE 2 ’ DATE 053177 


DOUGLAS aircraft CONPANT 

LONE beach division 


TEST CASE RELEASE 

2.0 



2-BOOY 


NN = 17R 

rix = 

.33Q33CQ 

«T = 

.0301330 


THETA = T555ojDa 

XE = .0300300 

COD* = 
YE = 

.0000000 

.OOQCGOO 

ADOT = 

cODOCOon 


CURVED ELEHENTSIIGEONF=0> 

PIECEWISE 

-PARABOLIC 

SOURCE 

DE«SITlESflSlGF=0» 

INTERNALLY-COHPOTED ELEHENT CURVATURES fICURV«=3 a 

NEW VELOCITY FO??rfULA£ ARE USED* 


0 N - B 0 OT COORDINATES 
a»»UNTBAMSFORWED»»» IBANSFORHEO •»* 



X 

X 

X 

Y 

X C.p. 

T 

icLTA S 

SUNOS 

0 alpha 

CURVATURE 


21 

15.81979 

6.00000 

IS. 81979 

6.00000 

15.36277 

6.30000 


21.1S922 

.00000 

.00000 


22 

14.9C575 

6 •DQQGO 

14.9'357S 

6.00000 

16.52490 

6.00000 

.761V3 

22.10327 

.00000 

.ooooe; 


23 

14.14404 

5.3COCO 


6.33003 

13.82667 

6.oaoco 

e6747S 

22.86497 

.00000 

.30000 


2A 

13.5b929 

6.00000 

13.50929 

6.00000 

13.24461 

6.00000 

^52896 

23.49972 

.00000 

J3D00Q 


25 

12.98033 

6.000CG 

12.98033 

6.0CCC0 

12.75994 

600030 

.44033 

24.02868 

.30300 

.00000 



12T519S4 

6.00000 

12.51954 

b .CQ OOD 

12.55587 

6.800ai> 

.36731 

24 ,4f9*:8 

.00003 

.00003 


27 

12.1Y220 

6.00000 

12.17220 

6. cocoa 

12.01915 

6«OOCOO 

s306ii 

24.83681 

.00000 

.00000 


2a 

■■il.ffKtaa 

6.00000 

11.66609 

6735555” 

11.73855 

6.000CD 

.25509 

r-5. 14292 

.00000 

.00000 


2a ' 

iirmro 

6.0C0CC 11.61103 

6.30000 

11 .48493 

5 .99937 

.75215 

25.39801 

-359.56256 

.04195 


“TO 

1 1 * 86b 

5.99807 

11.35886 

5.99BC7 

11.23364 

5.99572 

.25348 

25.65016 

.84176 

.05685 


.^1 

li. 10845 

5.99248 

nmjF55“ 

5.99248 

13.98402 

5. 98 840 

*2^899 

25,90064 

,79118 

.05369 


3j— 

"T£f7f5'562 

ST9B349 

10.8'S962 

5.98349 

10.73591 

5.97780 

.247t>8 

26.14963 

.74172 

.05053 


■*.3 

1C. 61224 

5.97134 

13.61224 

5.97134 

10.48919 

5.96416 

.24652 

26.39731 

.69335 

.04738 


34 

1C.3661B 

5.95626 

13.36618 

5.95626 

- 10.24373 

5.94 771 

.24553 

26.64383 

•S4599 



~ *^5 

1D.12133 

5r938<*9 

10.12133 

5.93849 

9.99943 

5.92867 

.24463 

26.88932 

.59962 

.04113 



9.87757 

S. 91823 

9.87757 

5.91823 

9.75616 

S. 90724 

.24362 

27.13393 

.55412 

.03803 


T7“ 


5.S9569 

9.63480 

5.69569 

9.51383 

5.38363 

.24313 

Z7..37774 

.50954 

.03497 


3b 

9.39292 

5.871C6 

9 . 39292 

5.87106 

9.27235 

5.35802 

.24254 

27.62087 

.4 6578 

.03193 


39 

9.15184 

52 

9. 15184 

5.84452 

9.C3162 

5 J3Q61 

.24203 

27.86341 

.42268 

.02891 


40 

8.91146 

5.81627 

*3. 91146 

5.81627 

8.791SS 

5.33156 

.24163 

28.10545 

.38338 

*02592 






z3m- 


POfENTKL FLOW - EODF HELEASE 2 ’ ~ DATE 05317? 


DOUGLAS aircraft COHPANT 
LOWE BEACH aiVISIOW 


TEST CASE RELEASE 2.3 ■ 2-BODY 



NK = 174 


MX = 

.OOOGOQO 

KY - 

.oooEooa 





THETA :: 

*E = 

.0300000 
.GQOOE- 3 

AODX = 
TE = 

.300C0DD 

.OnOQGOO 

BODY = 

.□OOdOO 





CURVED 

elements IT GE0»F=0» 

PIECEWISE 

-PARABCtIC 

SOURCE OENSITIESITSIGF: 

Q> INTERNALLY-COMPUTED ELEMENT CURVATURES ( 1CURVN=0 1 

NEW VELOCITY FORHULAE ARE USED. 


0 N - B 0 0 t c 

RANSf 

00RO7NATES 

*** transforheo *** 








X 

T 

X 

T 

X C.P. 

Y C.P. 

delta S 

SUNOS 

0 ALPHA 

Curvature 

VI 

8.6717Q 

5.78648 

8.67170 

5.78646 

8.55207 

5.77106 ' 

.24124 

28.347C5 

.33854 

.02296 

V2 

B. 4 3248 

5.75531 

e. 43246 

5.75531 

8.31307 

5 .73928 

• t24095 

28.58830 

.29742 


V3 

8.19371 

5,72295 

8.19371 

5.72295 

a,07<»50 

5 .70637 

.24072 

28*82924 

.25665 

.D17C8 


7.95332 

5.6P9S5 

7.95532 

5.68955 

7.83626 

5.67251 

.24054 

29.06946 

.21636 

.0.417 

V5 

7.71729 

5.65527 

7.71724 

5.65527 

7.59829 

S.6378S 

.24342 

?9. 31053 

.17640 

.01127 

*6 


5.62028 

7.47938 

5.62028 

7.35351 

5.60 256 

.24335 

29.55092 

.13668 

.00837 

47 

7.24167 

5.584 73 

7.24167 

5. 58473 

7.12285 

5.56679 

.24033 

29,79127 

.09718 

.00544 

98 

7.00404 

S.54B7B 

7,00404 

5.54 676 

6.88523 

5 .S3 070 

.24036 

30.03160 

.C£'vB4 

.00237 

99 

6.76642 

5,51259 

6 . 76642 

5.51259 

5.64753 

5.49444 

.24044 

30.27196 

.01848 

.OODOO 

50 

6.^2874 

5.47630 

6.52874 

5.47630 

6.40990 

5.45819 

.24042 

30.51240 

-.02078 

-.00257 

51 

6.29106 

5. *4011 

6.29106 

5.44011 

6.17225 

5.42211 

.24332 

30.75282 

-.36010 

-JJD562 

52 

‘ 6.05344 

5.40416 

6.05344 

5.40418 

5.93463 

5.38637 

.24027 

30.99314 

-.09951 

-.00854 

S3 

s.eisai 

.5.36867 

5. 81581 

5.36867 

5.69696 

S.3511Z 

-24027 

31.23341 

-.13890 

-.01144 

S« 

5.57810 

5.33374 

S. 57810 

5.33374 

5.45918 

5 J1654 

.24032 

31.4736B 

-.17852 

-.01434 

5T“ 


5.29954 

5.34023 

5.29954 

5.22119 

5.28277 

.24342 

31.71399 

-.21637 

-.01725 

56 

5.10212 

5.26624 

5.10212 

5.26624 

4.98294 

5.24 996 

.24358 

31,95441 

-.25849 

-.02017 

57“ 

warn 

5,2:^398 

4.86372 

5.23398 

4,74435 

5.21 830 

.24080 

32.19499 

-.29910 

-.02311 

58 

4.62493 

5.20295 

4.62493 

5.20295 

4.50533 

5.18793 

.241DB 

32.43579 

-.33997 

-.02607 

59 

4.3S56S 

5.17329 

4.38568 

5.17329 

4.265BI 

5.15903 

.24143 

32.67686 

-.38152 

-.02906 

6D. 

4.14549 

5,14519 

4.14589 

5.14519 

4.02571 

5.13177 

.24185 

HHIH 

HHHI 



I30UGLAS AIRCRAFT COIfRAMY 
LoliS 3CACH axiasioi< 



test C*SE BELERSE 

2.0 


2-BOnv 






HH Z 17« 

. 

8* = 

.0000000 


.000 COO 0 





THET* = 
*E = 

.o^Doaoo 

.00 DODO 0 

80OK = 
rr = 

.3000000 

.0000000 

AODT = 

.0000300 





CURVED 

> EU:NENISIIGCanF=01 

PIECEUISE 

-P8RAB0LIC 

SOURCE DERSITlESliSTSF 

-Ql INTERN9LLT-COMPU7ED ELEMENT CURVATURES! 1CUR*N=0J 

KU VELOClfV formulae ARE USED. 


0 h - a 0 b V c 

*«*UMTRANSFORMEO*** 

OOROINA TES 
#9* IRANSFORnCO 








X 

T 

, * 

Y 

* C.l>. 

T C.P. 

DELTA 5 

SUNOS 

0 ALPHA 

CURVATURE 

it 

3.9ai«8 

5.11882 

3.90598 

5.11882 

3.7B49S 

5.10633 

.24236 

33.16015 

-.46619 

-.03510 

b2 

< 3.bbV3T 

5.09935 

3.66937 

5.09435 

3.54393 

S.082R9 

.29295 

• 33.40250 

-.50957 

-.03815 

6S 

3.VZ29S 

5.07198 

3.92245 

5.0719B 

3.30107 

5.06163 

.29364 

33.64545 

-.55362 

-.04123 

64 

3.179GS 

- 5.05188 

3.1796S 

6.05188" 

3.C5777 

5.0427*5 

.24943 

33.88909 

-.59854 

-.044 34 

6S 

2.93S8S 

i.03927 

2.93585 

5.03927 

2.81393 

5.02645 

.29539 

34.13352 

-.64927 

- J34746 

i'i 

2.t90^T 

■Hi 

2.69097 

5.01939 

2.55799 

Sjn29S 

.29638 

34.37866 

-.69095 

-J)5059 

i7 

2.«9«as 

5.0D732 

2.94988 

5.00732 

2.32119 

s.no2*ir 

.29757 

34,62524 

-.73842 

-.D53T4 

bO 

77T57W“ 

9.99B9J 

2, !97*B 

4.59553 

2.07306 

4 .99522 

.24891 

34.87280 

-.78702 

-.05688 

iV 

3.79Sb3 ' 

9.V929U 

1.99863 

4.99~29o 

1.82332 

4 .99120 

.25064 

35.12171 

-.83685 

-.09546 

“ TO ■ 

l.i'9S09 

msm 

ir6980'3 

4.9911)0' 

1.61229 

9.99238 

.17159 

35.37236 

358.11524 

-.215 62 

. 7l 

mm 

n. 99534 

mum 

mmii 

1.99511 

5J0D47 

.16317 

35.54389 

-2.86063 

-.30320 

■ '72 

l«36J8A 


1.36369 

5.00760 

1.28673 

5.01628 

.15519 

35.70706 

-2.81035 

-.31620 

>3 

1.20986 

5.02684 

1.20986 

5.02684 

1.13701 

5.03867 

.14762 

35.86225 

-2.31957 

-.33590 

7V 

1.06bbS 

5.05231 

1.0699S 

5.05231 

.99582 

5.06 699 

.14043 

36.00986 

-2.86959 

-.36306 

75~ 

.9Z75S 

5.38393 

.92755 

S.38343 

.86302 

5.10074 

.13363 

36.15029 

-2.97599 

-.39898 

76 

.79897 

5.11976 

.79897 

5.11976 

.73852 

5.13953 

.12721 

36.28393 

-3.13825 

-.44565 

T7 

.67865 

5.16101 

.67865 

5.16101 

.62224 

5.18312 

.12118 

36.41114 

-3.36526 

->5 0594 

78 

.56659 

5.20695 

.56659 

5.20695 

.51919 

5.23135 

.11553 

36.53231 

-3,67092 

-.58351 

79 

.96268 

5.2575D 

.96268 

5, 25 750 

.41540 

5.23363 

.1C8C9 

36.64785 

-4.D2910 

-.68337 

SD 

.36912 

5.31199 

i 369 12 

5.31149 

.32623 

5.33963 

.10261 

36,75589 

-9,43019 

-,31072 





303 - 


PoreNTliL FLOV - FODF RFLFASC 2 


cooCL*s eiscRAFT cu«p;tjy 

LOMC BEACH 3IVISION 

TEST CASE RELEASE 2.3 2-PODt 

KK - 174 HA = .DODCDOa HY =_ _ .BD3E300 

THETA = .ODOD33D ftuSX = .TDD32CO ADDY = .□0nC33Q ~ 

*E = .OCOniJDC YE _= .OQOQQDp 

CUBWED ELEHEnTSIICEOMF=0» PTEcruISE-PAPAEOLIC source DENSIT IES I ISIGF: 
NEB velocity formulae ABE USED. 



6 N - B 

0 0 Y C 

0 0 R 0 1 N A 

t E S 

. ^ -V. 




s«9UNTPAHSF0RHED#»# 

**• TRANSFORBEO 




X 

T 

X 

Y 

X C^P. 

u 

ei 

.20454 

5.36954, 

. 28454 

'5.36 954 

- - — 

- - - - 

32 

.2(3945 

S.431S2 

.20945 

5.43 fS2 

.24626 

5^39964 






.17611 

5.46349 

63 

•14455 

5.49722 

.14455 

5.49722 








.11768 

5-52944 

e*i 

.<39277 

S.S6321 

.09277 

5.56 321 



85 

;£]S172 

5.632C5 

.05172' 

5.63'205 

__ j^olipA 

5.59693 






.03566 

S.&&694 

86 

.(32227 

S.7C29S 

.02227 

5.73 295 








.01221 

5.73847 

07 

.00503 

5.774 68 

.00503 

5.77468 



86 

.ascoa 

■ 5.84050' 

^ .cooOo' 

« 

5.84000 

-?.310|_ 

5 .83722 






.03270 

5.07436 

B9 

.□1G25 

5 .96800 

.01025 

5.90800 

.02326 

5.93735 

90 

.C4037 

5. 96453 

.04337 

5.96453 



51 

' .08124" 

6.30927 

.08124 

6.03927 

.05969 

5.98 791, 






.10216 

6.02710 

92 

.12412 

6.04363 

. 12412 

6.04363 








.14919 

6.36354 

93 

. I 7501 

6.07623 

. 175CI 

6.07628 








.20383 

6.09229 

94 

.2332f 

6.10725 

.23321 

6.10725 

.26558 

6.1224 6 

95 

.29837 

6.13672 

.298 37 

6.13 672 








.33424 

5.15124 

96 

•37C44 

6,16491 

.37044 

6.16491 








•na9a5 

6.17834 

97 

.44952 

6.l9i98 

. J1495Z 

6.19198 








.49259 

6.23540 

98 

.53586 

6.21009 

.53588 

6.21809 








.56278 

6.23 1C4 

99 

.62987 

6.24331 

.62987 

6.24331 








.68083 

6.25 584 

lao 

.73194 

6.26771 

.73194 

6.26771 








.73719 

6.27983 


DATE OS3J77 




~3oV~ 


POIENTIiL' FLOW - COOF RCLEASE 2 

" - oouriis' AfRCRAFT co«P»1ir‘ 

LONG BEACH DIVISION 


DATE D53I77 



TEST CASS PFLCASE 2.0 


2-BOOT 


NK - :7*i HK = .aoDDDOo .ooacooo 

THETA = .ODCOOOD ADD* " ..ODaDDOd" ADOT = ‘ .DOOrDOQ 

XE - .□□OOODO »E = .DGCDOOD 


CURVED ELEMENTS I IGEOMF^O I pIECEWISE-PARABOLIC SOURCE DEMSIT_IESy SIGF=OI INTERNALLY-COMPUTED ELEMEWT CURVATMBEST ICU«VW=Di 

NCR VELOCITT FORMULAE ARE USED. ' ' 



0 N - B 0 D f C 

e*«UHTRAHSF0RMFD«** 

0 0 R 0 i H A" T E S 
*6* Transformed #»» 








X" ■■ 

f 

X 

T 

X C.P. 

T C.P. 

delta S 

SUMOS 

0 ALPHA 

CURVATURE 

101 

.8N2S8 

6.29110 

. 89256 

6,29130 

.93292 

6 .30 30 1 

.12199 

38.99226 

-1.27592 

-.17991 

102 

.96236 

6.3 m 07' 

.96236 

6.31907 

1.02712 

6.32539 

.13143 

38.56920 

-1.17266 

-.15030 

ICI 

1.C9197 

6.33S97 

1.09197 

6.33597 

1.16196 

6.39 676 

.19163 

38.69563 

-1.09393 

-.13110 

1 ON 

1.232CN 

6.356B9 

1.23209 

6.3S689 

1-30767 

6.36713 

.15263 

36.83726 

-1.03615 

-.1161B 

IQS 

i'.3833S 

6.37671 

1.36 3 36 

6;37671 

1.96505 

6.36 631 

.16996 

38.98989 

-.99750 

-.10980 

IS^ 

1.EN679' 

6.39S21 

1.59679 

6.39521 

1.63996 

6.90906 

.17721 

39.15935 

-.97892 

-.09655 

IDT 

1.72319 

6.N121S 

1,72319 

6.91215 

1.PI839 

6.92005 

.19095 

39.33156 

-.9B3I5 

-.09192 

lOO 

1.9135S' 

6.N271S 

1.91355 

6.92713 

2.3162C 

6.93385 

.23579 

39,52251 

-1 ,0X899 

-.090 13 

109 

2.11691 

6.93962 

2.11B9J 

6.93962 

2.22963 

6.94980 

.22169 

39.72825 

-1.10999 

-.09678 

110 

2.3NENd' 

6.49679 

2.39093 

6.M^a79 

2,96069 

6.95151 

.29069 

39.99999 

-1,36908 

-.08516 

113 

2.SB1CQ 

6.953r0 

2 .Ssiai ■ 

6.95100 

2.71000 

6.95300 

.25800 

40.19058 

-1.D0222 

.00000 

112 

2,83900 

6.9S3PD 

2.83900 

6,95300 

2.96800 

6.9S30D 

.25800 

90.99858 

.00000 

.00000 

111 

i.rviqo ■ 

6.9 5370 

3.09700 

6,95300 

3.22233 

6.95300 

.25833 

90.70658 

.00030 

.00000 

UN 

3.35ED0 

6.95300 

3.35500 

6.95300 

3.98900 

6.95300 

.25800 

90.96958 

.00000 

.00000 

ilS 

3.6I3DD 

6.953C0 

3. 61300 

6.95300 

3.79200 

6.9 5300 

.25800 

91.22258 

.00000 

.00000 

116 

3.B71C.0 

6.9S3P0 

3.37100 

'6.95300 

9.00000 

6.95 3C0 

.25800 

91 .98058 

.00000 

.00000 

117 

N.1250D 

6.95300 

9 .12903 

6.95300 

9,25800 

6.95300 

.25800 

91.73858 

.00000 

.00000 

US 

«. 16700 ' 

6.953tO 

9.36700 

6.95300 

9.51633 

6.95300 

.25833 

91.99658 

.00003 

.00000 

1 19 

N.&NSdd 

6.953C0 

9 .69503 

6.95300 

9 .77900 

6.95300 

.25800 

92.25958 

.00000 

.00000 

120 

4.9C3D0 

6.953C0 

' 9. .90300 

6.45300 

5.03200 

6 .95300 

.25800 

92.51258 

.00000 

.00000 



date: D5317T 


“ 3oS'~ 


PpTCfniflU FLOW - fodf release 7 


DOUrLAS AIRCRAFT C0HP4KY 

LTOS BFACM 31 Vision 

TEST CASE RELEASE 2.G 2-?OD V 

n>; = 174 MX =: .3O30~DO HY = .cor^DC _ _ 

IHFiA = .CDQPECD A03X = .RQPSCD3 ADDY - .COCCODC 

XF - .SDD-03C YE i .’’ODCDC? 

CURVED ELEHCKTSCIOEOMFrO) R 1 ECEUISE-RARA5 OLIC SOURCE DENSIT ITS 1 1SIGF=DJ IMTERKALLY-COMPUJEO ELEHENT CURVATURES «1CL'RVN=3) 

NEW VELOCITY FORMULAE ARF USED. 

on-body coordinates ' 

s«:sUNTfiANSFORHrp=A=»^r TRANSFORMED as<= _ 



X 

Y 

y. 

Y 

* P * 

V C. P. 

DELTA S 

SUHDS 

Q ALPHA 

CURVATURE 

121 

E.161DC 

6.4S3CC 

5. 1610D 

6.453C0 





• 







5.290SQ 

5.45 233 ’ 

.2=sao 

42.775SE 

.00003 

.DCQ3Q 

122 

5.4 l^uO 

. 6«4533C 

5.41903 

6.45330 











S.54POO 

6.453CC 


43.C28S8 

.SDOOQ 

.COOSQ 

123 

5.677EQ 

6.453C0 

5,67733 

6.45 300 

5.0"6OO 

6.4S3CC 

.25803 

43,28658 

.OCCCO 

.3CQC0 

124 

5.93503 

i,453C3 

5.93530 

6.45330 ■ 

6.0E40D 

5.45333 

.25527 

43.54458 

.00200 

.CCOCQ 

125 

6.19 3d() 

6.4S3CD 

6. 19300 

6.45330 








6.4 5300 



0.32233 

6.45300 

.25600 

43.83258 

,0.0000.. 

.00000 

126 

6.4 5103 

6.45100 

6.45330 











6,56000 

S.453C0 

.25600 

44.06058 

.00300 

.ococo 

127 

6.73930 

6.45333 

. 5.70900 

&.453C0 





* 







6.6380" 

6.4S3CC 

.25500 

44.31857 

.03000 

.OCDOD 

123 

6.967C0 

6.45303 

5.967C0 

6.453D0 












7.39600 

6 .4530C* 

.25600 

44.57657 

.00000 

.DCOOO 

127 

7.22550 

6.4S3CC 

7.22503 

6.4 53ca 












7.35400 

6.4 5 30C 

.25803 

44.83457 

.00000 

.OCODD 

133 

7.463GO 

6.453C0 

7 .48330 

6.45330 

7.61200 

6.4530D 

.25803 

45.09257 

* a/0 La03 

.OCCCO 

131 

7.74100 

6.45300 

7.74 130 

6.4S3C0 

7.B70CD 

6.45330 

.25800 

45.35DS7 

.30000 

.00030 

132 

7.99900 

6.45330 

7.99900 

6.45330 

B.12S00 

6.45 300 

,25800 

45.60657 

.00000 

.00000 

133 

R.2S7D0 

6.4 53 3C 

3. 25700 

6.4S300 

8.38630 

6. 4 5300 

.25803 

45.86657 

.roooD 

.30000 

134 

B. si 503 

6.4S3f L 

3.51503 

6.45330 












S. 641130 

6.4 533C 

.25800 

46.12457 

.PPoaiJ 

.ocooo 

135 

F. 77300 

6.453C0 

E. 773CQ 

6.4530C 











3.R32C3 

6.45300 

.25803 

46.3E2S7 

.03000 

.occoo 

136 

9.051QO 

6.45330 

9.C3130 

6.45300 

9.16300 

6 .45333 

.25800 

46.64057 

•ODCOD 

.20000 

137 

9.2890D 

6.45303 

9.28903 

6.45300 









« 



9.418Q0 

6.45300 

.25800 

46.89857 

.cocoo 

.occoo 

13B 

9.54700 

6.4 5330 

9.54703 

6.453C0 

9.676CD 

6.453SC 

.25PD0 

47,15657 

_ .OQCD!) 

.00330 

139 

9. fit, 500 

6.4S3CC 

9.e05DD 

6.45330 












9,93430 

6.4530C 

.25833 

.-4T-4JL45X _ 

■00300 

.00000 

140 

10.06300 

6.45300 

1C. 36330 

6.453D0 

10.19200 

6.4 5 3DC 

.25303 

47.67257 

«QyGPP 

.ccooo 


.CCOOO 



-3oG 


PCIENTjet. FLOU - EODF RFLCASE Z ~ “d*TE C53177 

■ ■ OOUC-LAS SIRCRAFT COPPftKY ' “ ^ ‘ 

long bf&ch division 


TEST «SE RELEASE 2.3 2-90DV 1_ 

NH = n* = .DcoccEo «v = .coDcano 

THETA = ' .DDCOOGO ADDX = .3DCODDD ADDT = .0000000 

*E = _ .QQOQCCO VE = .OOOOCDO _ __ 

curved ELEHLNTSnGF0MF=0) PI ECCWISC-P APABOLIC SOURCE OENS|TIES:iSIGF=ni INTERNALLY -COMPUTED CLEMENT CURVATURES C ICOBVNZO I 

NEW VELOCITY formulae ARE USED. 



O' li - a 

0 »J Y C 

0 0 R D 1 N 

A T C 5 




' 




AUNT RANSFOR MED* PO 

»** transformed *0* 








X 

Y 

X 

T ' 

X c.p. 

t C.P. 

delta S 

SUMOS 

D ALPHA 

CliPWATUBE 

lAl 

I0.321CQ 

6. 0 5 3 CO 

13.32100 

6.0530D 












13.05300 

6.05300 

.25833 

07.93C57 

.OOCDO 

.000 CO 

1A2 

1C.57R0O 

6.053CU 

13, 57900 

6.0S3DD 












12. 70800 

6.053DD 

.25800 

'06.18057 

.OQCDD 

.20000 

1V3 

1C.B37C0 

6.053CO 

10.BS7DO 

6.05300 












10.96600 

6.0S3DD 

-.258311 

08.00657 

.COCOD 

.00000 

IN') 

ll,C950fi 

6.053CC 

11 .C95D3 

6.053C0 












11.22000 

6.053CO 

.25602 

O0.7COS7 

.00000 

.20000 

1V5 

ll,353d3 

6, 05300 

11.353D3 

6.05300 












U.062CO 

6.053DC 

•25BE3 

08.96257 

.DODOD 

.COOOD 

1R6 

a 

o 

4) 

» 

6.053CO 

11 . 61100 

5.0530Q 












11.70300 

6.05300 

.25833 

09.22057 

.03003 

.20000 

1V7 

ll.S69Ca 

5.0 5300 

11. G600C 

6.05300 












12. ■32360 

6.0530C 

.30963 

09.07857 

.00C03 

.00000 

iRS 

12.17960 

6.053CL 

12. 170 60 

6.053CQ 












12.36036 

6.0 530a 

,37152 

09.78817 

.ccooo 

.ocooo 

1V9 

12.55D12 

6 5 3 Cv 

12.55012 

6.05300 












12.77303 

6.05330 

.00582 

50.15969 

.32000 

.00000 

153 

12.99E9A 

6.053C0 

12.99590 

6.053CC 












13.25300 

6.053CC 

.53090 

S2. 60552 

.03330 

.OOCDD 

151 

13.53D93 

6.05303 

13.5'3C93 

6 .0S3DD 













13.05195 

6.0S30C 

.60199 

Sl.lOCSl 

.02000 

.0CD-3D 

152 

10.17292 

6.05333 

10.17292 

5.05330 












10.55011 

6 .05 3ca 

.77038 

51 .78209 

.OOOOD 

.3CQ00 

153 

10.90330 

6.0 53TC 

10 . 90330 

6.053CD 












15.00553 

6.053CD 

.92006 

52 .5 528 S 

.DDOQD 

-OCDCO 

ISV 

15.06776 

6.0 5300 

15.06775 

S.053ED 












16.37107 

6.053C0 

I.C3661 

53.07730 

.30000 

.OCOOO 

1S5 

16.87038 

6.05300 

15.07036 

fc.453r3 

- 











, 17.3776? 

6,0 5300 

i.crssi 

50.09395 

.33003 

.SCOGC 

1S6 

1 7.SSE99 

6.^5300 

17.PSC99 

6.0 533(3 












10 .38029 

6.05 320 

.1 aCnSb 1 

SS. 09056 

.22030 

.OCCOQ 

157 

16.E876C 

6.05333 

Ifi. 08763 

6.053CO 












19.39093 

6.053CC 

1 .20661 

56.09717 

.3C20D 

.OCOOO 

isa 

19.B9021 

6.0 55 ’’0 

19.89021 

6.05 3:a 












20.39752 

6*453Ctr 

1.GC66I 

57.SD376 

.30000 


159 

2C.9CC62 

6.053C3 

23.93082 

6.053rC 












21.0C013 

6.45 3CC 

1.0CS61 

58.51039 

.00000 

.22000 

ISO 

21.9L703 

6***53rC 

21.90703 

6.0‘^3CO 












22.01370 

6.0533C 

1.3C661 

S9.517D1 

-33LD3 

.ocooo 



~ 30 7 


POTFNTICl FLOU - COOF RCLFASE 2 ’ DATE 053177 


OOUfLAS flISCRAFT COKPANT 
LONG BEACH DIVISICN 


TEST CASE RFLEASE 2.0 2-6007 

NS’ = 17A _ N* r .OQOCCOp HT = .COOSIOD 

THEtA = . 0300303 AODX = ' .3000300 ' ADDT = .Q0QE30C 

xr = .coGDaoo te = .3000000 


CURVED ELFHEUTSMGEOHF-D 1 PlECrwiSE-PARABOLIC SOURCE DENSITIES! IS1G£=0> INTERNALLY-COMPUTED CLEMENT CUHVATUBCSt ICUPWN=OT 

H£V VELOCITY FORMULAE ARE USED. 


0 N - B 0 D Y - C O OR D I HA T E S 
AAAUNIDAHSFORKED«*e PPP 7BANSF0RHCD PP* 



X 

Y 

X 

Y 

X C.P. 

Y C.P. 

DELTA S 

SUMDS 

0 ALPHA 

CURVATURE 

IGl 

22,91«i05 

6.953C0 

22.91905 

6.95300 

23.9173S 

6.95300 

1.0D661 

60.52362 

.00000 

.00000 

162 

23.92C66 

6.9 53C0 

23.92066 

6.453PQ 

29.92396 

6.95300 

1.00661 

61.53023 

.00000 

.00000 

163 

29.92727 

6.953PQ 

29.92727 

6.95300 

25.93358 

6. 9 5300 

I.3D661 

62.53689 

.00000 

.00000 

16M 

i6r 

25*93388 

2'6i9N'C<t9~' 

6.9 53 30 
~ 6.9S33C' 

25.93388 

6.9S3CD 

26.93719 

6.9S300 

1.00661 

63.59395 

.00000 

.00000 

26.99099 

6.9S300 

27.99380 

6.95300 

I. 00661 

69.55006 

.00000 

.00000 


27.9 9710 


166 

6.9S33S 

27.99710 

6.95300 

28.95091 

6.9 5300 

1.00661 

65.55668 

.00000 

.ocooo 


167 

28.95372 
2 9^96C53~ 

6.4S3rC 
■ '"6V9S3CG 

23.95372 

6.9530D 

29.95702 

6 .95300 

1.00661 

66.56329 

.00000 

.00000 

16B 

f?. 96035 

6.95300 

30.96363 

6.95300 

1.30661 

67.56990 

.00000 

.00000 



169 

3C. 96699 
31.9 7355 

6.95300 

30.96699 

6.9S3CD 

31.97025 



66.57651 

.00000 

.00000 

170 

6.95300 

31 .97355 

6,95300 












32.97686 

6.95300 

1.00661 

69,58312 

.00000 

.ooono 

171 

32.98016 

6,95330 

32.98016 

6.953C0 

33.48397 

6 .95300 

1.D0661 

70.58973 

.DOQOD 

.00000 

172 

33.98678 

39;99339 

6.9 53CD 

33.98678 

6.9S3C0 

39.99008 

6.95300 

1.C066I 

71.59635 

.00000 

.00000 

173 

6*95300 

39.99339 

6.95300 

35.99669 

6.95300 

1.00661 

72.60296 

.00000 

.00000 


179 

36.C0CC0 

6.95330 

36. COOOO 

6.95300 









~?oS- 


POTENTIfiL ElOV - EdDF RCLEASE 2 

pOUE-LiS ftlFiCRrFt COHPBHY 
LOMG 6FACH OIVISIOM 

irST case RELEASE 2 .p 

KR = 9P KX = ,0000000 _ KY = 

theta' = .GOODbOO ADDX = .ODDQObd ‘ AOOy"= 

XE = .D3DOODQ YE = .DODpbQC 

OFF - BODY COQROl MATES 


R««UNTPAf<SF0HHrD«P9 S4* 7RANSF0R1E0 «** 



X ■ 

Y 

X 

’ Y 

1 

-.EOCDd 

.3C0CC 

-.S00C3 

.00000 

2 

-.5LC00 

.77.222 

-.50000 

.72222 

2 

-,5CEOO 

l.RRRRR 

-.50000 

1 .99 999 

R 

-.5CCOO 

2,16667 

saobo" 

2.16667 

s 

-.5OCC0 

2.88889 

-.SDCOb 

2.B88B9 

6 

-.SCCOb 

3.61111 

-.Sbobb 

3.61111 

7 

-,5uEC0 

R, 33333 

-.50000 

9,33333 

B 

-.56GC0 

S.bSSSfa 

^.50000 

5 .05 556 

9 

-.52000 

S. 77778 

-.53003 

5.77 778 

1C 

-.SOCOb 

6.50000 

-.soobo 

6.SGObO 

11 

.nccoD 

.OOOCO 

.CQ3Q3 

.03000 

12 

,00000 

.61111 

.G0CC3 

.61111 

IS 

.CCGCO 

1.22222 

.03000 

1,22222 

IR 

.00000 

1.83333' 

.C3003 

1.83333 

15 

•DCCOO 

t.4<>RRR 

.GO 000 

2.99 999 

16 

.DCC-03 

3.555S6 

.r.0303 

3,35556 

17 

.OOL'DO 

3.66 667 - 

.COOOS 

3,56667 

13 

.oocco 

R.2777B 

.COOOQ 

9-27778 

19 

-bccoo 

9.88889 

.C3C33 

9 .88889 

20 

.bocco 

5.SCDC0 

. roocD 

5 .50000 

21 

.50000 

.OOOCC 

.50003 

.00000 

22 

.SCCOb 

.56922 

.50000 

.56922 

23 

.5CCCD 

• 1.13893 

.50000 

1.13393 

29 

.5CC00 

1 .73765 

.53303 

1.70765 

25 

.5CCGD 

2.27686 

.50000 

2.27686 

26 

.50003 

2.896C8 

.50003 

2.89608 

27 

.50C00 

3.R1530 

.50000 

3.91 530 

28 

.sccoo 

3.9SR51 

. 50000 

3.96951 

29 

.5LC03 

9 .55373 

. 53303 

9.5S3T3 

3b 

.50000 

5.12299 

.50000 

5.12299 

31 

i.aocao 

.OOOCb 

1 . C3000 

.00000 

32 

i.Doroo 

.59730 

1.CD003 

.59733 

33 

i.bucoo 

1.0996G 

1 .CGOOO 

1.09960 

3R 

i.DuCca 

1 .69139 

1-C3CD3 

1.69189 

35 

l.OGCbO 

2. 16919 

1 .CCDOG 

2.18919 

36 

1 » G 0 GOO 

2.73699 

1 .CO ODD 

2.73699 

37 

l.bOCDO 

3 .28379 

^ .03003 

3.26379 

33 

1. DOGGO 

3.83109 

) . GD0D3 

3.B31C9 

39 

l.bOGOD. 

9. .37838 

1 .GOO 00 

9 .3.7338 

9b 

UDcrob 

9 .92568 

1 .000,03 

9 .92568 


DATE PS3177 


2-B0pY_ 


.OODCJ OO 

.0000000 





POTCNTISL FLO’- - TOD F RELEASF 2 

DOUCLAS ATBCPAFT COHPANY 
LOMC OrACH DIVISION 

TEST CASE release 2.C 

NN = 9D “X = .DD0C3G0 MV = 

theta r .EDDOOCa AODX = .GDOOpSC AOOY “ 

XE : .CjEODDC YE = .rDDDSCC 

OFF-BOOT coordinates 


*«eUKTRANSFORHE0«** TRANSFORMED 



X 

Y 

X 

Y 

41 

i.scroj 

.30CCC 

1.E33C3 

.C3QC3 

42 

l.SGCQO 

.53707 

1.53Q00 

.53727 

43 

I.5CCCQ 

1.07414 

1 .53000 

1 .07414 

M4 

1.50CG0 

1.61 122 

1.530D3 

1.61122 

45 

1.5 DECO 

2.14829 

1.50003 

2.14629 


i.5EC03 

2.6B536 

1. 50303 

2.58536 

47 

l.SCCCD 

3.22243 

1.50200 

3.22243 

48 

i.socoo 

3.759,51 

I . 50COO 

3.75951 

49 

i.sooaa 

4 ,29653 

1.S00Q3 

4 .29658 

SO* 

l.SOCQO 

4.8'3365 

1.50000 

4,83365 

51 

1.69800 

.00300 

1 . 69.403 

« CO c ««c 

S2 

i. 69803 

.53550 

1. 69803 

.53553 

S3 

1.69800 

1 .07099 

I .69803 

1 .07299 

54 

1.69800 

1.60649 

1 . 69P03 

1 .60649 

55 

1.69800 

2.14199 

1 . 69 803 

2.14199 

56 

1.69800 

2.67749 

1.69803 

2 .57749 

57 

1.69BD3 

3.212*38 

1.69823 

3.21298 

58 

1.69800 

3.74848 

1.69800 

3.74848 

59 

l,b98Ua 

4.28398 

1 . 69800 

4 .28398 

60 

1.69803 

4,81947 

I , 69823 

4.81947 

61 

2.69800 

.00000 

2,69803 

.oobco 

62 

2.69BC0 

.53049 

2.69SC0 

,53049 

63 

2.6 98C3 

1 .36098 

2.69303 

1.06098 

64 

2.69800 

1 .59146 

2 .59803 

1 .59146 

65 

2.69800 

2.12195 ■ 

2 .69803 

2.12195 

66 

2.698CD 

2.65244 

2. 69 803 

2.65244 

67 

2.69800 

3'.18293 

2.69800 

3 .18293 

6B 

2.698C0 

3.71342 

2.69803 

3.71342 

69 

2.698CD 

4 .24391 

2.69800 

4.24 391 

70 

2.69800 

4,77439 

2.698G0 

4 .77439 

71 

3.69800 

.00000 

3. 69PD3 

.JOCCO 

72 

3.698CD 

.53948 

3. 69 BOO 

.53948 

73 

3.69803 

1.27895 

3. 69823 

1 ."7895 

74 

3.69800 

1.61843 

3.69802 

1.61843 

75 

3.69800 

2.15791 

3 .69800 

2.15791 

76 

3.69800 

2.6973S 

3. 69803 

2.69738 

77 

3.69BC0 

3.23686 

3 . 69800 

3 .23686 

7B 

3.69S03 

3.77634 

3.69823 

3.77634 

79 

3.69RC0 

4 .31581 

3.69800 

4.315BI 

80 

3.69800 

4.85529 

3 .69800 

4.BSS29 


DATE C53177 


2-BOO Y 

.C00E3DC 
.CQ2303 



- 3/0 


POTfcNTIit, FLOW - FODF RFLEiSt 2 

OOUfLAS ilBCPAFT COHPUNY 
LONG BCACH DIVISION 


ICST CASE RFLCASC 2.0 


NN - 

90 

NY 

r 

.CDOODCC 

HY 

THETA = 

.OjCQDCC 

ADDX 


, jDDjOUD 

AODY 

*E = 

.DDOQOOO 

YE 

“ 

•noonnoD 


0 r r 

“BODY C 

OOP 

0 I 

HATES 


»®*0NTPANSr0RHE0»e* 

4«« 



X 

Y 


X 

Y 



81 

I 1.60CD0 

2.G45S1 

I'l . &D00G 

2 . 69 58 1 

S2 

11.6DCC0 

2.99C98 

I1.6DDC3 

2.99098 

83 

11.600G0 

3.33519 

11.60002 

3.33519 

”3<l 

H.60C33 

3.67981 

11. 6QC21 

3.67981 

85 

il.6CD00 

9.02996 

11.60000 

9 .02998 

86 

n. 6 CD 0 D 

9.36919 

11.60000 

9.36919 

87 

.n.GCCoa 

9.713B1 

11.60Q03 

9.713B1 

88 

11.6l.CQ0 

5.05897 

11 .60DG0 

S.G5897 

89 

11.6CCQ0 

5.9D319 

11.60000 

5.90319 

90 

11.6CC0D 

5.79781 

11 .60000 

5.79781 

RENIND WAS ATTEMPTED ON A 

SWSIONT DEVICE - IGNORED 

1/0 

called at 

SEQUENCE 

HUNBER 033 

133 OF MATRl 


DATE 053177 


;-EOD Y 
• jCCCOCQ 

^cbcrDOG 



- 3 // 


potential flop - EOOF RELFASE 2 _ DATE 053177 

MAiniX FOHHAIIOM TOOK .ODD SECONOS 

ITHE NUfOLR OF TINES THAT SMALL ELEHEHT FOKKULAE HERE USED WAS H.l 

THE 221 X 221 MATRIX WITH 3 RIGHT SIDES WAS SOLVED DIRECTLY IN .3CD MINOIFS. 

THE 221 X 221 MATRIX WITH 1 RI GHT SIDES WAS SOLVED DIRECTLY IN .OCO .MINUTES. 



- 3 /^ - 


POTENT IftL FLOW - EODF RE EASE 2 

MATRIX preparation AND ALL SOLUTIONS TOOK ,jD3 SECONDS 


DATE 


GS317T 



- 3f3 


POTtNTIAL FLOU - EODF HELFaSE 2 

DOUFLtS iieCRRFT COFiPftKY 
LfiNG BFACH DIVISION 


DATE DS5177 


TEST CASE RELEASE ?. □ 2-GODV CASE MO. “FOCI PSF = 


ON-BODT UNIFORM AX ISTBHCTR 1 C FLOW 
TRANSFORKED COOBOIMATES 



X 

Y 

71 

CP 

STH A 

cos A 

SIG^A K 

PHI 

1 

a.oiiGoac 
■ 8.31523 85 

.“cooroo 

.1151-29 

.C977351 

.9959979 

.99792 

.07179 

-.1099161 .CCOCCCl 

.GODDDOO 

2 

B.Q2751‘I9 

3.09B257B 

.2296225 
,399 2699 

.2377792 

.9171531 

.97723 

.21217 

-.1019376 .OOnCDCl 

.0000003 

3 

e. 0769252 
8.1128790 

.9571968 

.5668563 

.9625719 

.7860272 

.93969 

' .392^6 

-.0975355 .0000031 

.0000000 


8.1558563 

8.205*7551 

.6739995 

.7786682 

.6150995 

.6216526 

.33 992 

. 9572 9 

-.0915971 .OSODCCP 

.3300000 

5 

8.2618982 

6,3290929 

.8ED19B2 

.9769353 

.799 1793 

,9961972 

•B3S99 

.5552“ 

-.0697398 .OOCODOl 

.0000300 

b 

8.3916585 

e.'9695996 

1.379 1090 
1.1662226 

. 8503139 

.2769663 

.76 626 

.69013 

”-^.3773369 .0000001 

.0000000 

7 1 

' 8.592033^ 

3.6291082 

■1 .2595890 
1.3397385 

.9356762 

.1295101 

.70919 

-71006 

-.C698976 *■ .SCOCOCl 

.3000000 

B . 

8.7C99922 
8.7 9679SC 

1 .9210927 
1 .9967289 

1.002159? 

-.0093291 

.69198 

.76719 

-.062'S8'65 ' ' .OCDOCOl 

.0000200 

■ 9„ 

3.3365939 
' 5.9802898' 

1.568828* 

1.63SJU92 

1 .0535091 

-.1098819 

158112 

.31382 

-.2556617 .OOnCPDl 

.2000030 

1C 

9.C769732 

9.1759719 

1.7C93962 
1.7676933 ' 

1.0933995 

-.1955225 

.52235 

.85273 

-.0989899 .OCDOOOC 

.CL -2300 

11 

9.2775625 
' 9.3319519 

I.E2757SI 

1.8896013 

1.1236995 

-.2627005 

.96596 

.88506 

-.0926115'’^' .ODDOOOC 

.0000200 

12 

9,9880913 

9.5965809 

1 .9382993 
i. 9890973 

1.1960566' 

-.3139956 

.9IC6D 

.91182 

-.0365291 .oifoOCOl 

.7C0C20D 

13 

9.7065265 
9.81 893SD 

2.C366617 

2.C813177 

1.1618156 

-.3998159 

.35762 

.93367 

-.oib^^s? ' ’ .cconooi 

.0000000 

1“ 

9.9315963 

1C.0962368 

2.1220321 

2.1619998 

1.1720195 

-.3736181 

,30639 

.95191 

-^22^1600' ~ .OOtOCtP 

.32 ?D030 

15 

1C. 1620110 
1 0. 279C79 1 

2.1970111 

2.2296982 

1.1773332 

-.33623li 

.25669 

.96699 

97937 .bob cool 

.ODQC003 

lb 

IO. 3969290 

IP. 51S871H 

2.2599033 

2.2362633 

1. 1793253 

-.3889506 

.20830 

•978C7 

~ D i 9 57 fi 000000 E 

.0000000 

n 

10.63593SC 

10.7558620 

2.3101971 

2.3313097 

lil798619 

-.3302993 

.16095 

.96696 

-.DC99339 .OOOOEOl 

.GOOGCOO 

18 

10,8767570 
"id.’ 9 98 3 19 7 

2.3995523 
2.369 9883 

1.1669785 

-.35SS'721 ” 

.11992 

.99393 

-.0093125 -.0000003 

.0300000 


1I.12C1990 

11.29"25621 

2.3775911 

2.3873996 

1.1517932 

-.3266272 

.06895 

.99765 

.0028719 -.SCQCacr 

.33DCD20 

2° 

11.3651180 

11,9880365 

2.39939SS 
2. 398 1811 

1.121 6099 

-.2579975 

.02279 

.99979 

.0C6271C .bccGoar 

.GOOOCOO 

21 

11.61C9999 
1 177385959 ■ 

2.6CQDOQO . 
2.9C3bCD3 

1 .'C33 1007 

-.1666179 

-ooooc 

l.CODCO 

.0081993 .tJCDQCOC 

.0000000 

22 

1 1.8660920 
■'12.01919 79 

2.9DOOCOO 

2.90DQD0D 

1.0993599 

-.0990981 

.□oooc 

1 . cocoa 

'.0C6‘rd96 ' .DOCOOCO 

.GOOOCOO 






- 3/V- 


P07ENTI4L FLOW - COOF 

RFLCASE 2 




... 

OOURLAS 

AIRCRAFT COMPaWt 




LONG 

BFACH DIVISION 



TEST CASE 

RELEASE 2.0 



QN- 

■BOOT UNlFORli A*ISTH«ETRiC FLOW 



transformed coobdihatcs 




'* 

7 

T1 

CP 

23 

12.1722029 

2.9000300 




12.355'a&99 

2.90000Q3 

1.0299292 

.0607438 

2 4 

12.5395360 

2.4030033 



' 

12.7599355 

2.9CQ0O00 

1.0153234 

.0329133 

25 

12.98C3350 

2.4030833 




13.2498145 

2.4200000 

1.CC63651 

.0127737 

26 

13.5092940 

2.9200003 




13.8256695 

2.>!C30I:33 

.9993673 

.0012649 

27 

19.199C450 

2.9000800 




14.52 48954 

2.4030003 

.9947837 

.3104054 

28 

14.9057450 

2.4033CC0 




15.'352767C 

2.40aCQQ3 

.9920695 

.015806*1 

29 

15.8197380 

2.4030C33 




15.3292929 

2.4000200 

.9906911 

.0185312 

33 

16.8237981 

2. 4030033 




17.3333035 

2.4CD0r00 

.9931055 

.0195911 

31 

17.B378091 

2.4C0-3CCD 




18.392^190 

2.4CD0C33 

.9398704 

,3231556 

32 

18.8958189 

2.4000000 




19.3513293 

2.4003033 

.9897757 

.0203991 

33 

.19.8558300 

2.4000CQD 




20.36C3354 

2.4D2G003 

.9397375 

.0209197 

34 

2-0.3598410 

2.4D3QC03 




21.3693459 

2.420CCliO 

.9897221 

.02C9 5D2 

35 

21.8733511 

2.4133033 




22.3783555 

2.4C0CFCC 

.9897159 

.0234624 

3b 

22.BB2B521 

2. 4000020 




23.3673670 

2.4030033 

. 9897139 

.3234574 

37 

23.8918719 

2.4030300 




24.3963773 

;.4O22"03 

.9897125 

.2204692 

38 

24.9008830 

2.92008D3 




25.4053879 

2.4000C03 

.9397122 

,0229698 

39 

25.9098930 

2.0230033 




26.4143984 

2.4300300 

-9897125 

.0209691 

4D 

26.9189341 

2.4230233 




27.4239090 

2.42D03D3 

.9897137 

.0209659 

41 

27.9279139 

2. 9 C CO 303 




ZE.*I32<)193 2-tiC3Sr!)3 .9897151 ,32“9539 

92 28.936929 9 Z.^COCDOD 

29.4919299 2.«ajOr:3 .9897292 .22D9459 

93 29.99593SC Z.^nCC^DS 

3C. 4509904 2.9D30ru3 .9697432 .3224364 

99 3C. 9599960 2.4C3033J 

31.9594519 2.433C'‘C“ 


9S979CI 


32C2156 


D8TE 053177 


lor case 

NO. PFOCl 

^■3F - 

--- 


SIN A 

COS A 

SIGMA 

s 

PHI 

•C92GC 

1. CO 000 

-ao'tssvv 

.coDcrop 

.0000000 

.00300 

1.00000 

.0635282 

.OCPCCDG 

.COGCODO 

.33030 

1.33333 

.0029042 

"" -33EC00Q 

.300C3QO 

.30600 

1.00003 

.0015157 

-.ocDocor 

.ODOCOOD 

.ooooa 

1.00030 

.0608558 

-.0000000 

.0006000 

.00000 

i.ccoao 

.00^4392 

.aCOQDCP 

.0000000 

.0Q3C0 

I.CGOOO 

.CCO'i996 

.0000000 

.0000000 

•^DijCO 

1.D3333 

.0030953 

.OOGCCLP 

.0003030 

.33000 

1.03003 

.0000365 

.3CCDCDP 

•OODOOOQ 

,00300 

l.OOODO 

.0000155 

-occcDor 

.OOOCCOO 

,00330 

l.CODCO 

.060005S 

. -3000003 

.0000000 

.03000 

l.’ODDOO 

,O00CQ27' 

.ocooncc 

-OODCDOO 

.37CEC 

1 

.3600311 

.030000'’ 

.3006030 

.33300 

1.C0033 

.0000005 

-0000003 

.0006000 

.33600 

1 , jCODP 

.OGC20D2 

~ .DCpOOOC 

.3000000 

.002CC 

1,00003 

-.ocooonc 

•osoococ 

.0300000 

.30000 

1*30000 

-.D0CG3O2 

• OC-OCODC 

.0000000 

-30000 

1-03003 

-,3320009 

.3D0GD-,H 

.03CC33D 

.03000 

1.03003 

-.OCPCOlO 

.0000000 

.0000300 

,30000 

1.30000 

-.3300023 

.ccpoouO 

.OGOOOOO 

-OOOEC 

1.30000 

-.0600052 

.0003333 

.0003003 

.3OC0C 

1.030QO 

-.0000113 

.OODOP33 

.3000000 



- 3/6 


POTENTIAL FLOU - CODF RELEASE 2 DATE D53177 


DOUCLAS AIRCRAFT COSPAKT 
LONG BEACH DIVISION 



TEST CASE 

RELEASE 7.Q 


2 

-BODY CASE NO. 'rFOCI 

PSF r 



ON- 

-BODY uniform axisykmetric flow 









TRANSFORMED COORDINATES 









X 

r 

Tl 

CP 

SIN A 

cos A 

SIGMA 

H 

PHI 

RS 

31.9639571 

2.903DC03 


■ 






4& 

32.9689620 

32.9729671 

2.9G303QD 

2.4C0D30J 

.9899097 

.0200887 

.OOOOC 

l.SOOOO 

-.0000238 

.0000000 

.0000300 

97 

33.9 779'71B 
33.9B1977C 

2.9030033 

2.9200000 

.9931768 

.3195500 

.30000 

1.03003 

-.□0004 73 

.3000 OGQ 

.□000000 

MB 

39.9B69B21 

39.99E987B 

2.9030033 

2.9O00t'0D 

.9937096 

.0183458 

.00000 

l.OODQO 

-.0000862 

-.0000000 

,0000000 

49 

35.9959939 

36.0QCCOOO 

2.9000200 

2.9033033 

.9920616 

.0158138 

.ODOQO 

I.GOOQO 

-.0001401 

-.DOOOOQD 

.OOOODOD 


Siioccbobc'*" ■ 

35.9959939 









sc 

6.G030CD3 

6.00QCOQO 

^.9865953 

.0266297 

.30000 

-1.00000 

.0055332 

-.DODDDOD 

.aOODODD 

51 

39.99C9878 
. 39.9669821 

6.0000000 

6.C0300Q3 

-.9866103 

.3226496 

.330CO 

-1.00033 

.3087381 

-,OODODDO 

.0000000 

52 

33.9819770 

33.9779718 

e.OCDOGbO 

6.CC30n33 

-.9893293 

.0212275 

.00000 

-l.DODOD 

.0114770 

-.0000000 

.0000000 

S3 

32.‘972967 1 
32.9689620 

6.0GGODOO 

6.COOGOOO 

-*9a95t 4 

.0207604 

.00000 

-l.ODODD 

.0140465 

-.ObOODDD 

.OOOOOOD 

59 

31.9639571 

31.9599519 

6.CC3DD33 
6. coca COD 

-.9B96528 

.0205873 

.OOCGO 

-1.00000 

.0165468 

-.0000000 

.0000000 

55 

3C. 9599963 
30.95G99D9 

6,r03DD03 

6.COOQCOO 

-.9896872 

.0205193 

.30000 

-1,00003 

.0190187 

-.0000000 

.□□□0030 

56 

29.995935D 

29.9919299 

6.CGOOOOO 

6.rc30Do: 

-.9897010 

.3234920 

.30000 

-1.00000 

.0214826 

-.0000 DDQ 

.OQOOOOO 

57 

28.9369299 

28.9324193 

6.EOGGOQO 

6.E03CD03 

-.9897066 

.0204808 

.30000 

-1.00000 

.0239507 

-.□ODDODD 

.0000000 

SB 

27.9279139 

27.9239090 

6 .CCOOGGO 
6 .OCOOGOO 

-.9897090 

.0204762 

.00000 

-1 .00000 

.0264316 

-.OOOODDD 

.ooooDon 

59 

26.91B909 1 
26.9 193989 

6.CC30C03 

6.CGOODOO 

-•9397098 

.0204744 

.00000 

-1.00000 

.0289318 

-.□OOOOOO 

.ODOODOn 

60 

25.9098930 

25.9053879 

6.CG30D33 

6.0COOGQO 

-.9897101 

.0204739 

.30000 

'1.00003 

.0314572 

-.ODOooon 

.0000000 

61 

24.90Ca83D 

29.3963773 

6 • uuo onbc 
6.C030C33 

-.9397099 

.3234743 

.30000 

-1.03033 

.0340132 

-.odoorod 

.0000000 

62 

23.8918719 

23.3873670 

6.CGOGGOO 

6.C£D0C0J 

-.9897092 

.0204756 

.00000 

-1 .OODDD 

.0366055 

-.OnODDOD 

.OOOODOD 

63 

22.8823621 

22.3783565 

6.0000000 
6.0000 GOO 

-.9897074 

.0204793 

.00000 

-l.OCOQO 

.0392402 

-.oGoonoc 

.OOOOOOD 

64 

21.8738511 

21i.3693959 

t. 0000033 
e.CCOOODD 

-.9397029 

.0204881 

.ooonn 

-l.-.QilQflg 

_.041923B 

-.nnoonop 

.OODOODD 


65 sb.eB'iBRlD t.CDDOEiBB 

2P.36D335‘1 B.DQQDOOa^ --9B9692JD .020 5397 

66 19.B55B30D 6.3CQDEb3 



DATE 05J177 


POTENTIAL FLOW - EODF RELEASE 2 

19. 351 32 'Tl" i'.CaDCaDD -.9896653* ."FzCSb?/ .30000 -l.DDODQ .DITAtTa -.0000000 


.9000000 
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POTENTIAL FLOW - PODF RELFASC 2 

DOUFLAS AIRCRAFT COf-PANY 
LONS etACH DIVISION 


ILST CASE RELEASE 2.0 2.-SonY CASE NO. BFQCl 


ON-BODV UNIFOPM AXISYNHEIRIC FLOW 
TBANSFORHEO COORDINATES 



X 

Y 

T1 

CP 

SIN A 

COS A 

67 

18. 3968139 
18.392319“ 

6.COOCODO 

6.ECOQ300 

-.9395995 

.0236929 

.30000 

-1.33333 

63 

17.S37SD91 

17,3333035 

6.2000303 

6.rcDa'‘jx 

-.9399367 

.3213153 

.33EEC 

-1.23333 

69 

16.8287961 

16.3292929 

6. Ol.DOO' 03 
6 .rODO'OD 

-.9390367 

.0216069 

.03000 

-l.COOQO 

7C 

15.61978SD 

15.362767P 

6.0000DCO 

6.3000000 

-.9831339 

,0235929 

.3CCCC 

-l.choCD 

71 

19,9057960 

19.5298959 

6 . FO 7 0-30 

6.rcco“co 

-.9959132 

•.026939'' 

.30000 

-i.cocsa 

72 

19.1990950 

13.6266695 

s.Ecooroo 

6.0000000 

-.9636181 

.0339959 

.33Q0C 

-1 .03033 

73 

13.539299C 

13*2998195 

6.0000000 

6.Cu3C003 

-.9795522 

.:909775 

.3D00C 

-1.223CD 

7«i 

12.98C335D 

12,7599355 

6.0000000 

6.0033033 

-.9791329 

.0510661 

.30000 

-1.20000 

75 

12.S39S36C 

12.3558699 

6,0030300 

6.EC22'03 

-*9673312 

.0692733 

.30000 

-1.30003 

76 

12.172ZC29 

12.0191979' 

6.0030033 

6.0CCCCOJ 

-.9589990 

f 

.3603213 

.00000 

-1. CO 003 

77 

11.666C92C 

11.7385959 

6.!;C30“33 

6.3000000 

-.9972911 

.1026395 

.33020 

-1.0D203 

TB 

11.61C9999 

11.9899260 

6 .'■ODODOO 
5.9993733 

-.9332533 

.1293995 

-.33 763 

-.99997 

79 

31.3588570 

11.2335916 

5.9900799 
5 .9957297 

-.9237669 

.1966557 

-.02232 

-.99975 

80 

11.1CF9960 

1D.989C175 

5.992.9832 

5.9389013 

-.9202657 

.1531110 

-.33613 

-.99935 

SI 

13.8596190 
ID. 7359110 

5.9339879 

5.9777992 

-.9157687 

.1558592 

-.39 926 

-.99380 

3 2 

1C. 6122910 
1C.98919D6 

5.9713367 

5.9691599 

-.9138913 

.1556383 

-.36119 

-.99313 

83 

10.3661890 

10.2937339 

5.9562637 

5.9977103 

-.9232995 

.1331903 

-.37239 

-.99733 

89 

10.1213320 

9.9999266 

5.93E991S 
5. 928 6 683 

-.9226090 

.1983018 

-.08283 

-.99656 

85 

9.8775721 

9.7561605 

5.9182321 
■ 5.9072913 

-.9257999 

,192909“ 

-.09296 

-.99572 

86 

9.6398013 

9.5138397 

S.S9S6BBB . 
5 .EB36297 

-.9297159 

.1356293 

-.10121 

-.99965 

87 

9.3929205 

5 .3710565 






5.2723523 

5.8580235 

-.9393003 

.1270830 

-.13990 

-.99933 

ee 

' 9.1518356 

9. 0 31 62 15 

5 .9995236 
5 .9336183 

-.9395105 

.1173200 

-.11673 

-.99316 


DATE C53177 


PSF = 


SICNA 


PHI 

.0503591 

-.DOCCDCO 

.3000000 

.3533991 

i-.aDCCDOO 

.ODDOODD 

.0569815 

'-^OCGODDO"’ 

.0000000 

.0596725 

-.OCQCCDC 

.3000000 

,0627325 

-.CCD3000 

.0000000 

.6656290 -*.'5dC0d60 

.3000000 

.26^9^59“ 

.DDOOOOC 

.0000000 

.0712358 

.3003000 

.0000000 

"I0795T39 

•DCDCOCC 

*DD000QO 

.0767737 

.0000002 

.0000000 

.0795931 

.0000002 

.OOOCDOO 

.263'7985^ 

" ODCDP3G 

.0000300 

.□8‘85712 

.OOCOCOl 

.0000000 

.0929526 

.000003 1 

.CODCOOO 

10956379 

^sdocooi 

.3000000 

.0980280 

.OGOGOOl 

.0000000 

.3997906 ” 

.3300 COI 

.0000000 

T1067968 ! 

.doODGOl 

.rooocoo 

Tl 012693 

.OOODGCl 

.0000000 

.10i2r79' 

.0000001 

.GODOOQO 

.1007306 

.0000 DO I 

.3300030 

.0996732 

.OCOCOOI 

.0000300 



PQTEHTI*L flow - EODF RELFASE 2 


DATE Q53I77 


DOUGLAS AIRCRAFT CORPANT 
LOME BEACH DIVISIOM 


TEST CASE release 2.0 - 2-BOOY CASE NO. PFOCi PSF= 


ON-BODY UNIFORM AXISYMMETRIC FLOW 
transformed COORDINATES 



X 

Y 

T 1 

CP 

SIN A 

COS A 

SICMA 

K 

PHI 

89 

e. 9119568 
3.7915591 

5 .81&272D 
5.8313623, 

-.9953287 

.1053536 

-.12 332 

-.99237 

.0987381 

.OCOCDC2 

.0000000 

90 

a.67169BQ 

8.SS2C6S5 

5.7869783 
S. 7713621 

-.9517562 

.0991601 

-.12918 

-.99162 

.0972887 

.D00CC31 

,0000000 

91 

P.9329759 
B. 3130736 

5.755319 9 
5.7392761 

-.9538013 

.38C73D1 

-.13932 

-.99C99 

.0956602 

.0000001 

.0000000 

92 

8.1937132 

8.D799991 

5.7229996 

5,7363711 

-.9669893 

.0659782 

-.13876 

-.9933T 

.0938586 

.D2CC002 

.3330000 

93 

7.9553225 

7.B362698 

5. 6895975 
5.6725139 

-.9798268 

.3997128 

-.19 250 

-.98979 

,0919123 

.0000001 

.0000000 

9H 

7.7172369 

7.5982999 

5.6552709 

5.6378598 

-.98385C2 

.0323388 

-.19 555 

-.98935 

.0898927 

■.■pCDOODl 

.rOOOODQ 

95 

7.9793769 

7.36D5196 

5 . SZr 278 1 
5.6125631 

-.9935728 

.3128131 

-.19 791 

-.98900 

.0876550 

.0000001 

.0000000 

96 

7.2916731 

7,1228507 

5.5897283 

5.5667923 

-1.C090C89 

-.3050339 

-.19956 

-.98875 

.0353898 

.OCOODOl 

.DOODGOD 

97 

7. '•090929 
6.F8S23C9 

5.5987792 

5.5306991 

-1.0151996 

-.3305258 

-.15058 

-.98863 

.□■83C,22D" ■■ ■ 

■ .ooobriii 

.3300000 

93 

6.7669229 

6.6975802 

5.5125053 

5.9999991 

-1-0273395 

-.3597383 

-.15C9D 

-.98855 

.0805707 

.0000001 

.0000000 

99 

6-5287375 

6.9C99339 

S. 9763030 
5.9531"81 

-3 , 0395717 

-.3907093 

-.15C59 

-.98860 

,0780313 

.OCDCOOI 

.0000000 

IQD 

. 6.2910579 
6.1722596 

5-M22ir53 

-l-rS27022 

-.1083715 

-.19950 

-.98876 

.0759326 

'.'cor’cnoi 

.ODOOOOO 

101 

6.0539399 

5.9396336 

5.9391839 

5.3863657 

-1 .0666169 

-.1376705 

-.19 779 

-.989C2 

.07268 70" 

.ocoenni 

.ODDCOOO 

132 

E.B1S6397 

5.6969698 

5.3636723 

S.3S1129S 

-1.0810003 

-.1685616 

-.19539 

-.98927 

.3698812 

.0000001 

.0300300 

103 

5.5783960 

5.9591755 

5.3337901 

5.3165385 

-1.0958819 

-.2339571 

-.19231 

-.98982 

.0669822 

.0000001 

.QOOCOOO 

109 

5.3902255 
S. 2211922 

5.2995917 
5 .2627659 

-1.1111377 

-.2397381 

-.13 853 

-.99036 

.0639873 

.OGCOOOl 

.0000000 

10 E 

5.1D21299 

9.98299C6 

5.2662359 
5 .2999653 

-1 .1268376 

-.2697629 

-.13926 

-.99097 

.0603953 

.0000001 

.0000000 

1D6 

9.8637178 

9.7993952 

5 ,2339833 
5. 2182993 

-1. 1927995 

-.3058699 

-.12889 

-.99166 

,0577055 

.'cocooot 

■ COCoCiOO 

10 7 

9.6299295 

9.5C53288 

5.2C29975 
S.1E7 9 33Q 

-1. 1 5881 61 

-.3928596 

--1233C 

-.99291 

.0599703 

.2000001 

.0300000 

IDS 

9.3856817 

9.2658126 

5.1732995 

5.1590393 

-1.1799613 

-.3825393 

-.11639 

-.99323 

.2 51D9 35 

.DOCCDCI 

.OOCDOOO 

109 

9.1958992 

9.D25719R 

5.1951995 

5.1317753 

-1.1910885 

-.9186917 

-.10905 

-,99909 

.0975833 

.0200001 

.0000300 

lie 

3.9CE9B93 

3.7899513 

5 .1188215 
S .1063317 

-1.2371 189 

-.9571399 

-.inC95 

-.99489 

.C99CS1S 

.0000001 

.0000000 



- 3 /^ 


POTCMllflL FLOW - rooF RELFASC 2 

DOUGLAS AIPCRAn COHPAHr" 
LONG BEACH DIVISION 


TEST CASE RELEASE 2.0 2 


OH-EODV UNIFOBH AKISYNMETR 1 C FLOW 
TPANSFORHEP COOPDINATES 

t r ' Ti ■ ■ zp 


111 3.&&N3663 5.C9H35A6 • 

■ ■ 3.EM3A3A6 S.Ca2aaS3 -l.Z229i'9N ‘ -.9957030 

112 3.9 229512 5.D7197B6 _ _ 

3.3D10736 S.b6162&6 -1.2386766 -.5393198 

113 3.1796957 5. 0518899 ___ 

3.0577727“" 5.0927973 " -1.2592202 " -.5733689 

119 ^ 2.9358520 5,C3927C5 

2".'ai'3931C 5,0269537" -1.2697780 -.6123361 

115 2.69G966F 5.0193937 

■2.5.6799 23 ' 5.0129986 -1.28 57 385 -.6531235 

116 _2.JI9988e5 5.0073232 

2;32Ti93S“ 5,0029620* '-1. 3029822 * -.6977626 

117 2,1979770 9.9989267 

" ■2.0730690 9.9952292 -I.32369D'8 " -.7520299 

118 . J.998631S 9,9929029 

" 1.8233219 ■ 9.9912Ci6‘ ' -1.3635262 ' -.'8510316 

119 1. 5986000 9.9910300 _ 

1.6122997 9. 9923773 ' -1.90725C7 ' -.9003596 

120 1.5265295 9.9953900 _ 

i; 99S"1099 5.3009653 -i.'93179Sl " * -1. 0998990 

121 1.36389ZD 5,5076025 

i;2867397 5.0162761 " -1.9338209 ' -1.0558923 

122 _ 1.2D93639 5 .0268385 _ 

■ 1.'137D129" 5.D38670B' -1. 9251088 ‘ -1.Q310990 

123 1.0699770 5.C523C51 _ 

V9958'i7n ■ 5.C669729 -1. 9376150’ -.9813830 

129 .9275536 5.0839 25 3 

.8630218 5.1637383 -1.3818800 -.9095929 

125 ^7989799 5.1197639 

■.73E52'C2 5.139531*9 -1.3977921 -.8165935 

126 _ .678_65D9 S.161Df;51_ _ _ 

.'6222992 5.1831179 -1.3095190 ' -.7017567 

127 .5665920 5.2069986 _ 

;5"i9ie59 V 5.2313510 ' -1.2509653’ -.563*6635 

128 .9626316 5.257S03S _ 

■ .9iS90'i9 5.2536321 -1^1839759 -.9317989 

129 .3691185 5 .3119873 , „ . 

■■".3262277 5.3396325 -1.1022068 -.2193598 

13C .2395938 5.3695360 _ 

■" .2962618 5.3996398 '-1.0005593 -.0011188 

131 .2099980 5_.931S221 

! 761CB3 5^9639883 ' -70735800 .2368579 

132 .1995518 5.9972162 _ 

.1176815 5.5299933 -.7108136 .9833070 





D*TE 053 17T 


POTENTIAL FLOU - tODFBELrASE 2 

‘ □dUGL*S' ATBCRftFT ' COMPJUir 

LONG BEACH DIVISION 


TEST case' RELEASE" ?.'3 ~ " 2-SOOT CASE NO. BFQCl PSF = 


ON-^ODT UNIFORH AXISYfi^FTB IC FL OU 
■ "TRANSFORHEO'cdOBbTHATES 



X ' 

Y 

T 1 ■ 

CP 

SIN A 

COS A 

SIGMA 

M 

PHI 

133 

• C927733 

5.5632098 








13*t 

.071CE93 
• D517239 

5.5969337 

5.6320962 

-.5323939 

.7165567 

.35388 

-.51218 

-.1092399 

-.0000001 

.0000000 

135 

.C356628 

.0222693 

S.66699MS 
5 .7029500 

-.3373881 

.9056969 

.92399 

-.38363 

-.1151189 

-.0000001 

.0000000 

I3G 

.0122057 

.CCED333 

5.7389 667’'" 
5.7796781 

-.0907090 

.9983928 

.97232 

-.23365 

-.1183271 

-.0000001 

.0000000 

137 

.D01G39S 

.rccooao 

5.6072299 

5.8930033 

.2501597 

.9379202 

.9970*» 

-.07683 

-.1160F71 

-.0000001 

.0000000 

138 

.0027027 

.0102965 

5-8793638 . 
5.9079982 

.6029925 

.6369001 

«98B644 

-.19931 

-.1038719 

-.Qoooaoi 

.0300000 

139 

.i323?S9^ 

.C9C36S1 

S.93'73?33 ** 
5.969S276 

.9533906 

,3967577 

.88 255 

.97322 

-.0770077 

-.0000002 

•DODOODD 

IRC 

.C596903 

.0812386 

5.98T9I99 

6.0092719 

1.1138361 

".2906338 

.73832 

.67995 

-.0556369 

-.0000001 

.0000000 

IRl 

.1021562 

.1291169 

6.0271011 

6.0936297 

1.1760308 

-.3830989 

.62532 

.78037 

-.0925999 

-.0000001 

.□OOOOOG 

1R2 

■-1691152 

.17ED10D 

67o60S999~ ■ 
6.0762823 

1.2019890 

-.M*l3553a 

'.S90Cb 

.89167 

-.0339068 

-.0000001 

.0000000 

193 

.2038299 

.2332099 

• 6.0922922 

6.1072999 

1 .2120775 

-.9691319 

.96979 

.88261 

-.0275121 

-.0000000 

.3000000 

19 9 

.2655795 

.2983796 

6.1229553 

6.1367220 

1.2196721 

-.9759282 

.91208 

.91115 

-.0228920 

-.0000000 

.ooobboo 

115 

,3392397 

.3709379 

6.1512396 
6 .1699070 

i.?131S^ “ 

-.9717537 

.36925 

.93130 

-.0199191 

-.0000000 

.OOGDOOO 

196 

.9098953 

.9995205 

6.178 8 353 
6. 1919833 

1.2095390 

-.9629895 

.32392 

.99609 

-.0169095 

-.0000000 

.0000000 

19 7 

.9925903 

.5358801 

6.2053987 

6.2130863 

J .2098752 

-.9517293 

.28933 

.95723 

-.0150696 

-.OODOOOQ 

.0000000 

19 8 

.5827839 

.6296728 

'6.2310933 

6.2933105 

1.1997396' 

-.9393752 

.25919 

.96583 

-.0137399 

-.0000000 

.0000000 

199 

.6BC825S 

.7319366 

6.2558919 
6 .2677103 

1.19999Q0 

-.9266868 

,23251 

.97259 

-.0127999 

.ocooooo 

.ooooc 

ISO 

.7871896 

.8925809 

6.2798339 

6,2913091 

1.1891969 

-.9190693 

,20855 

.97801 

-.0121797 

-.OODODOC 

.0000000 

151 

.?029l69 

.9623779 

6. 303 dost 
6.3190796 

’ i.l‘S'39967 

-.90E729B 

.18673 

.98291 

-.0117992 

-.0000000 

.0000000 

152 

I.C271180 

1.0919561 

6.3253913 

6.3359682 

1. I7BS786 

-.3897598 

.16659 

.98603 

-.0116067 

-.0000000 

.0000000 

153 

1. 161 9567 
1.232D99S 

6.3967551 

6.3568918 

1.1739998 

-.3781582 

.19773 

.98933 

-.0115676 

.oooooco 

.ocooooo 

is*i 

1.3016668 

1.3833770 

6.3671392 

6.376705*9 

1.1691399 

-.3668882 

.12982 

.99159 

-.0116357 

-.0000000 

.0000000 


i.96SG95'i 

6.3863122 

1 . 1699032 

-.3558399 

.11259 

-9936S 

-.0117698 

-.0000000 

.0000000 



DATE 253177 




POTENTIAL FLCV - EODF RELEASE 2 

DDOFlAS aircraft COfPAHY 
LRNC BFACH 01 VIST ON 


TCET CASE RELEASE 2.0 2-BOrY CASE NO. PFOCl PSF = 


OK-Saoy UNIFOBH AXISYMMETBIC FLOW 
IKAHSFORMED COORDINATES 



X 

t 

J1 

CP 

SIN A 

COS A 

SIGKA 


PHI 

ISS 

1.5967935 

1.63M9570 

6.3952 146 
6.4C4C36C 

1.1596463 


.09555 

.99542 

-.'01X9235 

-.0200003 

.0006000 

156 

1.723J93S 
1.81633 9 2 

6,4121470 
6.4200 526 

1.154746? 

-.3334388 

.07946 

.9969? 

-.0120423 

-.OCCDOO" 

.0000300 

157 

1.9135530 

2.016201*? 

6.4271276 

6.433849? 

1.1493931 

-.3211044 

.36271 

.99816 

-,Dl'2C4 87 

-.CCOODDC 

.CDOCODO 

15S 

2.1169107 

2,2296323 

6.43961S9 

6,4447969 

1.143C56C 

-.336577’’ 

.34 138 

%■ 

.99914 

-.3118322 

-.2350200 

.3300000 

1S9 

2.3**C*?03P 

2.<?6C69Q7 

6.4487913 

6.4S1SU7 

1.1296436 

-.2761754 

.31749 

.99985 

-.3109024 

-.ooocoor 

.COODDOD 

16 C 

2.5BlCCCr 

2.7iCd3Df' 

6.'4S3D30C 

6.4S30-3' 

1.1048596 

-.2227146 

.3030C 

l.CCOC?' ' '-.Cll'4493 

--3CD00Q1 

.CDQCOOa 

161 

2.e39Coor 
2. 9680000 

6-4530EC3 

6.4S3C303 

1 .0B2V74P 

-.I72S34*? 

.DDSrC 

1.C0D03 

-.0149746 

-.0000001 

.0000000 

162 

3.C9700DE 

3.226COOO' 

6.4530^33 

6.4536303 

1.0714438 

-.1479917 

» 0130 CC 

l.DOOCO 

-^0181945 

“ -.0300001 

.COOGCOO 

163 

3.3550330 
3. **839999 

6.4S30033 

6.4S303C3 

1.C629126 

-.1297832 

•3302C 

1.33333“ 

-.2213197 

-.20CCCS1 

.0300000 

16*1 

3,6129999 

3.7919999 

6.4530000 

6.4533003 

1.3562431 

-.1X56495 

.3300C 

l.naDJD 

-.3243465 

-.DOCO0J1 

.0000000 

16S 

3.S7C9999 

3.9999999 

6.4530000 

6.4533'’33 

1 .0533751 

-.1C42544 

•300SC 

i.coooo 

“ '-,027334 6 

-.OCCCOOl 

.OOOCOCD 

166 

4^1289999 

4*25T999B 

6 .4530303 
6. 4 S3 cod'd 

1,04 63384 

-.0990240 

.30000 

1.3DDC3 

”-.0302734 

-.ooroooi 

.2000300 

167 

*1.3869998 

9.5159998 

6.4530033 

S.453CE00 

1 .0425292 

-.3865671 

.03 CEO 

1-0D3DD 

-.0331563 

-.0000301 

.0000300 

16 B 

4.773999B 

6.4S30r33 

6.'453D9QD 

1,0392553 

-.0903515 

.03C3C 

I. 33033 ■ 

“-70362412 

-.3000001 

.3300030 

169 

9.9C29998 

S.031999B 

■ 6,4530000 
6.4530E33 

1 .3364582 

-.3741423 

.330C0 

*1 .33333 

-.3389649 

-.□CODDOl 

.COOCODO 

170 

E.16C9997 

5.2899997 

6.4532003 
6.05301 33 

1.2339083 

-.0689664 

•oaoac 

1.00003 

-l0418410 

-.0C0C002 

.5000000 

171 

5.*i 189997 
5.5*179996 

6.4530000 

6.4S30003 

1.0316951 

-.0643948 

.00030 

l.QDCCO 

-.0447120 

-.Q3DD0S2 

.0000000 

172 

5.6769996 
51805999 6 

6.4530333 

6.4530300 

1.0297217 

-.0603268 

.00000 

i.ocooo 

^'047379 1 

-.'ocoboci 

.2CQ0000 

173 

5.93*19996 

6.C63999S 

6.4530933 

6.4530003 

1.0279514 

-.2566840 

,33030 

1.30303' 

-7d^C44 27 

-.30CCC03 

.0300030 

179 

6.1929995 

6.3219995 

6.4530303 

6.tfS30P03 

1.0263546 

-.3534337 

.033C0 

1.03333 

-.GS33D19 

-Jo 300 CO’ 

.0000300 

1^5 

6.ASJJ999 5 
6.579999? 

6.4533200 

6US30'-D3 

1.C249073 

-.0534350 

.30000 

1 . COCcb 

~ -,056T5*r7 

-.000 000 3 

.0000000 

176 

- 6.TGB999S 

6.837999S 

6 .4530303 
6.4533303 

1.C23SV01 

-.3477367 

.30000 

1.0DDD3 

“ -,0589975' 

“-.DODDOGT 

.0000000 





POTENTIAL TLOU- rODf RELEASES DATE 353177 



- 

D0U6LAS 

AJ^GRAFT COMPANY 

...... 






LONE 

BEACH DIVISION 







1 LSI CASE 

RELEASE 2.0 


2-BODT CASE NO. BFOCl 

psf'= 

- 


0^ - 

■SaDr IlNIFORH axisyhhctrtc flow 







trahsfohhed coordinates 








X 

Y 

T1 

CP 

SIN A COS A 

SIGMA 

H 

PHI 

177 

6.9669999 

6.4533'’03 








T.C9S9999 

6.4533000 

1.C223S63 

-.0452738 

.ooann i.oQOuo 

-.0618242 

-.0D0DDD3 

.ODOOOOO 

178 

7.22<)999*t 

6.4530033, 








7,3539999 

6.4530C0D 

1.0212823 

-.0430176 

.00030 1-D3DD0 

-.0646264 

-.0D0C003 

.0300000 

179 

7*9829993 

6 ,4530003 








7.6119993 

6.453'5C33 

1.0202673 

-.0439447 

.00033 i.cocoi 

-.3673915 

-.3300004 

.3000000 

IBC 

7,79E9993 

6.4530000 








7.B699992 

6.4S3E703 

t.rl933Dl 

-.0390339 

.DOOD3 l.CDDDO 

-.0701023 

-.0D0DD03 

.0000000 

1£1 

7.9989992 

6.4533000 








S. 1279991 

6 .4530000 

1.C154639 

-.0372686 

..00300 l.OOQOD 

-.0727359 

-.0000003 

.3000000 

182 

8.2569991 

6.4530003 





* 



8.3859991 

6.4.530003 

1 .0176601 

-.0356321 

•OaCDC l.COQOO 

-.0752621 

-.OOOOCC3 

.rooocoo 

183 

8.51B9990 

5^4530933 








8.6939990 

6.4530COO 

1 .QIS9132 

-.0341124 

.oaoco i.soooo 

-.0776425 

-.DDD0CD4 

.0300000 

ia*t 

3.7729989 

6.4530300 








8.9C19989 

6.4530303 

I.:i62l73 

-.3326977 

.00000 1,00030 

-.2798296 

-.3000004 

.0000000 

165 

9.P3C9988 

6.4530800 








9.1599988 • 

6.4530003 

1.0155673 

-.0313769 

.30000 1,00030 

-.0817658 

-.000000“ 

.ooooooo 

IS 6 

9.2889937 

6.4S3D0D3 








9.8179987 

6.4530000 

1.0149565 

-.C30140R 

.00000 I.OCOCO 

-.0833846 

-.0000004 

.0000000 

18 7 

9,59 69986 
9.6759986 

6,453 3033 
6.4530003 

I .0143471 

-.3289811 

.ooDcc®^"^ i.coonc 

-.0646112^ 

-.0000024 

.0000000 

IBS 

9.EC99985 

6.4530033 








9.9339982 

6.4530800 

1.C17S49D 

-.3278898 

.00000 1.00030 

-.0853670 

-.DOOCOQ4 

.3300030 

1B9 

1C. 0629981 

6.4533000 








10.1919930 

6,453 jCj 3 

1.3133399 

-.0269577 

.03330 1.C3330 

-.3855748 

-.0000234 

.0020300 

190 

10,3209980 

6.4530000 








1C. 9 9 99979 

6.4530033 

1.0123576 

-.0258904 

.OOQCQ l.DQOOO 

-.3851681 

-.0000005 

.0000000 

191 

1C.57P9980 

6.4530COO 








ir.TL79979 

6.453 0003 

1.0123975 

-.3249485 

.00030 1.32000 

-.0841334 

-.00PCD35 

.rooooDo 

192 

10.8369980 

6.4535033 








1C,96S99T9 

6. 4 53 E *03 

1 .0119528 

-.0240485 

.032CC l.ODODD 

-.0823770 

-.0000025 

.0000000 

193 

11 .C 969980 

6.4£30"33 








11.2239980 

t.453C003 

1.0115052 

- .0231426^ 

.30000 1.23330 

-.0800536 

-.2C0C0C5 

.2000000 

199 

1 1,3529980 
11.4319989 

6.4S33C03 

6,453r’'D3 

1.3113399 

-.:2«3j^# 

.uOOCD l.ODOCb 

-.37732^5 

-.0CQCCC4 

.nooooQc 

195 

11-6109999 

6.4530003 








1 1 .73*9999 

6^ti533na0 

1.CI37FC9 

-.D21^i(v ^ 

.30.3CC l.OODCC 

-.0745566 

-.oaccpos 

.0000000 

19 6 

1 1.8 650030 

6. 4 530 COD 








12.0237999 

6.4533-713 

1.3134849 

-.021tE?^i- 

.30C3C i.corca 

-.0718294 

-.CDCC024 

.QOOOCOO 

197 

12. 17P60D0 
12.36436CC 

6.4533133 

6.4S3r~Q0 

l.Cl^Q«52 


.ooor.c 1. CD 023 

-.0690887 

’-.DC00DD4 

•DDOOCOO 

198 

12.S5C12DC 

6.4530007 







12.773C319 

6.4530000 

1 .2096146 

-.3193215 

.70030 1.0D030 

-.0663748 

-.0000005 

«coododd 



3P3- 


PdfCNtlAL FLOW - FODF RCLFASE Z 


DATE 053177 


DOUGLAS AIBCRAFT COKPANT 
long beach DIVISION 



TEST CASE 

RELEASE 3 



-BOOT CASE 

HO. BFCCl 

PSF = 



OfJ- 

■BODY UNiroRH AXISYKHC7RIC FLOU 








' fpANSFORMEO GOaRDINAIES "' 






* 



■ ”y 

T 

T1 

CP 

SIN A 

COS A 

SIGH A 

N 

PHI 

194 

1 Z^9449*jU n 

6*4530003 

* 

■ 







^r3l26?43 8b 

■ "6. '4 S3 GOOD 

i .0390960 

0182748'“ 

.30000 

1.0D303 

-.0636837 

-.0000004 

.0000000 

200 

J 3.53C9319 

6*4530003 









1 3.B519255 

6. 4530033 

1.3355308 

-.0171343 

,00000 

1.00000 

-.0609909 

-.0000004 

.0000000 

201 

14.172919n 

6.45IDCD0 




• 





STTrsanio 

6.4530000 

1-0079207 

-.0159042 

.00000 

1.00000 

-.0582431 

-.0000005 

.0000000 

202 

14*9433D3C 

6*4530003 









' IS.NOBBI’ID" ■ 

■'6.4530000 

1.0072711 

-.0145950 

.00000 

l.OOOOG 

-.0553561 

-.0000004 

.0000000 


15.S677b30 

6.4530r03 









■i6,lTlD69b 

6.4SIDCDF 

Trn066237 ' 

-.0132912 

.33000 

1.03033 

-.0523765 

-.0000003 

.DDDODBD 

204 

16.6743751 

6.4530D00 









" 17.37T681D 

6.4530033 

1.0360465 

-.3121295 

.33000 

1 .03003 

-*0R9<(739 

-.0000003 

.0000000 

ZDS 

17*Sa09869 

6 -453DD00 









i8.3B42T28- 

" 6.4S3DC33 

1.0Q5S537 

-.0111382 

.00000 

1.00000 

-.0467040 

-.0000003 

.0000000 

20 & 

18*8875990 

6 .453.0000 









19.39C9049' 

6. 453 DODO 

1.0051265 

-.0102032 

.DOOOC 

1.00000 

-,0440269 

-.0000003 

.GOOOODO 

2D7 

19.6942111 

6.4530CDD 









" 2 C.3 975155 

6.453 0E0a 

r.a'04'7S92 

-.0095410 

.00000 

1.00030 

-.0414280 

-.0000003 

.0000000 

zna 

2C*9QC8219 

6.4530033 









2i;:SD4i27 8' ■ ■ 

6.'4S3DEDD 

'r.G04 4 3"7V “ 

*-.CD8B946~ 

.03000 

I.O0D03 

-.D3BBB87 

-.0000003 

.0000003 

209 

Z1.9D74340 

6.4530D0D 









^SV4 1D7399 

6.4 530003 

1,0341568 

-.3383309 

.30000 

1.03003 

-.0364016 

-.0000002 

.0000000 

210 

22*914C46D 

6 .453 0000 









" "23.417352C ~ 

6 .4530033 

1.0039126 

-.0078405 

.00000 

1 . 00000 

-.0339597 

-.0000002 

.0000000 

211 

23.92C6SB1 

6.4530000 









24.4239640 

"6-453Q'CD0 

i,Q03'7(U3 

“-.Cb"74'l63 

.'rib 000 

1.00000 

-.0315566 

-.0000002 

.0003000 

212 

24.9272699 

6.4530003 









V5.4'3b57S6 

6.4530000 

1 .0035207 

-.0070537 

.00000 

l.OOODD 

-.0291870 

-.0000002 

.□□□0000 

213 

25*9338820 

6.453GnD3 








“ 2fe74T7T1^4‘ " 

' "6*.4S3'0bD0 

1 .□033696 ~ 

-,□067506 

{ .33000 

1.00033 

-.0268456 

-.0000002 

.0300000 

214 

26.94 04931 

6.4S3O0C0 







•. ■ 


'27.4437990 

6.4530033 

1.D0324E4 

-.3365374 

.03000 

1.03303 

-.0245274 

-.0000002 

.3300000 

215 

27.9471D49 

6.4S3QOOO 









"28.4 5C413B' ' 

6,4530033 

1.0031592 

-.0063284 

.00000 

1 .ooooo 

-.0222271 

-.OOgOOQ2 

.0000000 

zia 

28.953717D 

&.4S3OC0Q 









' ' 2 9.4 57022V"' 

6.4530CDD 

' l.CD3iC68 ' 

-.0062233 

.00000 

1. GOO 00 

-.0199384 

-.0000002 

.0000000 

217 

29.9603291 

6.4530003 









30.4 636350 

6 .4530000 

1.0031011 

-.0062118 

. .00000 

1.00 COO 

-.0176536 

-.0000001 

.□□□0000 

71fi 

3r.9^ife941 1 

6 *4530097 









■ 31.4 702466' 

6.453b'E00' 

1.0031608 

-.D0633iF 

.30000 

1.03333 

-.0153615 

-.□COOOQ 1 

.0000000 

Z1 9 

31.973S520 

6.451Dr03 









”32.'4 768577' 

6.4S3C0Q3 

r; 0333257 

-.3366624 

.30000 

1.00003 

-.0130429 

-.0000001 

.0000000 

220 










33,4834730 

6.4'sVqC03 ~ 

1.0036948 

-.0074032 

' '■ “.'o'rioc'D ' 

1. OOOOO 

-.0106599 

-.0000001 

.0000000 




POTENTIAL rtOV - EODF RELEASE 2 “ ' DATE D53177 

DDUCLAS »IBC(f*FT' COMPAfit ' ' 

LOME BEACH DIVISIOH , 


TEST CASE release" 2.C 


2 

-BODY CASE NO. BFOCl 

PSF = 


OH-BODT UNirORH 

AXISYHHETBl C ELOU 





. 

TpANsrQRHCn 

COORDINATES 






X 

Y 

ri 

CP 

SIN A COS A 

SIGHA 

M PHI 

221 33.9B67759 

6.9530002 






iA.R^CCBia 
222 S'!. 9933382 

6.9530000 
6 .9530C00 

1.0095693 

-.0091996 

.OOCOO l.OOOCD 

-.0081195 

-.0000000 .0000000 

35.*l9669'll 
223 3.6.BDD0300 

6.9530000 

6,9530033 

1.C36S9B2 

-.0137933 

.30030 l.COODD 

-.DDS19BC 

-.□□□0000 .0000000 








APDCO 

HASS - 

.333300!! 

VOLUME = 

1335.CB65936 5UH 

ITKDELTA SI 

= 28.6915860 



rODF RCLCiSE 2 


D*TE 053:77 


P0T£HT]AL FLOV - 


DOurLiS rircraft company 
L^NS BFACH DIVISION 


TEST CASr BELCASE 7.T 2-BODY CASF NO. BFOCJ PSF = 


OW-aODY STRIP VORTEY FLOW* 

TRANSFORNEIl COORDINATES 



X 

Y 

T1 

CP 

SIN A 

COS A 

SIGMA 

N 

PHI 

1 

P.OllDCaD 

B.C152oaS 

.rooo^’DO 
. 1151029 

1.393101:7 

-.3292259 

.99792 

.07179 

2.917S9S5 

-.0000012 

.O3CCE00 

2 

P,C2751B9 
P. 298257? 

.?296225 

.2992699 

-.2379532 

.9933783 

.97723 

-21217 

1.6797390 

-.0000053 

.rOOOQOD 

3 

F. 2769252 
f. 1128790 

.9571B63 

.5666563 

.3173212 

.999700T 

.93969 

.39216 

1.932'392i 

-.000000“ 

.0300030 

4 

8.1558563 

8.2C575SI 

.6739595 

.7786683 


.9982293 

.83992 

.9 5739 

1 .1S9CS25 

--0GDODO7 

.0000300 

s 

8.2618982 
8. 329!. 929 

.8S01'=82 
.9739 253 

. C59 1C7 6 

.9973729 

• B3399 

.55629 

.9668929 

-.0000011 

.CQDOOOO 

6 

8.3916585 

8.9645996 

1 .0791593 
1.1662226 

.062202? 

.9^161309 

•76326 

.69013 

•bTisosb 

-.aoDcon 

.DOOODOO 

7 

8.5920380 

8^6291082 

1.2595893 
1 .7597385 

.2633662 

.9953258 

.70919 

.71006 

■ .706~91lb 

-.3000001 

.0000000 

a 

F.7C99922 
8.756798 0 

1.9210927 
1 .99o7''39 

.0728990 

.9996365 

.69198 

.76719 

,613'89H 

-.300000“ 

.3300030 

9 

S^BB€S939 

a-9EC289R 

1 . 56BB3BS 
1.6383992 

.2763558 

.9991698 

.55112 

-8.1382 

.53SW7T"~‘ 

.0000 301 

..C3000DO 

IG 

9.C769732 
9. 1759719 

1.739 3 962 ■■ 

1 .7676933 

.0790533 

.9937506 

.52235 

-35273 

.9677701 

-.000000? 

.0000000 

11 

9.2775625 

9.3819519 

1.827 5751 
1 .889 6010 

,081 190“ 

.9 93916? 

.96596 

.36506 

.9070175 

-.DCDCCCS 

.'1000003 

12 

9.988091 3 
9.59658D9 

1.9382993 

1.969D973 

.0877026 

•99316C3 

.91C6C 

-911B2 

l3KCI29*9 ‘ 

.0030000 

.0000000 

13 

9.7C6536S 

9,8189350 

2.C566 5£9 
2.0813177 

.0638335 

*99?9719 

.35762 

.93387 

.3015''96 

-.2000001 

.3330030 

IB 

9.931S963 

1C.C962S68 

2. 1228 321 
2 .1619993 

.3896025 

.992892“ 

.33639 

^951 91 

.2599692 

-.3000007 

.30OCOOO 

15 

15.1620110 

1C.279C791 

■ 2.1970111 
2.2296982 

.2353782 

.9927617 

.25669 

•96649 

^2101 390 

-.3000033 

.DDOQOOO 

16 

10.3969290 
1C. 5158712 

2.2599"33 

2.2362600 

.CB53399 

.9927223 

.20830 

-97SD7 

.1677996 

-.0000033 

.rOGOOOO 

17 

ID. 6359350 
10.7558620 

2.3101971 

2.3313297 

.0353679 

.9927123 

.16 095 

.98696 

.1268158 

.0000009 

.300DD00 

la 

1C.B767S70 
iC. 9903147 

2.3995523 

2.369988B 

.CB59269 

.9927357 

.11992 

.99393 

,b£67591 

.ooDcroi 

.0300230 

19 

1 I.I2C199P 
11.2925621 

2.3775911 
2.367 3996 

.0367395 

.9929763 

,36395 

.99765 

.0971027 

-.ccboooc 

.0000000 

20 

11.36S11BC 

11.9880365 

2. 39“ 3 •>55 
2.3931B11 

.3326018 

.9935333 

.02279 

.99979 

.0071929 

•DCODDOT 

.0000000 

21 

1 1 .61C9999 
11.7385959 

2.9CuOO03 
2.9 00Q0DO 

,0517819 

.9973186 

.03300 

1 .aCOSTl 

-.Cri5786"' 

-Tbboopoi 

.0000000 

22 

11.866C92D 

12.0191479 

2 ,9030033 
2.9000003 

.0796328 

.9999301 

.30000 

1.00303 

-.0085925 

-.bODDCCD 

.0000000 



DATE 0 « 1 T 7 


-3^6- 


POTENTHL FLOU - FOOF RELEASE 2 

DOUnLAS AIRCRAFT COHPAMY 
LONS DEACH aiVlSIOK 


TEST CASE RELEASE 2 . Q R-SOCT CASE NO. BFOCl PSF = 


ON-BODV STRIP VORTEX FLOU' 

TPANSFOKKED COOROINATES 


23 

X 

12.1722329 

r 

2.960cr03 

T1 

CP 

SIN A 

cos A 

SI OKA 

« 

PHI 

21 

12.3558699 

12.53«5360 

2.90002:02 

2.9C02"D0. 

.0733369 

,9996215 

.30020 

1.00933 

-.2060 5 B9 

-.3D00DCC 

.03C0330 

25 

32.7599355 

12.9flC33S0 

2.9233032 

2.903£j"'D3 

.2726020 

.-7997289 

•33CED 

1.23323 

-.0039986 

-.300CD02 

.0000000 

25 

13.299B195 

13.50O279P 

2.9032033 

2.9Ca0'’0a 

.0723983 

.9998091 

•OODCO 

1.G0C09 

-.0229356 

-.0000030 

.COQOODO 

27 

13.8266695 

J9.199C9SC 

2.9CC20G2 

2.9333033 

.0716909 

.9998677 

.QOOuD 

l.COOCO 

■-.0013956 

.occoosc 

.COOCSOO 

28 

19.5298959 

19.9CE7960 

2.9C20C23 
2. 903 003 3 

.0713587 

,9999379 

•C33C0 

1,00020 

-.0006606 

-.oorcpOD 

.0000000 

29 

15-3627670 

lS.8i9788C 

2.9000203 
2. 930 0002 

.0711759 

.9999391 

.30 DOC 

I .23033 

-.3002810 

-.DCDDCOn 

.3000030 

3D 

16.3292929 

16.8287981 

7.9L3CC53 

2.9000000 

.2712696 

,9905995 

.33220 

1.23023 

-.2001253 

.30C0DCP 

.coocooo 

31 

17.3333335 

17.8378391 

2. 9330 '23 
2.90DOC03 

.2710125 

,7999572 

.20200 

1 .cocoa 

-.0000375 

-.9C00CCC 

,0003000 

32 

1 8.392319 C 
18.8968189 

2.9C00.'0O 
2 . 9C32f 33 

•37C9912 

.9999533 

.90323 

I.003C3 

-.CC0C132 

.DD0QC3P 

.0000000 

33 

19.3513293 

19.S55633C 

2.9t00oq2 

2.9330533 

.C739935 

.9999619 

.50 oca 

1 .202i>3 

-.2CCD39S 

.30DCSJ0*’ 

.OOOCOGO 

39 

2E.36r33S9 
22.86989 IP 

2.9030002 

Z.ROOO.'-EO 

,0709912 

.9999617 

.32 COE 

, 1 .32033 

-.CCCC019 

.DEOCDOn 

•aoocoDO 

35 

21.36<J3959 

21.8738511 

2.9i.:Dr33 
2. 9030303 

.27399„2 

.9909618 

.332EC 

1,23323 

-.2390219 

.3230022 

. 30 ocoao 

35 

22.37P3565 

22.8828621 

2.9i-3Cr33 

2.933oOC2 

.2709833 

.9909610 

,20000 

1 .OCODD 

-.0CCC522 

•OCCCCCO 

.5000000 

37 

23.3673672 
2 3..S9I8719 

7 . 9 .,3 3 . D 4 , 
2.9v30~32 

.2729896 

,7909625 

•orrca 

3.2P902 

-.3202950 

* 0 i.CCOl.*' 

.coocooo 

3P 

29.3963773 

29.987863"’ 

2.9023.-bj3 

r . 9003033 

.C7IC789 

.9999579 

-DOCEC 

s.acooo 

-.0C29127 

.ococoor 

.OCOCQOO 

39 

25,9653879 

25.9098952 

2-9C323C2 

2.903C7C3 

.2710572 

.999**539 

.23CE0 

1.22035 

-.0C3C3I3 

.DCODCCO 

.20011300 

90 

26.9 193980 
26.9189091 

2.9033' 33 
z-Roro'cr 

.2711789 

.9999336 

.32022 

1 -3303 7 

-.0CEC779 

.3CSC2.ir 

•OCPOOOO 

R 1 

27.9239090 

27.9279139 

2.9330032 

2,9O360r3 

.0719538 

.9998901 

.□3C22 

1.2D9C3 

-.CCC1992 

.9C00P2*’ 

.0003COQ 

9 2 

28. 9 329 1 93 
20.9369299 

0. 900 CODS 
2.9„31 '33 

.2722369 

.7997518 

•oprcc 

l—CJE'* 

-.CE09R97 

.-.caaoCuC 

•ponoooo 

93 

29.9919299 

29.9959350 

2.9.,3tinu3 

0.9030033 

•379C°29 

,9995103 

•ooc.*: 

1,."C{!C3 

-.2012293 

-.9CCDCC1 

.2030000 

99 

3C.95C993II 
3C. 9599960 

2.9-330S3 

2.9303303 

,3786859 

-99?8266 

.30E2C 

1.23C33 

-.DC3Q227 

-.3CDPCC1 

.0303000 


31.9509510 

2.90:r'33 

.3931115 

.991=799 

-■>32-C 

1,32222 

-.3ST57E9 

-.OSQCCoI 

.2020200 



3^9 


P0TEMTT*L flow - roDF RELFASE 2 

ODUTLAS AIFCRAri COMPAKT 
UOME BEACH DIVISION 


DATE 


353177 


TEST CASE RELEASE 2.3 


BH-DODV STRIP VORTEX FLOU 

TRAJiSFORHCD COORPIVATES 

" * t 


55 

31.9639571 

2.500D7QO 


32.56B562C 

2.5COOQQO 

46 

32.9729671 

2.5CD0003 


33.5775718 

2.5000000 

57 

33.S81977C 

2.5D30C03 


35.5865821 

2.5GoaQon 

46 

35.9939878 

2.5C30CDD 


35.5955939 

2.5000300 

59 

36.COCDQpO_ 

2.5003003 

"5ir‘ 

■ 3£.'£ffeccTo5” 

“6 .GOdoToa""'' 


35.5955939 

6.0030033 

Si- ■■ 

35.WC9a78 ■' 

6'.C00C003 


35 .5865821 

6.0000003 

52 

' 3'3-9ri97TQ 

6. 0330603 


33.5 775718 

6.0000303 

S3 

' 32'.'§729£Tr'* ■ 

i-CeStfilSi 


32.5685620 

6.3000300 

Si, - 

31.S639S7r " 

~ 6.ccoo6'on 


31.5595S15 

6.CC30333 

5"5 " 

30.9559560 

6.3O0Q0D0 


3C.5SC55Q5 

6.CQ30P33 

56 

29,95S935tr 

6.C003003 ' 


29.5515299 

6.0003000 

57 

28.9369259 

6.CU0GCD3 


28.5 325193 

6 . rZDOODD 

5s' : 

27.9279139 

6.E0300D3 


27,5235090 

6.6003300 

59 

26.9189D51 

b.OOOOOOD 


26.5153565 

6.C030C-33 

60 

25.9098930 

6.CC000D0 


25.5053879 

6.CC30n03 

61 

25.9008830 

6.3030003 


25.596377 3 

6.6000000 

r 

23.8916719 

6.6030603 


23.3673670 

6.SQOOOOO 

63 

22.5628621 

6.0030600 


22.3783565 

6.60aOODO 

65 

21.873BS1 1 

6.6300000 


21.3693559 

6.CODODD3 

65 

20.8658510 

6.0030000 


20.3603355 

6.6030033 

6b 

19.B55B30D 

6.6330000 


2-eOOV CASE NO, BFOCl PSF = 


Tl 

CP 

SI N A 

cos A 

SIGHA 

N 

PHI 








. 11B7759 

.9658925 

JIOOQO 

l.OOODD 

-.0190362 

-.0000002 

.ODDCDOO 

. 19220B0 

.9630561 

.30000 

1.C0003 

-.0583782 

-.0000001 

.oooonoo 

.33B1B97 

.BBS6277 

.00000 

i.ooooo 

-.1272576 

-.0000003 

.0000000 

1.8657561 

-2.5813086 

.33000 

1.3DD33 

-.5DSS553 

-.0300007 

.0300000 








.3566255 

.8793515 

.00000 

-1,00000 

.2559708 

.0000000 

.0000000 

. 1138931 

.9858655 

.00000 

-1.00000 

.3225551 

.0000002 

.0000000 

.0068581 

.9999217 

.00000 

-I.ooooo 

.3555771 

.0000002 

.0000000 

-.0378332 

.9985687 

.30000 

-1.00003 

.3686712 

.3000002 

.0000030 

-.0573528 

.9967118 

.00000 

-1.00003 

.3725831 

.0000000 

.0020000 

-.3553902 

.99S7251 

.00300 

-I.OOOOO 

.3715600 

.0000000 

.0000000 

-.0636852 

.9952825 

.00000 

-1 .00000 

.3676866 

-.0000001 

.QOGODOO 

-.0700312 

.9950956 

.00000 

-l.COODO 

.3621781 

.0000002 

.0000000 

-.C70S8DT 

.9950185 

00030 

-1.C0333 

,3555710 

.0000000 

.3000000 

-.0738055 

.9959866 

2)0000 

-1 .00303 

.3578755 

-.0000 ODD 

.0000000* 

-.0708995 

.9959733 

.00000 

-I.OOOOO 

.3395867 

-.DDODOOJ 

■■.ODDOOOD. 

-.0709395 

.9959676 

.00030 

-I.ooooo 

.3307377 

-.0000000 

.0000000 

-.0709570 

.9959650 

.00000 

-l-OODDO 

.3215250 

-.nnnnnoR 

.QM-OBDO— 

-.0709658 

.9959639 

O3-Q0E 

■iijgaBM 

.3117216 

-.OOOODQl 

.033,0000 


-.0709702 


.99*19632 


JiODCD -1.00303 


.3016591 


•PggPflgg 


. DODDPOO 


•eIQ 9 J^ 


-99 B9629 


-*03500 


-l.OOOQg 






,i}aac.inw_ 



DATE 053177 


POTEHTliL FL0« - EODF RELEASE 2 
19.3S13Z*i3 ■ '6.CC33D37 




-."1729725 .9949529 ~ -00000 -l.COGOO .2807788 -.0000001 


.0000000 





FOTEHTlftL FLCU - TOOF RELEAEC 2 

OOUCLtS MRCKan COFPftKV 

LCKn bfach division 


TEST CASE RELEASE 2.D 2-600T CASE *0. BFOCl 


OK-EOD-' STRIP VQRTElf FLOW 

TRAHSFOFMCn COOEniNATES 



X 

7 

TI 

CP 

<1N A 

COS A 

67 

18.8663189 

18.3623160 

6 .ccaoioD 
e-rsoovOD 

-.3739706 

.9969632 

.00 SEC 

-1 .3D0C3 

63 

17.8373091 
17, 3533035 

6 . OliOO ■ ‘00 
6 . EEC 0 000 

-.2729620 

.9969666 

-0033C 

-1.2CDC0 

69 

16.9287981 

16.32*42929 

6.''33aca3 

6.?GQ00DD 

-.E729632 

,9969575 

.00030 

-1 .ED0C?3 

7C 

15.3197S3P 

15.362767P 

s.Ci-oo-oo: 

6.3DOOOCO 

-.C7caaas 

.996V768 

-33CEC 

-1.30023 

71 

16.9057660 

16.5268956 

6. CEDC300 
6.EC03COO 

-.3707858 

-.9969996 

.33CCG 

-1.32-133 

72 

16.1660652 
j 13.8266695 

6.CC000DD 

6.tG20;.ao 

^.0726158 

»595S136 

.03 33C 

-l.CDDCD 

73 

13.5092963 

13.2668165 

6.0CGUOCO 

6.0CGCG0O 

-.0703676 

.9953686 

.00000 

-l.COODC 

76 

12.9603350 

12.75993SS 

6.0000003 
6 . DOOdOGS, 

. -.0703361 

.9952952 

.oocco 

-i.Dcoat* 

75 

12.5395360 

12.3558696 

6.0033903 

6.'*OOCOOC' 

-.2696286 

.9951566 

.33C20 

-1.C0333" 

76 

12.1722029 

12.0191676 

6.0000 TOO 
b.rODOCDO 

Si 

->C690D6S 

,9952381 

•oocco 

-1.33033 

77 

1I.366092D 

11.7385659 

5. caooroo 

6, (033030 

-.C638E61 

.9952657 

•OQcao 

-i.coroo 

76 

11.6109999 
11.6 369260 

s.-rDOonoo 

5,9993703 

-.3669228 

,9955216 

-.03763 

-.99997 

79 

11.3588570 

11.2336616 

5.9980769 

5.9957267 

-.0655761 

.9957330 

-.02 232 

-.99975 

60 

11.1C86660 

1C.9E6017S 

5.9926832 

5.988*1013 

-.E66C531 

.99S537D 

-.37613 

-.99935 

SI 

1D.SS96190 

10.73S9UC 

, 5.9836879 
5-9777992 

-.0663238 

.9955613 

-.36 906 

-.99853 

82 

1C.612261D 

iC.‘4e‘91936 

5.9713367 
5 .966 1 596 

— . 3660925 

.9956318 

-.06116 

-.99813 

83 

10. 36618631 
104.2637339 

5.9562637 

5.9677100 

-.0662636 

.9956118 

-.07239 

-.99733 ' 

86 

10.1213320 
9.999626 6 

5 .9386915 
5.9286683 

-.0666616 

,9955629 

-.03283 

-.99656 

85 

9.8775721 

9.7561605 

5 .9182321 
5,9072613 

-.0667358 

.9955653 

-092*46 

-i99572 

86 

9.6368013 

9.5138367 

5.895 6808 
S .8336297 

-.0670596 

.9955330 

-.13131 

-.99685 

87 

9.392,9205 

9.2723523 

5.871056S 
5 18580235 

-.0671(286 

.9956536 

-.10960 

-.99600 

as 

. 9.1518356 
970316215 

5.8665236 
5. 3306 080 

-.3678600 

.9953977 

-.11673 

-.99316 


DATE 0S3I77 


P5F = 

S1GT*A 

.269977*1 
.2S89781 
.2*473327 
.237CD77 
.2275DC6 
•21952CD 
.2123*412 
’.2D7266S 
. 2026^61 
. 19 e' 3 CD 9 
-1753302 
.1917370 
.1699037 
.1862353 
.i/76550 
.1702916 
.1626 53d" 
.IS'6'3663 
.16"622la 
.1381703 
.1303261 
.1227705 


M 

-.OCODOOl 

-..acGorDO 

.DCDDQCQ 

-.OCOCCOl 

-.QDDDOOl 

'-bcDOCOD 

.0000001 

.ODCDODO 

.OaODDOr 

.ODDCOCl 

.2000001 

.CDDCOCl 

.0000001 

.OCCDODl 

.0000000 

.DOOQOOD 

.CCOGCOO 

.□boooci 

.OOODCCl 

.ODOCOOO 

~.bC00DDC 

.ObODDOC 


PHI 

.OQOOOOD 

.OOGCOOO 

.0000000 

.30DD0D0 

.OOD20QD 

.CODCOQO 

.0000000 

.0000000 

.0000030 

.0000000 

.0000000 

.0000000 

.0000000 

.3300030 

.0000000 

.0000000 

.0000000 

.0000000 

.DOCDOQO 

.OOOOOOQ 

.0000000 

.roocooo 



sao- 


POTENTISL flow - EODF release 2 DATE DS3177 

DOUGLAS filRCRAET C0HPAH7 
LONE BFACH DIVISION 



TESt'CSSE RELEASE ’ 2.0 . 


2 

-80 RY CASE 

MO. BFQCl 

PSF = 


ON- 

BODY STRIP VORTEX FLOW 








TPAHSFDRHEb 

COORDINATES 








X 

" ■ V 

T1 

CP 

SIN A 

C05 A 

Si'OHA 

K 

8V 

8.9139568 

5.6162T2I 








8.7915591 

S.8G15628 

0682916 

.9953363 

-.12332 

-.99237 

.1155574 

.DOEDCni 

90 

8,6716980 

5.7864783 








8.SS2C655 

5.7710621 

-.0657868 

.9952684 

-.12918 

-.99162 

.1087187 

-.0CDDO3E 

91 

8.432975 9 

5.755314 9 








8.313D736 

5.7392761 

-.0693234 

,9951943 

-.13432 

-.99094 

.1022685 

-.CCOQOOO 

92 

8,1937102 

5,7229496 




4 




8.0744991 

5.7363711 

-.0699047 

.9951133 

-.13576 

-.99033 

,0962083 

-.0000 DC-3 

93 

7.9553225 

5.6B95475 

' 







7,8362648 

5.672S104 

-.0755332 

.99SC2S1 

-.14250 

-.9897? 

.0905303 

-.DCDDOOO 

99 

7,7172364 

5.6552734 






* 


7.5982949 

5.6378548 

-.C712S99 

.9949:J9? 

-.14 565 

-.98935 

.06522C3 

-.ODObODP 

95 

7.4793769 

5.6202781 

« 







7.3605146 

5.6025631 

-.3719362 

•994S252 

-.14 791 

-.98903 

.D8D2S99 

-.CCDOOOP 

95 

; 7.2416701 

5.5847286 








T.1228S37 

S, 5667923 

-.0727153 

.9947125 

-.14 95B 

-.98375 

.0756281 

-.DOCOODC 

97 

7. 0040429 

5 .5487792 








6.a6523D'4 

S.S3C6991 

-.0735358 

.9945925 

-.15358 

-.98863 

.0713019 

-.ODCDDDD 

98 

6.7664229 

5.5125853 








6,6475302 

5 .4944441 

-.3744106 

.9944631 

-.15 090 

-.98B55 

.0672640 

-.CDDODCl 

99 

- 6.5267375 

5 .4763033 








6.4C99DD4 

5.4581881 

-.0753539 

.994321B 

-.15054 

-.98863 

,0634382 

-.7CDCC01 

lOD 

6.2910579 

5.4401098 








6.1722546 

S.4221C53 

-.0763433 

,9901718 

-.14 950 

-.98676 

.3599536 

-.DDOcrai 

101 

6.0534394 

5. 404 180? 








5.93R6336 

5.3663657 

-.0773721 

.990D136 

-.14 779 

-.9B932 

.0566435 

-.0200001 

102 

S.E1S8D97 

5.36B67Z3 








5.6969648 

5.3511245 

-.3794452 

•993S964 

-.14539 

-.98937 

.3535375 

-.0200 DC 1 

103 

S.'S 7 80960 

5,3337 431 








E.4S917GS 

5.3165385 

-.3795596 

.9936703 

-.14 231 

-*9e<962 

.0506173 

-.OCDODCO 

109 

S. 3402255 

5.2995417 








4.2211922 

5.2627654 

-.D3371D7 

.9934858 

-.13853 

-.99336 

.3476647 


lOS 

5.102124 4 

S. 2662359 








4.9829406 

5 .2499653 

-.DB1B943 

.9932933 

-.13406 

-.99397 

.0452650 

-,'JDCDCOC 

10& 

4.6637178 

5.2339833 








4.7443452 

S.31S2993 

0631373 

.9930932 

-.12889 

-.99166 

.0426034 

-.OOOCCOl 

107 

4.6249295 

5.2029475 








4.5C532B8 

5.1879333 

-.0843447 

.9928360 

-.123C0 

-.99241 

,0404665 

-.OuOODOl 

108 

4.3356817 

5.1732945 








4.2656126 

S.159E343 

-.2356344 

.4926719 

-.11639 

-.99323 

.0382422 

-.0200001 

109 

4,1458942 

5.1451945 








4,0257148 

5.1317750 

-.0958839 

.9924512 

-.19925 

-.99434 

.3361198 

-.0320COI 

110 

3.9054843 

5, 1188215 








3.7849513 

S, ii.63317 

-.2381841 

.9922236 

-.10295 

-.99489 

.E34CH95 

-.OCOD30E 


PHI 

.33DDO30 

.OGODDDD 

.ODOtoon 

.DQDDDQQ 

.caocaoQ 

.39CCCQQ 
.aacGOOD 
.OCDGDOD 
.DDOCDDO 
. CD 0 DODD 
.S3DLCD0 
.CODCCOD 
.nDDCDOO 
.EDDCODO 
-DOnCCOD 
-3330Q3D 
.rOCDDOO 
.CQCDDOO 
.rCDCDDO 
•ECDDDDD 
.23CU2aE) 
.DDOOOOS 



~ 33 /- 


POTENn^L FLCH - EODF 

RELEASE 2 






DATE 053177 







• 







DOUGLAS 

LCNG 

AIRCRAFT COMPANY 
BEACH DIVISION 


















TEST CASE ‘JELrtSE 2.0 


2 

-BODY CASE 

NO. BFOCl 

PSF = 



ON- 

-BODY STRIP VORTEX 

EL OR 









TRAfJSrORHEO COORDIHATES 









X 

Y 

TI 

CP 

STH A 

COS A 

SIGNA 

IV 

PHI 

111 

3.6693653 

5.0993596 


■ 






112 

3.St3t316 

3.t22t512 

5.0823863 

5.C7197B6 

-.0895079 

.9919883 

-.0921 C 

-.99575 

.0321930 

-.0000001 

.0000000 

113 

2.3010736 

3.1796tS7 

5.C616266 
5 .0518899 

-.0908693 

.9917937 

-^□0298: 

-.99659 

.0302730 

-.0000001 

.ooooooo 

lit 

3.0577727 

2,9358520 

5 ,0927 973 
5.0392735 

-.0922712 

.9919860 

-.07206 

-.99790 

.0289733 

-.□00000} 

.□□□□000 

US 

3.S 13931S . 
2.69~9667 

5.0269SC7 

5.D193937 

-.0937601 

.9912090 

-.06089 

■^.99815 

.0267381 

-.0000000 

.0000000 

Ut 

2.S6/9t23 

2.t<ltBS05 

5.0129986 

5.03732B2 

-.2953899 

,9939309 

-.39 380 

-.99881 

.0250603 

-.0000000 

.OOOODDO 

117 

2.3211935 

2.197<)770 

5.0029623 
9 .9989267 

-.0972663 

,9905393 

-.03592 

-.99935 

.0239279 

-.0000000 

.0000000 

US 

2.C73C6>iO 

1.9teft31S 

9.9952292 
9 .9929029 

-.0997972 

.99C0S0S 

-.02219 

-.99975 

.0218179 

-.0000001 

.0000000 

119 

l.R2332l«l 

1^5980300 

9.9912016 

9.9910003 

-.1039009 ~ 

.9893083 

-.00759 

-.99997 

.0200782 

-.0000001 

.0000000 

120 

1.6i22tt7 

1.5265295 

9.9923773 

9,9953400 

108288B 

.9882735 

•02530 

-.99968 

.0181800 

-.000000 1 

.DDODOOD 

121 

1. 9951099 
1.3638920 

5.CQ39653 

5.0076Q2S 

-.1119735 

,9879608 

.37516 

-.99717 

.0165330 

-.OOOODDQ 

.OODOOOO 

122 

1 .2367397 
1.2Q9B63B 

£.0162761 

5.3262385 

-. 1137516 

.9870606 

.12396 

-.99229 

.0152969 

-.□□□0000 ' 

.DDOOOOO 

123 

1.137C129 

1.0699770 

5 .0586703 
S.0523C51 

1152599 

.9867153 

■ .17259 

-.98500 

.0191029 

-.□□00000 

.0000000 

12t 

.995E17-3 

.9275536 

5.C669929 

5.0339258 

-.1165295 

.9869221 

.22 163 

-.97513 

.0130561 

.0000000 

.OOOOOOO 

125 

.8630218 

,7989799 

5 .1007380 
5. 1197639 

-.1176796 

.9861527 

.27196 

-.96231 

.0120750 

.0000000 

.0000000 

126 

.73BS2G2 

.6786509 

5. 1395319 
5 . 161C0S1 

-.1137969 

.9858379 

.32923 

-.99596 

.0111366 

.□OOOOOD 

.OOOGODp; 

127 

.6222992 

.5665920 

5.133X179 

5.2069986 

-.1199596 

.9856109 

.37 921 

-.92531 

.0102212 

-.OODOOOO 

.ooooooo 

128 

.5191859 

.9626816 

5.2313510 
S .2575035 

-.1211963 

.9853115 

.93766 

-.39919 

.0093101 

.OOOOOQC 

.0000000 

129 

.9 159019 
.3691185 

5.2836321 

5.3119873 

-.1225363 

.9899899 

-99976 

-.86617 

.0083929 

.OOOOOOD 

.ooooooo 

130 

.3262277 

.ZE9593B 

5.3396325 

5.3695360 

-.1239588 

.9896392 

,56 589 

-.82998 

.0079515 

.□OOOOOD 

.3000000 

131 

.2962618 

.2099480 

5.3996393 

5-9315221 

-.1259130 

.9892716 

.63658 

-.77121 

.0069618 

.0000 000 

.0000000 

132 

.1761083 

5 .9639883 
5.9972162 

-.1267736 

.9839285 

:.7l 191 

-.70277 

.□□59009 

.00000,00 

.0000000 


.1176815 

5.5299933 

-.1277637 

.9836752 

.78679 

-.61728 

.0092798 

.OOOOOOG 

.ooooooo 



POTENTiei. FLOW - FODF RELEASE 2 OAtE 0S3177 

DOUGLAS AlRCPAFt~ COWAMT ' " 

LONG BEACH DIVISION 



TESI CASE RELEASE 2.3 


2 

-BODY CASE 

HO. RFOCi 

PSF = 

■ ^ 


ON- 

-BODY STRIP WORTCX 

FLOW 







■ 


TRANSFQRMEn COORDINATES 









3£ 


T1 

CP 

Hh a 

COS A 

SIGHA 

M 

PHI 

133 

.D927733 

5 .5632093 








13*1 

.D71CB93 

.□517239 

5.5969337 

5.6320962 

-.1230763 

.9835965 

.85888 

-.51218 

.0030997 

.000000 1 

.0000000 

135 

.D35652B 

.0222693 

5 .6669993 
5.70 2 9 533 

-.1273103 

.9037921 

.92399 

-.38353 

.0018629 

.0000001 

.OODDOOD 

136 

,0122057 

,0050333 

5.7389667 

5.7796781 

-.1252992 

.9893139 

.97232 

-.23365 

.0006970 

.3000001 

.3000000 

137 

,0010393 

.CQCOOOO 

5 .8072299 
S .8900003 

-.1293963 

.9895360 

.99709 

-.07683 

-.0003395 

.□ODOODO 

.0000000 

138 

.0027027 

.C1C2965 

5.8793638 

5.9079982 

-.1297120 

.9899969 

•9B8S<| 

.19901 

-.0020998 

.0000001 

.0000000 

139 

.0232597 

.0903651 

5.9373533 

5.969S2T6 

-.1133530 ' 

.9afisia 

.98 255 

.97022 

-.0055131 

.0000000 

.0000000 

l*tO 

.0596903 

.0812336 

5.9879199 

6.0092719 

-.0937999 

.9912017 

.73832 

.67995 

-.0077592 

-.0000000 

.0000000 

1*11 

.1021562 

.1291169 

B.C271011 

6.0936297 

-.0777310 

.9939579 

.52532 

.78037 

-.0089678 

.0000000 

.OODOODO 

1*12 

.1991852 

.1750130 

6.C6D5999 
6 .0752823 

-.0655020 

.9957095 

.59 000 

-89167 

-.0096896 

-.OOOODOE 

.ooooooo 

193 

.2C-3B299 

.2332399 

6.0922922 

6.1C72999 

-.0555219 

.9969179 

.96979 

.88281 

-.0102362 

.3000000 

.0000000 

1*(M 

.26 5 57 9 5 
.2 98379 6 

6.1229553 

6.1367220 

-.0979323 

.“9977S02 

.91208 

.91115 

-.0106063 

-.0000000 

.0000000 

I4S 

' .3392'3f7‘ 
.3709379 

6. 1512395 
6.1699070 

-.09 08207 

.9983337 

.36925 

.93130 

-.0109929 

.□ODOODO 

.0000000 

196 

.9C9e*i5 3 
.9995205 

6.178 8 353 
6.191 830 

-.0353960 

.9987505 

.32392 

.99639 

-.0112972 

-.0300000 

.0000000 

l*t7 

.9925933 

.5358801 

6.205 3987 
6.2180863 

-.03D7S69 

.9990590 

.28 933 

.95723 

-.0115915 

.0000000 

.0000000 

1*(8 

.5827339 

.6298723 

6.2310933 

6.2933135 

-.0266558 

.9992788 

.25919 

.96583 

-.0118393 

.0000000 

.0000000 

1*19 

.6808255 

.7319366 

6.2558919 

6.2677103 

-.0235023 

.9999976 

.23251 

.97259 

-.0121512 

.□□ODOOD 

.0000000 

15 U 

.7871896 

,3925809 

6.2798309 

6.2913091 

D2D591B 

.9995760 

.23855 

.97801 

-.0129356 

.3000000 

.0000000 

151 

.9029189 

.9623779 

6.7030087 
6 .3190796 

-.0190919 

.9996795 

.18673 

.98291 

-.3128500 

.0000000 

.0000000 

152 

1.0 2711'8tr ~ 
1.0919661 

6 .3253913 
6 .3359682 

-.0157910 

.9997506 

.16659 

*98603 

-.0132519 

.0000001 

.0000000 

153 

1.1619567 

1.2320995 

6 .3967551 
6.3S6891S 

-.0137909 

•999BD9B 

.19773 

.98903 

-.0136970 

.0000000 

.0000000 

159 

1. 3076668 
I. 3 8337 7D 

6.3671392 

6.3767059 

-.0120026 

.9998560 

.12982 

,99159 

-.0191999 

.0000000 

.0000000 


1.9650959 

6 .3863122 

-.0103956 

.9990919 

.11259 

.99365 

-.0197516 

.0000000 

.0000000 



555 


potential FLOW - rODF RELEASE 2 

OOURUAS iIRCPAFT CO.'’PANV 
LPN3 BEACH BTVISIOH 


TEST CASE RELEASE 2-3 i 


OK-BODY STRIP VORTEX FLOW 

TRANSFORMEtl C00R0IMATE5 



X 

Y 

T1 

CP 

155 

U 5 V 6793 5 

6.39521V6 




1.63V957V 

6.V0V05B0 

-.0339445 

.9999330 

156 

1.7231938 

6.V121470 




1.E183392 

6.4233526 

-.3376292 

.99994 18 

157 

1.913S5CO 

6 .4271276 




2.316201V 

6.4338492 

-.0364275 

.9999567 

158 

2.11E91C7 

6.4396189 




2.2296323 

6.4447989 

-.0054554 

.9999702 

159 

i.BVCVaSR 

6.4427913 




2.V6C69D7 

6.4515117 

-.0044676 

■ ,9999330 

16Q 

2.5810000 

6,'453C003 



• 

2.71C0DC0 

'6.4530303 

-.0330976 

•9999905 

161 

2.S39CC0C 

6.4S3oroo 




2.9680030 

6.4S3Cr03 

-.0324725 

,9999939 

162 

3.0970000 

6.4530000 




3.2260000 

6.4530003 

-.0017980 

.9999968 

163 

3.3550000 

6.4530ra3 




3.V839999 

6.4530000 

-.0012256 

.9999985 

16!| 

3.6129999 

6.4530033 ' 




3.7V19999 

6.4530^00 

-.C0C72Q9 

.9999995 

165 

3.8709999 

6.4530000 




3.9999999 

6.453DF03 

-.0332703 

.9999999 

166 

V. 1289999 

6. 4530000 




V. 2579998 

6.4530033 

.0001376 

1.00E..333 

167 

V. 3369998 

6. 4530003 




9,5159998 

6.4530G00 

.0033393 

.9999997 

168 

V.6VV999S 

6.65Z0C03 




V. 7 7399 9 8 

6.4530C00 

.CG08508 

.9999993 

169 

V.9C29998 

6.4530rD3 




5^D3199“9 8 

6.4530003 

.0311672 

.9999986 

17 D 

5.1609997 

6. 4530000 




5.2899997 

6.4S3D0D3 

.0314623 

.9999979 

171 

S.V189997 

6 .4530000 




5.5V79996 

6.4533300 

.0317365 

.9999973 

172 

5.6769996 

6.4533rao 




5.8059996 

6.4530003 

.0019990 

.9999960 

173 

5. 9399996 

6.-4S3Dn03 




6.C639995 

6.45303DD 

.3022458 

-9999950 

17V 

6.1929995 

6.4530003 




6.3219995 

6.4530003 

.0024910 

.9999938 

175 

6.V5C9995 

6.4S3QCDD 




6.5799995 

6.4530033 

.□327058 

,9999927 

176 

6.7CB9995 

6.4530000 




6.8379995 

6.4530033 

.0029218 

.9999915 


DATE D53177 


EDDY CASE MO. SFOCl PSF = 


SIM A 

COS A 

51 OKA 

N 

PHI 

.09555 

.99542 

-.0153760 

.0000000 

.3300003 

.07346 

.99692 

-.o'ldOB'SD 

. .0000000 

.0000003 

.06 071 

- . 99816 

-.aT 6 e 07 e 

'''.□bccccp 

.coccooo 

.04138 

.99914 

-. 017836 ^ 

-.0000000 

.COOCDOD 

•31709 

.99985 

-.0189796 

.ODDOCCn 

.3300000 

.oococ 

1 .R 3333 

'-.OaO^BH™” ■ 

.0000 coo 

.0000000 

. 3000 G 

l.OCdCQ 

'-. 0222^13 " ‘ 

'-.OCOCDOC 

.OOCCODD 

.OOOEC 

l.ODDCO 

■^ij 23 ' 9276 ‘ “ 

-.bncDooP 

.OCQCOOO 

.ODOCC 

i.CC 300 ~ 

-.0256285 

’^JocoboDO 

.0000000 

. 33 D 0 C 

1 .C 3 C 33 ■ 

-. 0 Z 74 ^' 9 C " 

—.0300030 

.3303030 

-33300 

1.33333 

-.O 29 T 0 ' 66 ^ ' 

-.bcoccoi 

.0000000 

•onocc 

1 . CD 003 

-. 031^65 

0000 bob 

.0000000 

.30000 

l.COODO 

-. 03339^2 

^'nbbocan 

.0000000 

•ooacn 

l.CDDDO 

-. 0356 ¥Is 

-.0000001 

.0000000 

.33 cos 

1.'3333 

-. 03 ^ 679 “ 

'-.o'dDCbD 1 

. 3 D 7 COOD 

.30000 

1 . 30 DD 0 

-.O 4 o”«eo 

-.ODODCDl 

.ooocooo 

. 3 0000 

1.00300 

-.0434400 

-.0000001 

.ODOOOOO 

.00000 

1. 30000 

~-.F 464331 ' 

*-^0000002 

.COOOOOO 

.DD 003 

1 . 00000 "^ ~ 

0 49 ' 6579 " ' 

-.boOCODl 

.00 000 00 

.33000 

1.03033 

-.ilsTl' 354 " 

-^bbcco I 

.3300030 

. 3 DCCC 

1.03003 

^ -. 05689 i 7 

*^73000000 

.OOOCOQQ 

.30300 

1 .30000 

-.0609485 

-.0C0C2CP 

.□OOGOOO 



POTENTIftL FLOW - FODF 

RELEASE 2 






date 053177 




GO URL AS 

AIRCRAFT COMPANY 



- 

- 




LONG 

BEACH DIVISION 








test case 

RELEASE 2.3 


2 

-BOOT CASE 

NO. BFOCl 

Tsf = 

--- 


OK- 

■BODY STRIP VORTEX FLOW 









TRANSFORMED COOBOTKATES 









X 

y 

T1 

CP 

SIN A 

CDS A 

S'iCHA 

N 

PHI 

177 

6*9669994 

6.4530000 









7.S9S9994 

6.4530000 

.0331 101 

.9999902 

.30300 

I.CQO03 

-.0653317 

-.0000001 

.CQOCOOO 

I7B 

7.229999 "1 

6.4S300qO 









7.3.539999 

6.453D0D!] 

.0333317 

.9999989 

,33330 

1 .00000 

-.0700664 

-.DCOOCOl 

.OOODOOQ 

17 9 

7.9629993 

6.4530003 









7.6119993 

6 .453D0GD 

.0035278 

.9999376 

.003 CD 

l.COOOO 

-.0751766 

-.0000001 

.0000000 

ISO 

7.79C9993 

6.4530000 









7.0699992 

6.4530000 

.0337193 

.9999362 

.323CD 

1.33D3D 

-.3826842 

-.3000COD 

.3DDCPD0 

IB] 

7.9909992 

6.4530000 









6.1*79991 

6,4530000 

.03 3 93*73 

.9999347 

.33003 

1.02333 

-.0866066 

-.Q00DC32 

.0000000 

182 

£.2569991 

6.453CC00 






4 



8.3859991 

6.4S3£nC3 

.234 0910 

.9999833 

.pooco 

1.C035P 

-.0929543 

'~»nQ0D0Ii<2 

.2000000 

183 

0.519999C 

6 .4630003 









3.6939990 

6 .4530303 

.2342746 

.9999817 

.3QDC0 

l.CCDCD 

-.0997279 

-.0000002 

.0000000 

13>l 

0.7729989 

6.4530003 









a. 9019909 

6.4530000 

.C0445S7 

.9999BQ2 

.3GOCO 

l.OOOOD 

-.1C69131 

-.0000003 

.CODDDOD 

185 

9.03C9938 

6.453C0D3 









9.1S99980 

£.4533300 

.0346363 

.9999785 

.33C3C 

1.23CD3 

-.1144764 

-.DCD0003 

.C30CC3Q 

188 

9.2889987 

6.4S3COOO 









9.4179987 

6.4530003 

,2348163 

.9999768 

.3HD0D 

1 .33033 

-.1223589 

-.PcboaoT - 

.OOOCDOD 

187 

9.5469986 

,6.4530000 









9.6759966 

6. 4530003 

.CC49959 

.9999751 

.00330 

1. PC POO 

-*13"C47bl 

-.0000003 

.PODDCOO 

18B 

9.8C499S5 

6.4530000 









9.9339982 

6 .4530000 

.3351751 

,9999732 

,70000 

l.COQCD 

-. 1386828 

-.C000CD3 

.•3000000 

1B9 

1C. 0629981 

6.453D0D3 









1C.19199BC 

6.4530000 

.0353533 

.9999713 

.00520 

l.POCOO 

-.1468207 

-.ODC0CC4 

.COOCDGO 

190 

1C.22CS980 

6.4530700 









1 0.4499979 

6,4530003 

.0355303 

.9999694 

.33033 

1.72333 

-.1546975 

-.3GDDCD3 

.3206030 

191 

10.S78998C 

6.4530003 









1C‘.7079979 

6.4S2GP03 

.0357739 

.9999675 

.32 COD 

1.33007 

-.1620423 

-.DGC0CQ4 

.0000000 

192 

1C. 8369980 

6.4530003 









1C. 9659979 

6i4S30C33 

.2058673 

.9999656 

.332C0 

1.C0002 

-.1685916 

-.OOOOCD4 

.0000000 

193 

1 1 *C9!499a?:* 

6.4530002 









11.223998C 

6.4530000 

.0059769 

.9999543 

•OQ CSD 

l.CCDCD 

--174C825 

-.OCOOOOB 

.GOOOODQ 

19 

1 1.3529980 

6.4530003 









1 1.4319989 

6.4S30 7C0 

.0350220 

.9999637 

.33000 

1.30200 

-.1703603 

-.0000004 

.CQOCOOO 

195 

1 1.61C9999 

6.4530-33 









i 1.7359999 

6.4S30F00 

.3361708 

.9999519 

.33520 

I. 03733 

-.1817134 

-.ODD0CD5 

.0303030 

196 

! I .6690000 

6.4530003 









12.0237999 

6.453CC03 

.2364 ’’64 

.9999585 

•730C0 

1,33333 

-.1840743 

-.0CD0P34 

.0000000 

197 

12.17S6CCC 

6.453 0333 









12.3643630 

6.4532030 

•CC67195 

.9999543 

.3DCCC 

1.00303 

-.1685209 

-.DGDD0D6 

.COOCOOD 

196 

12.55C12CO 

6 .453C00D 









J2. 7730319 

6.4S30CDD 

.0370072 

.9999529 

-30030 

l-CCGOO 

—.1928828 

-.0000005 

-OOPCDOO 



3^S 


POTENTIiL FLOU - EOOF 

RELEASE 2 






DATE 053177 

9 













DOUrLftS 

LONG 

AIRCRAFT COMPANY 
BCACH DIVISION 

















TEST case release 2.0 


2- 

-BODY CASE 

NO. BFOCl 

PSF = 



ON- 

BODY STRIP VORTEX 

ELOtt 









TPAMSFORMED COORDINATES 









X 

Y 

n 

CP 

STK A 

COS A 

S1GT1A 

N 

PHI 

199 

12.9959H4Q 

6.9530033 


• 






20 G 

13.2639380 

13.S3C9319 

6.9S3GC03' 

6.9S300D3 

.0073967 

•9999460 

.00000 

l.ODOOD 

-.1981209 

-.0000007 

.0000000 

201 

13.ES19255 
1*1. 1729190 

iR.ssarrio* ^ 

19.9933030 

6.9530000 

6.95300QD 

,0077652 

.9999397 

.30000 

1.00033 

-.2093972 

-.0000009 

.0000000 

202 

6.953D003 

6.9530000 

.0382889 

.9999313 

.30000 

1.00303 

-.2118989 

-.0000008 

.0000000 

2D 3 

15.9055330 

1S.S67763D 

6,9530033 
6 .9530000 

.0089515 

.9999199 

.00000 

1.00000 

-.2208395 

-.0000006 

.ooocooa 

20 ■! 

16.371C690 
1 6,3793751 

6.953COOO 

6.9S3CD33 

.0097635 

.9999Q<|7 

.OOOQO 

1.00000 

-.2309082 

-.0000003 

.0000000 

20 5 

I7.is77tai6 

17.S8C9Q69 

&.9530~Qa 

6.9530033 

.C1P6B9S 

.9998857 

.00000 

1.00300 

-.2912687 

-.OODQCOS 

.0000000 

206 

10.3892928 
■ 18.8675990 

6'. 9530000 
6.9S30C00 

.0117199 

.9996628 

.33000 

1.00033 

-.2519658 

-.0000006 

.3330030 

207 

19.3909099 

19.S992111 

'"2cf.39‘7srrs” 

20.9008219 

6,9530003 

6.953GCD0 

.0128599 

.999S3R6 

.33000 

1.03033 

-.2619795 

* 

-.0000005 

.0000000 

206 

6.953C'003 

6.9530000 

.019 i997 

.9997998 

.00000 

1.00D33 

-.2712868 

-.0000003 

.0000000 

209 

21.9091278 
21.9 07939 0 

6,9530200 
6 .9530003 

.0156185 

.9997561 

.00000 

1.00000 

•!-. 2808600 

-.0000003 

.0000000 

210 

22.9107399 

22.9190960 

6.9S30CE0 

6.953D0D3 

.0173052 

.9997005 

.00300 

I. 30000 

-.2901659 

-.0000009 

.0000000 

211 

23.9173520 

23.92C6S81 

5.9S3DOOO 

6.9530300 

.0192637 

.9996289 

.33000 

1.00003 

-.2991611 

-.0000001 

.0000030 

212 

29.9239690 

20.9272699 

6.9S3COOD 

6.9530000 

.0215622 

,9995351 

.33000 

1.03033 

-.3077997 

-.0000003 

.0000000 

213 

2S.93CS758 

25.9338820 

6.9530033 

6.9530000 

.0292956 

.9999097 

.00000 

1.00000 

-.3159988 

-.0000302 

.0000000 

21 <t 

26.9371879 

26.9909931 

6. 953 GOOD 
6.9532003 

-0275927 

-9992387 

.30000 

1 .00000 

-.3236838 

-.0000002 

.0000000, 

21 S 

27.9 937990 
27.9971099 

6.9530000 

6.9530030 

.0316386 

.9989990 

.00000 

I. 00000 

-.3307257 

-.0000003 

.0000000 

216 

28.9509108 

28.9537170 

6.953DDDD 

6.9530DDQ 

.0367105 

.9986529 

.33000 

1.30003 

-.3369921 

-.0000009 

.0000030 

217 

E9. 9 570229 
29.9603291 

6.9S30DD3 
6 .9530200 

.0932382 

.9981305 

.30000 

1.30303 

-.3920901 

-.0000003 

.0000000 

218 

30.9636350 
3C-966991 1 

6.9530003 

6.9530000 

.0519306 

.9973032 

.00000 

1.00030 

-.3955088 

.0000003 

.OOOOGOO 

219 

31,9702966 

31.9735520 

6.9530000 

6.9533033 

.0690552 

.9958969 

.00000 

1.00000 

-.3963790 

.□0D0D02 

.OODOOOO 

220 

32.9768577 

32.9801691 

6 .9530300 
6.9530033 

.0821169 

.9932568 

.00000 

1.00000 

-.3926306 

.0000003 

.0000000 


33.9839700 

6.9530000 

.1119268 

.9879729 

.30000 

1.03003 ■ 

-.3299290 

.0000008 

.0000030 



POiENTIftL FLOW - EpDF RELr/lSt 2 V* ' 053177 ~ ‘ 

' “ ”■ DOUGr»S jilRCRilFt CO«P«NY 

LONG BEACH OItfISION_ 



TEST CASE RELEASE 2,3 


2-fiOOT CASE 

NO. BFOCl 

PSF = 



OH- 

■BODY STRIP VORTEX FLOW 






- 


TRAHSFOPHED COORDiNATES 








X r 

n 

CP ' SIN A 

CDS A 

SIGMA 

N 

PHI 

221 

33.9867TS9 6. <*530000 







222 

3R. <(900818 6. <1530000 

3<l.9933B82 6.W530000 

.1708332 

.9708160 .30300 

1.00303 

-.2984254 

.DODDCOT 

.0000000 

223 

3S.<(9669<*i 6,0530003 

36.OOCDOC0 6.4530000 

,29ZS1<!C 

.9144356 .30000 

1 .00000 

-.2253676 

.0000007 

.0000000 


ADDED MASS = .0000000 VOLUME = _ 1335.0e& 5 93& SUM tTHOELTA S> = 3.60BBB86 



OftTE 053177 


- 3 ^ 0 - 


POIENtiiL FLOW - EOOF fiCtCJSSE Z 

■' DOUGLAS aiRCRftFT COVPaUY 

LONG BEACH OIVISJON 


TEST CASE RELEASE ?.0 .2-BOOY CASE NO- BFOCI PSF = 


ON-BODY STRIP WORTCX FLOW 

TRANSFORPED C00B01HATES 



X 

t 

T1 

CP 

SIM A 

COS A 

S7GHA 

N 

PHI 

I 

8.D11C0CD 
B.P 15238 5 

-0G00C02 

.1151C24 

-2. 0503038 

-3.2037458 

.99 792 

-07179 

2. 1751235 

-.0CCQC26 

.GCOOCOO 

2 

e.u27519 9 
8.0*182578 

.2296225 

.3992699 

-5.9906795 

-39 .8882906 

-97723 

.21217 

2.1296722 

‘-.□DDCC17 

.DCOOOOO 

3 

B. 3769252 
8.112879C 

.9571963 

.5668563 

-9.6319296 

-91.7693933 

.93969 

r 

.39216 

2.0329268 

-.0000002 

.COOOODO 

,M 

8 .1SE8563 
B.2C57551 

.6739595 
.778 6683 

-32.8098569 

-163.0929236 

*589*1^2 

. C. 

.95739 

1. 9092692 

-.0000029 

.3000000 

5 

e.2618*)82 

8.3290929 

.8801982 

.9789353 

-15.5119868 

-239,2963911 

.83099 


1,7658075 

-.0000012 

.0000000 

6 

8.3916585 
8. 9695996 

1.C79 1D90 
1 . 1662 226' 

-17.7163205 

-312.8680115 

.76826 

.69013 

i.612'^2E 

-.DCDD033 

.0000000 

8.59 20380 
8.G2910B2 

1.259 5 390 
1.3397365 

-19.9990563 

-379.2131958 

.70919 

.71006 

1. 9567177 

-.0000019 

.3CCCC00 

a 

£.7099922 

8.796798b 

1.9210927 

U9967G8-9 

-2Q.8RBS713 

-935.3329089 

.69198 

.76719 

1.3D5S291 

-.DCC0013 

.CCOCODO 

9 

8.8865939 

e.9"BC2898 

1 .56B8C8S 
1 .6383992 

-21.9625387 

-981 .3531036 

.53112 

TsJ3B2 

■r.rri2sse 

-^ilCODOlT 

.2300000 

1C 

9.0769732 

9.1759719 

1 .7093062 
i-7676933 

-22. 7973968 

-518,7213895 

.52235 

.85273 

i .T222Tr^ ' 

-.DDDCOIA 

.GCOOCOO 

11 

9.277562 5 
9.381951 9 

1 .8275751 
1 .8896011 

-23.9319659 

-598,0569992 

.96598 

.88506 

.8e'92i9r 

-.OOrOD31 

.0000000 

12 

9.988C913 

1 .9382993 









9.5965809 

1.9690973 

-23.9005263 

-570.2351532 

.91C6C 

.91182 

.7623706 

-.0000011 

.0000000 

.. 

9.7C6526 5 
978189350 

2-C366619 
" 2 .0813177 

-29 .23119 16 

-586.l'982162 

,357 62 

.93367 

'.6912795 

-.0000015 

.0000000 

19 

9.9315963 
* ID. 0962868 

2.1228321 
2. 16i999B 

-29.9959963 

-596 .5798916 

.30 659 

.95191 

'.5252029 " 

-.OCDDODR 

.3000000 

„ 15 

1C.162DI 1 r 

10.2790791' 

2.1970111 

2-2296982 

-29.5587296 

-602.1311951 

.25669 

.96699 

.9132395 

'-.ocbooo® 

.0000000 

16 

1 G. 3969290 
1C.51S6712 

2.2599033 

2.2862630 

-29.5799937 

-603.1990979 

-2D83D 

,97807 

' .'3E192’7D9 

-.OOOOGC5 

.3000000 

17 

10.6359350 

10.7558620 

2.3101971 

2.3313097 

-29.Sa’3 0717 

-599. 6955765 

.16095 

.98696 

.1970639 

-'.O0COD20 

.oocoaoa 

10 

10*3767570 

10-998311)7 

2-3995520 
2.369 9888 

-29.3339238 

-591.1393968 

.11^92 

,9939'3 

.0902076 

”-ToOodpD6 

.0000000 

19 , 

11.1201990 
■ 11.2925621 

2. -377 5911 
'2.3873996 

-29.025179 9 

-576.3531697 

.36B95 

.99765 

-roi79&r9 

^.ODOOCCX 

.320C03D 

20 

11.3651160 

li.9SRQ365 

2 .3993955 
2 ,3981811 

-23.398 9158 

-596.5392595 

.02279 

,99979 

-. 1306 317 

-.0000001 

.0000000 

21 

11-61G9999 

2.9000000 









I1.73BS959 

2.9C30P03 

-22.5339795 

-5C6. 7576992 

.00000 

1.00000 

-.1697390 

.0000001 

.0000000 

22 

. 1 1.8660920 
1270191979 

2.9000000 

2.9D00CQ0 

-21.87I56B9 

-977.3655293 

.OODGO 

1 .CDOOO 

-.ilIsToi 

.0000003 

.OOODQOO 



POIEHTiSL FLOV - ETODF RELEASE H " DATE D53177 

~ ’ " '■ - - pbunLAS' AIRCRAFT 'COMPAHT ' ^ 

LONG BEACH DIVISION 



TEST CASE 

RELEASE 2.0 


2- 

BOOT CASE 

NO. BFQCI 

PSF = 


ON- 

■BODY STRIP VORTEX FLOW 








TRANSFOBHED COORblHATES 








X 

Y 

T1 

CP 

SIN A 

COS A 

SIGMA 

N 

23 

12.1722029 

2.9QDQP33 








12.3558699 

2.9C00C00 

-21 .9879299 

-963.7096176 

.00000 

I. 00000 

-.1019736 

-.0000001 

Z'i 

12.5395360 

Z.9E-DDG33 








12.7599355 

2.9000000 

-21.2090991 

-998,6119895 

.33000 

1,03033 

-.0735085 

.0000002 

25 

12.9603350 

2.9CDOOQO 








13.2998195 

2.9CD0QD3 

-23.9966119 

-939.8576851 

.33GCC 

1-30333 

-.3500853 

.OGDC009 

2G 

13.5092990 

2.9ODOCO0 








13.8266695 

2.9D0OC33 

-23,8508916 

-933-7596779 

.00000 

i.bocoo 

-.0315711 

.0000002 

27 

19.1990950 

2.9000000 








19.5298959 

2.9C0QC00 

-20,7559739 

-9 29.7896729 

.00000 

l.CDOQO 

-.0180517 

.0000002 

26 

19.9057960 

2.903CC33 








If. 5 62767 a 

2.9000000 

-2C.69BB7C9 

-927.9932335 

.30CCC 

1. OOOOD 

-.0091967 

.0000033 

29 

15.8197880 

2.9030033 








16.3292929 

2.9000000 

-20.6702328 

-926,2605896 

.00 COO 

1.C03C3 

-.OC91993 

.0000003 

30 

16.B2E7981 

2.9000000 








17.3333035 

2.9030003 

-23,6581-328 

-925.7572363 

.33CDO 

I.S3D33 

-.0017952 

.000002“ 

31 

17.8378091 

2.9000n00 








"18;3ii231*rQ 

2.9030003 

-23,6532116 

-925.5551991 

.00000 

1 .00000 

-.0007619 

.0000002 

32 

J8.896E1B9 

2-9000000 








19.351329 3 

2 .9000I7CD 

-20.6512918 

-9 25.9737859 

.□ooco 

l.CDODO 

-.0CC3229 

-.0000001 

33 

19.8SSB300 

2.903DD33 




, . 




2C.3605359 

2.9000000 

-2C.6S099S2 

-925.9908875 

.soocc 

1.30000 

-.□DD1I73 

.□000001 

3*f 

20.6698910 

2.9C30G03 








2f.3693959 

2.9QDOCDO 

-2C.653126S 

-925 .927719 

.33030 

1-30303 

-.DCC0611 

.3000001 

35 

21.8738511 

2.9000C00 








22.3783565 

2.9CD0:03 

-23,6999795 

-925 .921652“ 

.30CDF> 

1 «OSOD3 

-.0CCO338 

.DC0C002 

36 

22.3828621 

2.9C00E0S 








23,3873670 

2.9E0QC03 

-23. 69 98 826' 

-925 .917698. 

.□□□CC 

1.00003 

-.0000395 

.0CQC0D5 

37 

23*8918719 

2.9C00000 








29.3963773 

2.9cc£irao 

-20.6997326 

-925.911953? 

.3aOCD 

1 •□CQGD 

-.0000535 

.OCOOOCS 

36 

29.90E883D 

2.9330003 








25.9053879 

2 .9G0DC00 

-2D.6993S59 

-9 25 .3971798 

.00000 

l.SOOOQ 

-.0001935 

.□000009 

39 

2S.9C98930 

2.9030003 








26.9143989 

2.9CQD003 

-20.69RS209 

^925 .3619159 

.33000 

1.C3D33 

-.0003358 

.3000010 

90 

26.918909 1 

2.9CDD')D3 








27.923909P 

2.9C3DC23 

-23 .6963965 

-9 25.2717318 

.33 EEC 

I.C3333 

-.0CD~898 

.3DGCC15 

«* 1 

27.9279139 

2. 9000000 








28.9329193 

2.9030003 

-23. 6939056 

-925.0970238 

.30000 

1.00000 

-.P01B1S6 

•scoaoi^t 

92 

28.9369299 

2. 9CC00D0 








29.9919299 

2.9COOOGO 

-20.6273203 

-929 .9863396 

.□00"C 

1.2DDGD 

-.DC919XC 

.0000016 

93 

29.9959350 

2.9C3CC03 








30.9SC99Q9 

2,9CD0EC0 

-23.5935135 

-923 .0927963 

.303E0 

1.00003 

-.00926 79 

.0000015 


30.9549960 

2.9C3DC03 








3I.9S99S19 

2.9000000 

-20.5098395 

-9 19.6535199 

.Q30D0 

1.S3033 

-.D2C21DD 

.0000016 


PHI 

.aOODDDO 
.□DDGDDD 
. 0000000 
.0000000 
.0000000 
.0000000 
.9000000 
.0000000 
.0000000 
.DOOSOOO 
.0000000 
.0300030 
.oocoooo 
.0000000 
.nooQOOO 
.0000000 
.0000000 
.9000000 
.0000000 
.0000000 
.0003000 
.0000000 



DATE 0S3177 


POTENTiitFLOU - EODF RELEASE 2 

. DOUCLIS AIRCRAFT COnPANT 

^ LQRG B EACH DIYISlOW 



TEST CASE RELEAITe 2.3 


2-flCOT CASE NO. BFOCX PSF X 


OW-^(JT STRIP VORTEX F LOW 

TRANSFORHEO COORD I MATES 



X 

V 

T1 

CP 

SIN A 

cos A 

SM ENA 

N 

PHI 


RS 

31 .9639571 

2.9GQ0D00 

. 








Hb 

32.«68<l62Q 

32,9729671 

2.9000000 

2.9000000 

-20.3053639 

-911.3378303 

JOOOO 

1.03000 

-.0929513 

.000001 7 

.0300000 


<(7 

33.977'i71B 

33.9819770 

2.903QC33 

2.9000000 

-19.8203177 

-391.8999936 

.00000 

1.00009 

-.0892696 

.0000019 

.DOOOOOO 


H8 

34.Ka6482 1 
3U.99C9878 

Z.90DOOCQ 
2 .9000000 

-18,7379029 

-350.0902981 

.00000 

i.ooodo 

-.1535290 

.0000010 

.QOOOOOQ 



35.9 959939 
36.CCa090C 

2.9DQOaoa 

2.9030003 

-16.9695202 

-270.DBD92S3 

.00000 

l.OOOOQ 

-.2993139 . 

.0000007 

.0000000 



* 







- 



so 

36.CCC0000 
35^9 959939 

6. 0000000 
6.0C00003 

26.2669939 

-688.9523392 

.30000 

-l.OQQOS 

7.2999687 

-.OD00093_. 

..DOODOCO 


".'TT 

39.9909878 
- 39,9869821 

6.0000000 

6.0030033 

22.6221566 

-510,7619667 

.00000 

-1 .00000 

S. 2999897 

-.0000076 



■ S2' 

33.9619770 

33,9779715 

6.C000Q00 

6.0000000 

21.3321800 

-959,0619011 

.00000 

-1.00000 

8.^228323 

-.0000072 

.DOOOOOO 


' is 

3 2.9729671 
32.9689620 

6.COQOOD3 

6.CCOQOOO 

20.9103580 

-936.2930687 

.00000 

-1,00000 

S. 0636790 

-.0000057 




~ 31T9639S71 

31,9599519 

6.0030033 

6.0000000 

20.759 1509 

-929.7397565 

.03000 

-1.09D03 

7.6938391 

-.0000032 

.0300009 


55 

30.9599960 

30.9SC9909 

6.0000000 

6.0030003 

23.6927698 

-927,1937196 

.00000 

-1,00039 

7.133920D 

-.DDDOoSl' 

.0000000 


56 

29.9959350 
29.9 91929 9 

6.CCDOOOO 
6. 0000003 

23.6680160 

-926.1668816 

^0000 

-1.00000 

6.S6S8227 

-.0000075 



57 

28.9369299 

28.9329193 

6.0000000 
6 .COOOCOO 

20 .6578557 

-925.71170016 

.00000 

-1.00000 

5.9591110 

-.0000023 

_:_iji!m.oaoo 


58 

27,9279139 

27.9239090 

6.00DaOOO 

6.0000000 

20.6536097 

-925.5713882 

.00000 

-l.ODDOD 

5.3290879 

-.0000017 

.0000000 


59 

26.9189391 

26.9193989 

6.CC300D3 

6,0000000 

20.6517392 

-925,9961891 

.39000 

-1.90033 

9.6677672 

-.0000008 

.□ODOODt.'. 


SO 

25.9098930 

25.9053079 

6. COO 0000 
6.G03QQ03 

23.6539635 

-925.9622917 

.30000 

-1.00309 

3.9950193 

-.0000005 

,000 DODO 


61 

29.90DBB3D 

29,3963773 

e.ooQQaoa 

6.0000033 

20.6505735 

-92S.9961S23 

.00000 

-l.ODDOO 

3.3093H79 

.0000009.. 



62 

23.8910719 

23.3873670 

6 .0000000 
6.0000000 

20.6503551 

-9 25.9371693 

.00000 

-1.00009 

2.6136073 

-.0000019 

.OQDDDOn 


65 

22.8828621 

22.3753565 

6.0030003 

6.0000000 

20.6502197 

-925,9313660 

.00000 

-1 .00000 

1,9098258 

-.finnnni, 

.nooooDO 


bH 

21.8738511 

21.3693959 

6.0030003 

6.0000000 

20.6500583 

-925.9299039 

.30000 

-1.00099 

1.199e0£7 

-.0000002 

.OODDDDD 


65 

20.8698910 

20.3603359 

6.0000000 

6.O0Q0O03 

23.6997962 

-925.9193816 

.90000 


.9850119 

_ ^.ODDPDQft _ 

aODOODOD 


66 

19,8558300 

6.0000000 











0»TE 053177 


POttNIieL Ftbw - tOOF ReCeaSE "t 

X973S‘l325'3 ‘ 6“.DCQ0EIDb 6¥92T«~' ■^25.‘39n2S50 .03000 -1. 00 000 -.2332773 -.0000003 .0000000 



POrCNTiaL FLOU - rOOF HELFASe 2 


DATE DE3177 


7DUGLAS aifcpaft cov.pant 
LONG REACH DIVISlfH 


TEST CASE RELEASE 2-SPr7 CASF HO. RFOCl PSF = 


OM-BODTf STRIP VORTEX FLOW 

TRANSFORMED COORDINATES 



X 

Y 

T1 

CP 

5;iM A 

COS A 

SIGMA 

N 

PHI 

67 

i8.eA66ie9 

ie.3A23i4C 

6.ECOCrOO 

O.rsCDOQO 

20.6*78969 

-925.3335303 

.30300 

-1.C3CC0 

-.95399C3 

.0000301 

.ODDCQOD 

6B 

17.8376091 

17.3333035 

6.0230502 

6.2C001Q3 


-425.19*2973 

.30330 

-1 ...0CC2 

-1.6762193 

-.3COOOC6 

.0000000 

69 

1 6.8237981 
36.3202929 

6.CL33E33 

6.20DG70D 

23.5361523 

-42* .8507767 


-l.tCDCO 

-2.399**01 

-.OCOOOD3 

.0000000 

70 

lS.ai9788C 

1S.362767D 

6.0030033 
6. COO COOS 

20.6173C67 

-c 2*. 0733537 

.33500 

-1.35332 

-3.389S967 

.3000025 

.0300030 

71 

1A.9C57A6C 

l*I.S2Ae95« 

6.CG5OC0O 

6.E£i3sr3: 

23.581*371 

-*22\ ,955535 

.33003 

-l."3333 

-3.6935250 

.3020015 

.OOPGOOO 

72_ 

lA.IAACASD 
; 13.8266695 

6.tC030C0 

fe.C03Qd03 

23.5232*70 

-*20.2036667 

JSBOCC 

-1.C003C 

-*.2010726 

-.0000006 

.CGCC3D0 

73 

13.5GS29RP 

lI.SiiASiRS 

6.CC00^00 

6.CCDC30C 

20.9386971 

-416.7*0337* 

.90300 

-1 -EOPOO 

-*,629**66 

-.0CC0007 

.0000000 

7 A 

12.9623350 
■ i2.'7S99355 

6.r03IJC33 

6. rcaaooo' 

23.3261197 

-*12.1511383 

.00000 

■”l«t.DD33 

-*. 993*055 

.DCCDCCl 

.0000000 

75 

^12.53 95360 
" *12".35SB69«t 

6.CC30G33 

6.0000000 

23.18*8731 

-*a5.*291D00 

.33000 

-1.ID933 

-5.30**671 

-.CC0C0C3 

.3000000 

76 

12.1722029 
■■ 12.019197* 

6.2GCD00n 

6.0030033 

23.3133317 

-399. *301656 

.00 ODD 

-I.iC23D 

-5,5722531 

-.0000022 

.3000000 

77 

11.8660920 

ir.7385959 

6.EC300C0 

6.roooooo 

19.7365281 

-392.5066910 

.09000 

-1 .E0C20 

-5.6091110 

-.OCDOD29 

.COOCOQO 

7S_ 

11.6 109999 
11.9899260 

6.2036000 

5.9993705 

19. *630920 

-376,0066032 

-.30763 

-•99997 

-6.C6913S5 

-.0000012 

.0000000 

79 

11.3568570 

“11.2336916 

5.9950799 
5.995 7297 

“■'19.2521*00 

-369.6**8935 

-.02232 

-.99975 

-6.2803291 

-.0000069 

.ODODOOO 

...eo . 

1 1. 1C8996C 
10- 9890175 

5.9929 832 
5 .986'9 313 

19. 1956897 

-367.479*987 

-.03613 

-.69935 

-6.9305039 

-.00000*3 

.OOOCCOO 

DI_ 

10.8596190 
“ 10.73591 10 

5.983*379 
' 5.9777992 

19.1555972 

-366.32311*1 

-.3*936’ 

-.9988'' 

-6.531*915 

-,30CEd* 1 

.0000000 

■82 

10.6122910 

10.9891906 

5.9713367 

5.96*1599 

19,1639653 

-366.9*92302 

--D6114 

-.99813 

-6.5669178 

-.0000035 

-DOCODOO 

B3 

10.3661690 

10.2937239 

5.9562637 

5.9*77100 

19.1979079 

-367.5596657 

-.07239 

-,9973s 

-6.6017*27 

-.000302* 

,0000300 

aci 

10.1213320 

9.9999266 

5.938*915 
S. 9286683 

“19.2476163 

-359. *707298 

-.082S3 

-.99656 

-6.5616*72 

-.00GOO5S 

.0000000 

65 

9,8775721 

9.7561605 

5.9-182321 

-5.9072*18 

19.31*7509 

-372.0596308 

-.392*6 

-.99572 

-6.5325**6 ■■ 

-.0000025 

.0300000 

at 

9.6398013 

9'.5l38397 

5.8956868 
5. S0 3 6 297 

19.39'7:779 

-375.2535112 

-.13131 

-.79*85 

-6,*6Cil82 

-.0000053 

.OCDDQOD 

67 

9.392.9205 

5,8710566 









9.2723523 

5.8560235 

19. *93*9*3 

-378.9963188 

-.109*0 

-.59*00 

-6.3695762 

-.0000039 

.0000000 

68^ 

- 9.1518356 
9.031621 5 

5.8*95236 

5.F3D6C80 

19.6b29313 

-333.27*9138 

-.11673 

-.99316 

-6.265*700 

-.0000015 

.000000.0 



POTENTlAt. FLOIj“EdDF RELEASE 2 " DATE DSS177 


. u. .. 

.... 

DOUGLAS 

AIRCRAFT ‘ cbi'PANT 





■ “ ■ — 


- - 

. ,, ..... 

LONG 

BEACH DIVISION 



— 




TEST CASE 

RELEASE 2.0 


2 

-BOOT CASE 

NO. SFDCl P5F = 



OH- 

■BODY STRIP VORTEX FLOW 









TRANSFOBHEO COORDINATES 









X 

y 

TI 

CP 

SIN A 

COS A 

SICHA 

K 

PHI 

89 

8.9 119S68 

5.8162723 









8.7915S41 

5 .8015628 

19.725Q879 

-388.0790901 

- ,12332 

-.99237 

-6.1516881 

-.COQ0056 

.GQOOQOQ 

9Q 

8.6716980 

5 .7869783 









8.5520655 

5.7710621 

19.8601165 

-393.9292299 

-.12916 

-.99162 

-6. 331 Mils 

-.3000039 

.D30C03G 

91 

8.43247S9 

5.7653199 









8.3 130736 

5.7392761 

23.0381108' 

-399.3299939 

-.13932 

~.99d9H 

-5.9071987 

-.0000053 

.0000000 

92 

0.1937102 

5.7229996 









8.0794991 

5.706 3711 

20.1695802 

-905.8119559 

-.13876 

-.99033 

-5.7810367 

-.0000062 

.ODDQOOO 

93 

7,9553225 

5.6855975 









7.8362698 

5.6725109 

20.3950915 

-912.9207115 . 

-.19 250 

-.98979 

-5,5599393 

— .OCDDCbD 

.0000000 

99 

7.7172369 

S.65S27D9 






* 



7.$9Q29C(9 

5 9.6178S48 

20.5399579 

-920.6899799 

-.19 555 

-•9S93S 

-5.5285023 

-*ocoooe& 

.COODCOO 

95 

7.9 793769 

5.6232781 









7.3 6CSr9 6 

5.6025631 

20.7397695 

-929.1378288 

-.19791 

-.98903 

-5.9D39998 

-.0000050 

.3300000 

96 

7.2916701 

5.S89728B 









7. 1228507 

5.5667928 

20.9599295 

-938.3186917 

-.19958 

-.98875 

-5.2819277 

-.0000066 

.0000000 

97 

’ 7.0090929 

5.5987792 









6.8852309 

5.5336991 

21.1998531 

-998.2217991 

-.15056 

--98B60 

-5.1609969 

-.0000063 

.0000000 

9 8 

6.7669229 

S. 5125053 









6.6975802 

5,9999991 

21 .9950119 

-953.8885307 

-.15090 

-.98855 

-S.C932D19 

-.0000063 

.0000000 

99 

6.5ZB737S 

5.9763C3D 









6.9Q990Q9 

5.96&1BB1 

21.7117169 

-970.3986973 

- .15359 

-.98860 

-9.9276999 

-.OEDD055 

.0000300 

IDO 

6.2910579 

5.9931093 









6.172259 6 

5.9221053 

21.9930129 

-982.6925926 

--19 95C 

-198876 

-9.8193355 

-.3030036 

.0300000 

IDl 

6.0539399 

5.9091809 









5.9396336 

5.3863 657 

22.2875786 

-995,7361565 

-.19 779 

-.98932 

-9,7032270 

-.D0D0O3E 

.rcooooo 

J02 

5.S 158097 

5.3686723 









5.6969698 

5.3611295 

22.5951879 

-509.5925198 

-.19 539 

-.98937 

-4.5940948 

-.0000035 

.0000000 

103 

^.5780960 

5.3337901 









5,9551755 

5.3165385 

22-9198862 

-529 .0920105 

-.19231 

-.98982 

-4.4666001 

-.0000059 

.0000000 

109 

S.I9C22SS 

5.2995917 









5.2211922 

S .2827659 

23.2955392 

-539.3598589 

-.13853 

-.99036 

-9.3807360 

-.0000066 

.0000000 

IDS 

5. 1021299 

5.2662359 









9.9829906 

5.2999550 

23.5BS9S87 

-555.2979972 

-.13906 

-.99397 

-9.27S9D7B 

-.OCCODSn 

•3QQC030 

106 

<(,e&3717S 

5-2339833 









9.7993952 

5.2182993 

23. 9350603 

-571 .8873926 

-.12885 

-.99166 

-9,1720193 

-.0000095 

.0000000 

107 

9.6299295 

5.2029975 









9.5C53288 

5.1379 333 

29 .2916999. 

-589.DB69105 

-.123DC 


-9.C667959 

-.0000097 

.0000000 

lOB 

9.38S68I7 

5.1732995 









9.26SB126 

5.1590393 

29 .6550901 

-606.3739665 

-.11639 

-.99323 

-3.9660176 

-.0000099 

.3000300 

109 

9.1956992 

5.1951995 









9.0257198 

5.1317750 

25.0296897 

-625.2350522 

-.10905 


-3.8635205 

-.0DDDD55 

.EOQOOOD 

no 

3.9059893 

5.1188215 









3.7E99513 

5.1063317 

25.9006839 

-699.1997098 

--10C95 

-*.99469 

-3.7611995 

-.DCC205P 

.3300300 



D*TE D53J77 


POTEHTIAL FLOU - EODF release 2 ' 

Db’uGLAs" AI^RiTFT COWP»»3V' 

LONG PEACH Divi sion 


test CASE RELEASE 2.3 ' ~ * *' 2-SODT CASE NO. BFOCl PSF = 


ON-EODY SIPIP VORTEX F^OU_ 



TRANSrORHEO 

COORDIHAtES 






- - 

■ 


JC 

y 

Tl 

CP 

SIM A 

COS A 

SI CNA 

N 

PHI 

111 

3.66143663 

5.0993596 

* 

• 






112 

■ 3.5ii3!4396 
3. <1229512 

5.0628663 

5.0719786 

25^7891685 

-663.8233919 

-J3921C 

-.99575 

-3.6590927 

-.000006^ 

.DOOQOOO 

113 

3.3010736 
3. 1796957 

5.C616266 

5.0518899 

26.1778257 

-689 .2785566 

-.08298 

-.99659 

-3.5571535 

-.0000093 

.0000000 

IIV 

3.0577727 

2.93S852U 

5.0927973 

5.C392705 

26.SB69QC5 

-705.8632736 

-.07206 

-.99790 

-3.9557952 

-.0000036 

.OODOOOB 

115 

2.B139310 

2.6909667 

5.0269507 

5.0193937 

27.0207820 

-729.1226573 

-.06089 

-.99815 

-3.3550899 , 

-.0000051 

.ODOOOGO 

116 

2.5679923’ 

2.999eeOS 

5,0129986 

5.C073202 

27,9969507 

-755.0597993 

-.098BG 

-.99381 

-3.2553021 

-.D0DDD52 

.0000000 

117 

~2.3211935 

2.1979770 

S, DO 2 9 623 
9.9989267 

2B.D9SI97S 

-785.5993192 

-.03592 

-.99935 

-3.1SS9286 

-.0000055 

.0000000 

lia . 

2.0730690 

I.99S6315 

9,99522'i2 

9 .9929029 

26.7511239 

-B 25 .6271210 

-.02219 

-.99975 

-3.0S99772 

-.00000*7 

.OODOOOO 

119 

“H:0233219 
lv<> 980000 

9.9912CI6 

9.9910003 

29.8553639 

-890.3927200 

-.00759 

-.99997 

-2.93170BB 

-.0000097 

.0000000 

120 

1.6122997 
i. 5265295 

9.9923773 

9,9953903 

31.2920911 

-978,1918335 

U12530 

-.99968 

-2.7319790 

-.0000039 

.0000000 

121 

1.9951099 

1.363B920 

5.0009 653 
5.0076025 

32.3368959 

-1099.6798352 

.07516 

-.99717 

-2.5192890 

-.DDD0095 

.0000000 

122 

1.2667397 

1.2D'’8639 

5.016 2761 
5.0268385 

32.9311190 

^1381.9832916 

.12396 

-.99229 

-2.3959731 

-.0000 038' 

.0000000 

123 

1.1370129 

1.0699770 

5.038 6 708 
5.0523051 

33.3691990 

-1112.5030975 

,17259 

-.98500 

-2.1961701 

-.0000028 

.OOOOOOQ 

12 <> 

.9958170 

.9275536 

5.0669929 

5.0839258 

33.7735586 

-1139.6532593 

.22163 

-.97513 

-2.0589775 

-.00000*1 

.0000000 

125 

.6630218 

.7989799 

5.1007380 

5.1197639 

39.1521039 

-1165,3661652 

.27 196 

-.96231 

-1.9283289 

-.0000026 

.COOOODO 

126 

.7385202 

.6786509 

5,1395319 

5.1610051 

39.5316558 

-1191.9352917 

.32923 

-.99598 

-1.8020106 

-.0000009 

.OQOODOO- 

127 

.6222992 

.5665920 

5.1631179 

5.2069996 

39.9329805 

-1219.3131256 

.37921 

-.92531 

-1.6759959 

.0000003 

.0000000 

12 a 

,5191659 

.9626616 

’ 5.2313513 

5.2575035 

35.3722796 

-1250.1981659 

.93766 

-.89919 

-I'.596575B 

.0000000 

.0000000 

129 

.9159019 

.3691165 

5.2835321 

5.3119673 

3S.BS6L987 

-1289.6889918 

.99976 

-.86617 

-1.9109059 

.0000003 

.0000000 

130 

’ .3262277 

.2695938 

S»33963ZS 

5,3695363 

36.3838129 

-1322.7817993 

.56589 

-.82998 

-1. 2695069 

.0000013 

.0000000 

131 

.2962618 

.2099980 

5.3996398 

5.9315221 

36.9959997 

-1363.9695790 

.63658 

-.77121 

-1.1020918 

.0000009 

.0000000 

^ 132 

.1761083 

.1995518 

■ . 5,9639 883 

S.9972162 

37.5391715 

-1905.9379925 

.71191 

-.70277 

-.9172179 

.DODOQOS 

.0000000 

.1176815 

i.^-29 9 933 

37.9966199 

-1992.7927368 

.78679 

-.61728 

-.7107959 

-.0lL)DDlla6 

.0000000 


P*1E 053177 


POTENTIM- FLOW - EOOF RELEASE 7 

_____ _____ 

LONG BEACH DIVISlOM 


TEST CASE RELEASE 2.0 2-BOOt CASE HO. BFOCl PSF ~ 


OW-aODT STRIP VORTE* FLOW 

T ft AtTsT^SHE 0 *C OORDINAT E S 



X 

T 

T1 

CP 

SIN A 

COS A 

SIGRA 

H 

PHI 

133 

.0927733 

5.5632098 






■* 


13 R 

.0710843 

.0517239 

5. '5969337 
S. 632 0462 

38.3143954 

-1466.1''28.894 

.85388 

-.51218 

-.4821714 

-.D00D0D9 

. .0000000 

135 

.b3566»a 

.0222693 

5.6669440 

5.7029533 

38.3539566 

-1470.0261383 

.92349 

-.38363 

-.2333504 

-.0000013 

.0000000 

136 

,0122057 

.□□50333 

5,7384667 
S. 7746781 

38.0411987 

-1446.1327972 

.97232 

-.23365 

.0X51514 

-.0000003 

.DOOQOOO 

137 

.0Q1Q348 

.ODOQODO 

S. 8072249 
5.840 0000 

38.1347971 

-1453.2627411 

.99704 

-.07583 

.2061663 

-.0000020 

.0000000 

13 8 

.DD2'7027 

.D10246S 

5.874 3638 
S. 9079982 

38.6849570 

-i495. 5258942 

.90 884 

.14931 

.5960291 

-.0000015 

.0000003 

139 

.0232597 

.0403651 

5.9373 533 
5.9645276 

35.6838741 

-1272.3388672 

.88255 

.47022 

1.4123307 

-.0000010 

.0000000 

IRO 

"'■.D596903 

.0812386 

5.9879149 

6.0092714 

29.9429927 

-B95.S828094 

.73332 

.67445 

1.9160218 

-.0000035 

.OOOCCOD 

JRl 

.1021562 

.1241164 

6.0271011 
6 .C436297 

25.1288252 

-630.4578552 

.62532 

.78037 

2.1475414 

-.0000014 

.0000000 

1R2 

.1491852 

.1750100 

6.0605449 

6.0762820 

21.4462156 

-4 58-9401527 

^4000 

.84167 

2.2541889 

-.DODDOZO 

.9000000 

1R3 

' .2038299 " 

.2332099 

6.0922922 

5.1072499 

18-4326572 

-338.7628517 

.46974 

.88281 

2.3049669 

.0000002 

.0000000 

144 

.2655795 
.298374 6 

6.1224563 

6.1367220 

15.9346358 

-254.5085812 

.41208 

,91115 

2.3246807 

-.0000011 

.0300000 

145 

.3342397 

.3704374 

6.1512396 

6.1649073 

13.9813701 

-194.4787083 

,36425 

,93130 

2.3273925 

-.0000012 ~ 

.ODOOODC 

146 

.4098453 
.4 4 9520 5 

6.1788353 
6. 1919833 

'l2.'3222646 

-150.8382034 

.32392 

.94609 

2.3212908 

-.0000018 

.0000000 

i»;T 

,4925903 

-,5358801 

6.2053967 

6.2180863 

10.9302605 

-118.470S954 

.28 933 

.95723 

2.31I1B68 

-.ooopoii 

. .0000000 


> :j?7839 
* 7Z3 

6.231D433 

6.2433105 

9.7479268 

-94.0220766 

.25919 

.96583 

2,3000142 

-.0000005 

.0000000 


* 

'6.2558419 
6.2677103 . 

8.7325248 

-75.2569885 

.23251 

.97259 

2.2896430 

-.OODOOOS 

.0000000 


--•731«96 
-f '~yo4 

6.2798304 

6.2913C41 

7.8520719 

-60.6550326 

.20355 

.97801 

Z. 2813190 

-.0000005 

.0000000 

- i 

.9v24184 

‘yt23779 

6. 303 0087 
6.3140746 

7.0821669 

-49.1570868 

.18673 

.98241 

2.2759397 

-.0003006 

.0000000 

*V-“ 

’.£.^71180 
1, ;91966i 

6.3253413 

6,3359682 

6.4040727 

-40.0121469 

.16659 

.98603 

2.2741652 

-.0000022 

.0000000 

3'"'- 

i_16'l9S67 

1.2320445 

6.3467551 

6.3568918 

5.8331106 

-32.6760926 

.14773 

.98903 

2,27651.53 

-.3000001 

.0000000 

154 

1.307S666 

1.3833770 

6.3671342 

6.3767059- 

5,2675852 

-26.7474539 

.12982 

.99154 

2.2834017 

-.0000004 

.0000000 


1. 4650454 

6.3863122 

4.7881747 

-21.9266167 

.11254 

.99365 

2.2951516 

.0000011 

.0000000 



DATE 0S3177 




POTENTIAL FLOW - EODF RELEASE 2 

DOUHLAS AIRCRAFT COMPANf 
LONG BEACH DIVISION 



TEST CASE RELEASE 7.3 


•2- 

BOOT CAS*" 

NO. HFOCl 

PSF = 



0N-B0D7 STRIP VORTEX 

FLOW 









TRAMSFOKMED COpHDIHtTES . 









X 

Y 

T1 

CP 

tlM A 

cos A 

SIGMA 

N 

PHI 

ISS 

1.S467935 

6.3952146 


- 







1.A349574 

6,404r<5BP 

4.3571663 

-17.9848979 

.39 555 

.99542 

2.3120535 

.0000016 

.0306000 

156 

1.7Z31S3B 

6.4121470 






* 



3.B1B3192 

6.4200 526 

3.9682114 

-14.7467312 

.37846 

.99692 

2 . 3341*372 


.COOOOOO 

157 

1.9135S0Q 

6.4271276 









2.0162310 

6.0338492 

3.6151013 

-12.0689576 

.06071 

.99816 

2.3628141 

•ODCPOIl 

.0008800 

15B 

2.1189107 

6.4396189 

6.4447989 




• . ^ 





2^2296323 

3.3107062 

-9.9607756 

.04 138 

.99914 

2.3975557 

.0000034 

.0000300 

IS9 

2.34C403C 

6 .4487913 









2.*t6C6907 

6,4515117 

3.0047376 

-8 .0294482 

.01749 

.99985 

2.4528143 

,0330028 

.DOOCOOO 

160 

2.581C3D0 

6*'-.'S3D003 



* 






1 2.71CQOOO 

■6.4530000 

2.6271954 

-5.9021554 

.33000 

1.D0S03 

2.5576676 

.0000027 

.3000000 

161 

2.B39C0QQ 

6.4530003 









2.968CQOO 

'6.4S'3bCD3 

2.4i33792 

“4 .8243969 

.30000 

1.30233 

2.6605447 

.0000044 . 

.0000000 

162 

3.D97Q0Q0 

6.4530000 









3.2260D0O 

6.4530C03 

2.2148446 

-3.90SS368 

.00300 

l.JCDCD 

2.7539347 

.OOODD32 

•DOOuCOD 

163 

3.35E0G0D 

6.4530003 









3*4839999 

6.4530C0O" 

2.0503854 

-3.2040801 

' .00000 

l.DDOCa 

2.8454768 

.0000054 

.0000000 

164 

3.6129999 

6.4530003 









3.7415999 

6 .4530000 

1.9396596 

-2.6467996 

.00000 

1 »CCDD3 

2.9374618 

.0000047 

.0000000 

1G5 

3.8709999 

6.4S3DD33 









3*9 99999 9 

6*11530000 

1.7874365 

-2.1949294 

.OOOOD 

1.03DD3 

3.0311753 

.3000069 

.3000000 

166 

4.1289999 

6.453 0000 









4.2579998 

6.4530033 

1 .6631164 

-1.8227977 

.3000C 

1.33333 

3.1273687 

.0300 05 4 

.0000300 

167 

4.3869998 

6.453GODO 









4.5 15999 8 ” 

6.4530003 

1 .5850556 

-1.5124013 

.00300 

1 .00000 

3.2265473 

.0CCDC69 

.0000030 

168 

4.6449998 

6*4530000 









4.7739998 

6.4530000 

I .5032469 

-1 .2507407 

.ooaoc 

l.QOOOO 

3,3290514 

.DDG0C69 

.OOODOOO 

169 

4.9029998 

5.'C'3i999B 

6.4530033 

6.453QCD0 

1 .4241197 

-1.0281168 ' 

,00000 

1.00000*“ ^ 

3.4352T90 

.'cODdOST 

.0000000 

17 D 

S.16D9997 

6.45300D3 









5.2899997 

6 .4530000 

1 .3554201 

-.8371638 

.30000 

1.00003 

3.5453134 

. 0800065 

.0300000 

171 

5.4189997 

6.453i'^00 









S.S479996 

6.4530033 

1.2931439 

-.6722212 

,33300 

1.C3003 

3.6594391 

."□000 093 

.OODQOOO 

172 

5.6769996 

6.453OCO0 









5. 8059996 

6'.453D003 

1.2364616 

-.5288373 

.00000 

l.CDOCO 

3.7777959 

.0000092 

.QOOOODO 

. 1T3. 

5.9349996 

6.4*530000 








6.0639995 

'.6. 4530300 

1.1846842 

-.4034767 

.00000 

l.LCOOD 

3.9005063 

.0000089 

.0000000 

.179 

6,1929995 

6.IIS30D03 








6.3219995 
6.4509995 .. 

6 .4'S30CDD 
6.4530003.. . 
6.4530000 

1.1372294 

-.2932908 

.OQOGD 

l.CDOCO 

4.0276456 

.0000083 

.0000000 

ITS. 

6.5799995 

1.0936186 

-.1960017 

.3003C 

1.00033 

4,1592280 

.0000130 

.0000030 

176 

• 6.7089995 

6.4530000 









6.8379995 

6.4530033 

I. 0534242 

-.1397325 

.33000 

1.00003 

4.2951860 

.0000125 

.OOOOQOb 



- 3 ^ 6 , - 


P0T£HT1*L FLOW EOOF 'release 2 -- 053177 

DOUGLAS AIRCRAFT COMPAnV' " ■ — — 

LONG BEACH DIVISION 



■' TEST cTsE release 2.3 


'2 

-BOOT CASE 

NO- BFOCi' 

PSF = 



ON- 

■BOOT STRIP VORTEX FLOW 









TP3NSF0RMED 

COORDINATES 









X 

Y 

11 

CP 

SIN A 

COS A* 

“ sTg ha 

N 

PHI 

177 

6*966999** 

6.4530D03 









7.D959994 

6.453C0D0 

1.0162975 

'.0328607 

.30300 

l.DGOQO 

4.4353333 

.3000114 

.0000000 

17S 

7.22‘I999'I 

6.4530CCQ 








7.3S39994 

6.4530 003 

.9319417 

.0357906 

.30000 

l.SOOCO 

4.5793292 

.0000097 

.0000000 

17 9 

7.4829993 

6.4530C03 









7.Gli9993 

6.453000D 

.9500627 

,0973800 

.00300 

I. 30000 

4.7266173 

.0000116 

.0000000 

IBO 

7.7‘IC9993 

6.453D033 




. 





7,8699992 

6.4530QQ0 

.9204491 

.1527735 

.30030 

1.33033 

4.8763728 

.0000103 

.3000300 

IB] 

7.99B9992 

6.4530000 ■ 

* 








8.1279991 

6.4530033 

.8928627 

.2027962 

.33000 

1.00033 

5.0274206 

.0030154 

* OOOQDOO 

1B2 

E. 2569991 

6.4530000 









8.3859991 

6.4530033 

,8671713 

.2480139 

.30000 

l.COOCD 

5.1781579 

.3003098 

.3003000 

1B3 

8.51X9990 

6.4530000 









8.6^39990 

6.4530003 

.8431748 

.2890563 

.00000 

1.03000 

5.3264511 

.0000126 

.3000000 

lex 

8.7729989 

6.453Q003 









8.9C199B9 

6,4530000 

.8207521 

.3263659 

.oaoCQ 

l.COOCD 

5.4695532 

.0000150 

.CDDDODO 

las 

9.G3C9938 

6.453DC03 









9.1599988 

6.453CP00 

.7997958 

.3603267 

.33000 

l,3d03D 

5.6G4D384 

.0000161 

.3000330 

ise 

9.28B99B7 

6.453000D 









9.4179987 

6.4530033 

.7802094 

.3912733 

.33000 

1.30333 

5.7256061 

.0000181 

.cooonoo 

1B7 

9.5469986 

6.4530C03 









9.6759986 

6. 4530003 

.7619056 


.30000 

l.OOODO 

5.8293762 

.OCDOllH 

.0000033 

IBB 

9.8C499B5 

6 .4530000 









9.93399B2 

6.4530003 

.7440276 

.4452319 

.00000 

l.CCOOD 

5.9096741 

.□003159 

.3000000 

189 

1C.06299B1 

6,4530003 









10.1919980 

6.4530000 

-72&9819 

.4685354 

.30000 

1 .CCOOD 

5.96E4D10 

.3000176 

.3003000 

19D 

1C.32C998B 

6.4530033 









1C. 4499979 

6.4530003 

.7142551 

.4898397 

.3303C 

1.C30D3 

5.9753634 

.3000172 

.0300D30 

I9I 

1 0.5789980 

6.453GCD0 








1 C.7079979 

6.4530033 

.7336983 

.5393219 

.33000 

1.D3303 

5.9488517 

.3000194 

.0003000 

192 

IC. 8369980 

6.4530000 









1C. 9659979 

6.4530003 

.6884616 

.5260206 

.00000 

1 .00300 

5.5764480 

.0000207 

.CODODOO 

193 

M.D94998P 

6.4530000 









H.22399BC 

6.4530000 

.6787089 

.5393542 

.03000 

1.30000 

5.7563922 

.0000213 

.OOODOOO 

19X 

1 1.5529980 

6.4530603 









11.4619989 

6.4530GC0 

.6736339 

-5502501 

.00300 

1 . 03000 

5.5933201 

.3000233 

.□OOOOOO 

195 

H.61C9999 

6.4530C33 









1 1.7399999 

6.4530000 

.6589541 

.5657794 


1.33033 

5.4033336 

.3000169 

.3000030 

196 

11.8690000 

6.4530PC0 









12.0237999 

6.O53OO03 

. 6445681 

.5845320 

.30030 

1.33303 

S.1B72D78 

.□OCO 157 

.0000000 

197 

12.1786000 

6 .4S300CO 









12.3643630 

6.O530C33 

.6307910 

.6021028 

.00000 

I.LOOC3 

4.9336396 

.0000168 

.ODOOOOO 

19 B 

12.55C1Z00 

6.453000D 









12.7730319 

6.4530000 

.6175654 

.6186130 

.30000 

1 .00000 

4.6390345 

.0000165 

.0003000 





POTENTIAL Fl'dw - rODF release 2 DATE 053177 


DOUGLAS AIRCRAFT CO"PAHT 
LpNG_ BEACH 01 V ISION 



TEST CASE "release 2.d'" 


2 

-BODY case 

NO. BFQ 

Cl PSF = 



ON- 

BOOT STRIP VORTEX 

FLOW 









TPANSF0R«£D coordinates 









X 

Y 

T1 

CP 

SIN A 

COS A 

SIGMA 

N 

PHI 

199 

12.9959770 

6.753C0D3 








200 

13.2637380 

13.53C9319 

6.7530000 

6.7530033 

.6039113 

.6352912 

.30000 

1.00000 

7.2952039 

.0000120 

.0000000 

201 

13.BS192S5 

17.1729190 

6.753UOOD 

6.7530003 

.5901098 

.6517707 

.30000 

1.DD003 

3.B91252S 

.0000126 

.0300000 

202 

17.5581110 

17.9733030 

6.7530033 

6.7530000 

.5770033 

.6673670 

.00000 

l.DOOlft) 

3.7137832 

.0000120 

.0000000 

203 

15.7055330 

15.8677630 

6.75300DD 

6.753OC0D 

.5658707 

.6798273 

.00000 

l.OOOOO 

2.8750607 

.0000067 

.0000000 

20 <i 

16.37,10690 
1 6.S7737S I 

6.7530000 

6.7530003 

.5586137 

.6879507 

410000 

1.00000 

2.2001307 

.0000078 

.DODOOOO 

205 

17.3776810 

17.8809869 

6.7S3OQ0O 

6.7S30300 

.5567130 

.6900707 

43QOOO 

1.0D03D 

1.5290603 

.0000026 

.0000000 

206 

18.3872928 
. 18.887S99C 

6.7530033 
6. 753 GOOD 

.5637757 

.6859309 

.30000 

1.3Q333 

.8590167 

.0000015 

.OODOOOO 

207 

19.3909079 

19.8972111 

6.7530003 

6.7530000 

.5699606 

.6751779 

.00000 

1 .00000 

.1907779 

■» 

-.0000009 

.0000000 

20 S 

20;397516S 

2C.90CE219 

6.7530300 

6.7530C03 

.5855872 

.6570877 

.00000 

1.00000 

-.7758756 

-.0000023 

.oooopoo 

207 

21.7071278 

21.9077370 

6 .7530000 
6.7S33D03 

.637888-3 

,6307722 

410000 

l.OOOOO 

-1.1388687 

-.0000055 

.0000000 

210 

22.7 107399 
22.9170760 

6.7530000 

6.7530000 

.6377077 

.5933332 

41 3 000 

l.OOQDD 

-1.7977539 

-.0000077 . 

.DOOOOQO 

211 

23.7173520 

23.9206581 

6.7530003 
6.7S3 000D 

.6762735 

.5726572 

.33000 

1.03333 

-2.7502397 

-.0000056 

.0000000 

212 

27.7239670 

27.9272699 

6.7530003 

6.7530000 

.7253251 

,7739035 

.00000 

1.00000 

-3.0956027 

-.0000095 

. 0000000 

213 

25.7305758 

25.9338820 

6.7530000 

6.7530003 

.7673293 

.3801126 

.00000 

1.00000 

-3.7315581 

-.0000083 

.0000000 

217 

26.7371877 

26.97C7931 

6.7530000 

6.7S30Q03 

.8657970 , 

.2507008 

410000 

1.00000 

-7.3555977 

-.0000106 

.□oooooo; 

215 

27.7737990 

27.9771079 

6.«t53OQ0O 

6-*iS3Dt?D0 

.965873-3 

.06717 72 

>00000 

1.00003 

-7.9677393 

-.□□09192 

.□□□□000 

216 

2B.75C710B 

28.9537170 

6.7S3DCD3 

6.7530000 

I.395217S 

-.1997978 

.33003 

1.30003 

-5.5535981 

-.0000227 

.0000000 

217 

29.7570229 

29.9603291 

6.7530CQ3 

6.7530000 

1.2660731 

-.6028650 

.00000 

1.00003 

-6.1166002 

-.0000208 

.0000000 

218 

30.7636350 

30.9669711 

6.753 0000 
6.7530003 

l.q9£S<l39 

-1.2756339 

.00000 

1.G3000 

-6.6737572 

-.0000168 

.0000000 

219 

3 1.7 702766 
31.9735520 

6.7530000 

6.7530003 

1.B290793 

-2.3757217 

.00000 

l.OOOOD 

-7.1177057 

-.0000139 

.0000000 

220 

32.776BS77 

32.9801671 

6.7530000 

6.7530000 

2.3310531 

-7.7338086 

41 DODO 

1.00003 

-7.5077Z77 

-.0000085 

.3000000 


33.7837700 

6.7S30C03 

3. 1878735 

-9.1737189 

4ID00D 

1.00003 

-7.7782960 

.0000010 

.□000000 






- 3 ^ 8 - 


pOTEMTlftL FLOU - EOOF RELEASE 2 


OOUGL»S »1RCR»FT COMPXMT 
LONG BEACH 02VlSIOi< 


TEST CASE RELEASE 2,3 


2-BO 


DH-BODY STRIP VORTEX FLOW 

’^TRANSF'JrHED COOfiDIMATC'S' 



% 

Y 

n 

CP 

221 

33.9867759 

6,9530000 




^‘(.‘IRPOaiB 

6.9S3 000D 

9.9703093 

-23,7039292 

222 

39.9933882 

6.9S3DDD0 




35.9 96699 1 

6.9530000 

9. 2691995 

-89 .9170399 

223 

36.DCGDQaD 

6.9530003 









AODEO KASs 


.3303000 

VOLUME = 



.00000 

1.00000 

-7,6755620 

-.0000091 

.0000000 

410000 

1.00000 

-6.7997958 

-.0000002 

.0000000 




DUE GS3177 


' B'lf - 

ROT'ENTiat FLOW - EODF RE:LfASE 2 - -t- — 

^"the following humbehs she the cwd"ih4ges thS'TIjet punched whTn 'thebe~is*ponchcd outpot 


. So 1 52 0 85 • D 1 1 80<iB257B*Dl .Bia 2 67 HO * 01 . B 205755 1 1 

.8 3 243924*01 , B1 61 5796 *01 . S&gO 13B20 1 ■ B79 67983- *3 1 
.e9eD2B98+Dl .91759719*01 .93319519+01 .9S96 Sb 69*D1 
.9 616 43 50*01 .1GD462B 7+D2 .10279074*02 .105158 71*0 2 
, rQ7S5862*02‘ .10998315^02 Vll24 2562*02 .j r488D37*02 
. 11 73B 546*0 2 .^201^147*0^ .12355869 + 02 .1275993^*02 
.13244 815*02 .13826669+02 '.1452 4895^02 .15362767 +02 
.16324293*02 .17333303*02 .18342314*02 .19351324*02 
.‘50363335*02 .21369346*02 .22378356*02 .23387'367*02 
. 243963 77*02 .25405388902 ,264^14398*02 -2742340?*^ 
'.'284 3241911,2 .294 4 1430*02 ^304 5 04 40* 02 .3145 9451*02' 
_.324^462*Q2 .33477472+02 . 3448 6JI B2*0_2 ,35495494*02 
. 354 95 4 94*02 73448 6'482“*02 *334 774 72*g' 2 . 324'6e462*02 
^30450440*02 -_2? 4J; 1 4 30 * 0 2 .23432419*02 
.27423409*02 .26414398 + 02' .25405388*02 .24396377*02 
.23 387367 *02 .^2378356+02 .31369346*02 .203603^*02_ 
19351 324*02". 1834 2314'* 02 .1*73:3 3303*02 .16324293*02 
il5^6£76^7^2 ^ 4^24895 *02^ .138^ 6669*02 , 1 324 4815.+ 02 
.12759935*02 .12355869r62 .1201914 7*012 .11738546*02 
.11 4849 26*02 . 11 23364^* 02 jJ09B4Q17*Q2 *lD_73J9n ^2__ 
.104891 91 i'C 2 .1 0243734 *02 .99974266*3'l .'97561635*3 1 
.95^38347*0^1^9^23523*01 .90316215*^1 .879 J.5S4 1*01 
.6S523'6SSiQl .'83130736*01 .'8074 4991*01 .7836264 3+01' 
.75982949*01 .73605146*01 .71228507*01 .WES23C4+01 
.664758C'2«C1 7b 4 £>9'9'004 "*01 . 6172 2S46'*0'i''. 5934 6336 *'0l' 
.56969646 *01 .54 59 1755*01 . 522 1 1922* 0 1 . 4\' 82 94 06*01 
.47443452*01 .45053288*01 .42$S8126*Q1 .40257148*01 
.37849513*01 .35434346*01 .33010736+31 .30577727 + 31 
.28134310*01 .2567 9423 i'Ol". 2321 1935*01 .2QT3o'540iQr' 
.18233214*01 .16i22 447+£l .14451399*31 .12867347*01 
.113 70 1 24 * 01 .9'9SB1698'*C0 .86302184*00 .73852018*00 
* 622299 19*00 . 5141 8538*00 . 4 154019 3*0 0 .3 2622 771^* DO 
'724626183*00 .17610827*00 . 11768I5'2*0a .710 84 336-31 * 
. 35662759-01 .12205727-01 . 1034779 9-02 . 27Q2742^02_ 
'•23259684-01 .59690291-01 . 102 156i6*M .'14916521*30 
. 2 03829 6 7*00 .26557 95 4 *00 . .334 2 3974* DO . 40^4 534 *00 
T79259026 + OC .562783B'9*CC , 60382546+DO '.7S7ie'959*00 
.90241843*00 .10271180*01 .1161 9567*01 il3p7,66^8/_Q 1_ 
.14650454*01 .16349574*01 .18183392*01*720162014*01 
.22296323*01 .24606907*01 .27 100000*01 .29680 003*31 
.32260000*01 .34839999*01 .37479999*01 .39999999*01 
.42579998*01 .4 51599 96+01 . 47 73 9^98+ 0 1_ , 5 0 3 1 99 98 +0 1_ 
.52899997 + 31 .S*5479996*0i ~.5Bb59996»'Di .60639995+d'l 
.632 19995*01 .65799995+01 .68379995+01 .70959994+01 
" . 7 35*39 9 94‘* 0 1 .76119993 ♦ 0r*,7e 6 999 92 + 0 1 , 81 27 99 9 1 + 0 1 
.838 5999 1 + 01 . B643999 D *i;i .89019989 + 01 .9l5^9BB + 3J^ 
.94179987+01 .96759986*01 . 99339982+31 .roi91998+Q2 
.10449998+02 .10707995 + 02 .1D965998+P2 . 1 1 223998«02_ 
.11481999*02 .1174000D*t'2 .123 2 3800*32 ,1236 4 3 63*32 
.12773032*02 .1326343 8*02 ^BJ|J92S*02 .14556111*02 
'.15405533*02 .1637106*9*02 .17377681*02 .18384293*02 
.19390905*02 .20397516*02 .2X4 04 1_28*02 .22410740*02 
“. 234 173 52* 02 .24423964^02 .25430576*02 .26437187*02 



DATE QS3177 


POTENTIAL FLOW - EOpF RELEASE 2 " 

^27H H3 7 99 + 02 "rYaisoiil r*02 .29^ STDZS'OZ” 
31 r7ay7-»D^_. 32^68^+02 . 33>l 8 35^70*02 
.354966711 + 02 

.11 510245* 00 . 31426992 + OD ^56J 5b27 + D0_ 
.§7893 503*00 ,1 16S2225*C:i ■ .l‘339'738S*S'l 
.I6383442*Dl_,p676933*Ql +1^460JD*Ol 
^2S'af3l77+ill i2lblii49S+Di ^22296982*01' 
.23313097*01 .23699888*01 .23373996*01 
.240'OOdOD*OT';240DODOtr+ai .24000000*01' 
.24000000*01 _.240DOOOD + Ol .24000000*01 
.2400d'0Qd*dl .24dDQOOO*dl .24 do 0000* 01' 
.24000DCOj;01 .J4D30£00*C1 .2433CpD0;^l 
’ .240DQDCC*Ci ■.2*4000000*01 . 24CdD0dd*01 ' 
.2400DOO0*CJ^ .24000000*0^ .24300000*01 
.24 Odd dfo *01' . 2 4 00 '000 0 *01 .24 do DO DO* 0 1 ■ 

.6QdDnadD*ci . 60 cojiDoqj*oi . 60 dQoqoo*oi 

, 6d0'00 D 00 ♦ 0 r . 6 0 DO 0 Ddd «0i .'6C U d DDOO * □ 1 ■ 
.60000000*01 .60000000*01 . 60000000*01 
.6df>ddC00+dl .6003 0000 *01 .603dCDDD*0'l*' 
.60000000*01 .&OQaOQOO*01 .60000000*01 
.6Da03D'da+01 .60d3Dada*Cl''.'63 3 3d000^3l' 
. 60000 000*0 1 .6000 000 DjJD 1 .600 000 00*01 
.59993708*D'1 .59957247*01“ . 5938 40l'3*'01 
.59641594*01 . 59477100*01 .59286683*01 
t S8836’'2 97+ 0 1 “.'5 858023 S~ 01 ^ S8 3 0 60M* 0 i“ 
.57713621+01 .57392761+01 .57363711+31 
,S63T8‘54l*T3 i .56025&3l+ai .SSSbl^B+a'l 
.54994441+0 1 .54581881*01 .54221053*01 
■ .535li'24f*'0r'.53i6S385*0l .52827659*01 
.5218 2993+ 01 .51 87933 0+01 .51590343+01 
■;31Q53’517“«Q1 ■.5d828863+di .50616266101* 
.50264507^ .5Dy9486 + qi .50024620 + 01 
. 4 99 1 2*0 16+0 1“~. 4 992 377 3 Ic I " 53 33 46'5'3 *3 1 
.50386708*01 .50669929*01 .51007380*01 
.5rs3il79*Cl ;523l35iO*0T. .5283632l*aT 
.53996398*01 .54634883*01 .55294433*01 
■" T5 6 6 6 94 40*01 "?T3 B 4 6 6 7 * 01 5 80"7 22 0 9* □ 1 

.59373530*01 ,59879149*01 .602710U+01 
■.&0922922*Dl“;6i224563'+0I ' ,6151'23 96*0 I 
.6 2053 987*01 . 6231 0433*01 ^62558419*31 

■ .630300 87*01' .63253413*01 .639675S'l*01 
.63863122*01 .6 409 0580*01 . 64_ZCC^26*0 1 

■ . 6 44 4 7 9 89 +'0 1 . 6 4 5 1 5 1 17 ♦ 0 1 Vf.4 53 00 C 0*'o 1 
.64530000*01 .64530000*01 .54530000*01 

' .'64S30OC0+D1 .64530000*01 ';6453C0DQibr 
.64S3D0qpj^l .64S3CqD0+Dl_ .64530000*01 

l64 53DC'b0,Ol" .6453D0DD.pi .6453CDDD*Di 
.64530 000 *01 . 6453 00 00*01 .64530000*01 
.64533000*01 . 64 53 0030 *01 ' .6453C3d'C*oT 
.64530000*01 .64530030*01 .6453C03D«Ql 
■' .64530000*01 .64530'OOD*D1 .6453tO0o*b'l 
.645300DO^DJ^ .6453PO00+01 .64530000*01 
.64'S3Gb00*Cl .64530000*01 .6453G0a0*0l' 
.6 453300 0*01 .64530000*01 .64530300*31 
764 5 30000*01 .645300d'b*bl .'6453^C00D*bi 
.64333003*01 .64530DD0+01 .64530000*31 

■ .6453'bDCD*01 .64530000*01 .64530000*01 


l3SO- 


.30463635*02 

.344900 82*02 

.77866 800 *00 
.14967089^01 
.19890973*01 
.'22S626EIO*01 ■ 
.23981811+0^1 
.2400dCbQ+Dl 
.24000000*01 
.24oaoadd*Qi 
.24000033*31 
.24b'5dco'aiQ'i ■ 
.24000000*01 
;24bDdGP3-.bl ■ 
.60000000*01 
.63000000*31 
.6nOOO_QCQ*01 
76ddOOOQ3*oV 
.600DOOOO+31 
.6odo6co*d*oi 
.^ODDCOC£*01^ 
.597779'92ibl 
.59072418*31 
,58015628*01 
.56725104*31 
VSS3Q699i*0l' 
.53863657*01 
•S249963C*0i 
.51317750*01 
T504274737oT 
.49952242*01 
.50 162761 «or 
.51395319*01 
.S3396325+Q1' 
^5«^337*D1_ 
,5874 3638 *01 
.60605449*01 
.5 1788353 *di 
.6279J3n4»0i 
.6367l'342+ai 
^643^8492*01 
.6453oabo*ni“ 
.64530000*01 
.645 30033+31' 
.64530000+01 
. 6453CCdb»0i 
.645300 00*01 

764530000 * 01 ' 

.6_453C0D0^Q1 

.64530000*01 

.64530003*01 

.64530000*01 

_.6453CPq3*31_ 

.64S3G0DC*D1 

.64530000*01 

.64530000*01 



PaTEHTIt.L FLOtf - EDOF RELEASE Z 


.6>(S3aQC0*01 

.6'j53DOD0»O1 


.97735076-01 
.7M 17929*00 


, 10535091*01 
.11613156*01 


.11798614*01 

.10eQiD07«Dl 


. 10063651*01 
.99069 3 07* 00 
-98973750*00 
.98971246*00 
.9a9 715~66*'C0 
.98990472*00 
-.98^59530*00- 
-.98965283*00- 
-.98970896*00- 
-.98970924*00- 
-.93966527*00- 
-.98813342*00- 
-.97413240*00- 
-.93324995*00- 
-.91889130*00- 
-.92971540*00- 
-.95175622*00- 
-.98385019*00- 
-♦10273045*01- 
-.10810003*01- 


-. 11427445*01- 
-.12071184*01- 


-.12597780*01- 
-.13605 262*01- 


-. 14251488*01- 
-.13045140*01- 


-.10005593*01- 
-.30708 806*00- 


.95039063*00 

.12120775*01 


.12048752*01 

.11839457*01 


.11644032*01 
.11430560*01 
.10714438*01 
.10463384*01 
. 10339083*01 
.10263546*01 
Ti02f2e23*01 
*10176601*01 


.10149585*01 

.10128576*01 


.10110899*01 
. 10096146*01 


.10072711*01 
* 10051283*01 


.10039126*01 

.10032484*01 

.10031608*01 


.6 45300 0 0*01 .645 30000*01 .64530000*01- 


,,28777923*00 

.35031389*00 


.10933995*01 

.11720145*01 


.11664785*01 

.10483549*01 


.99935734*00 

.99010552*00 

.98972207*00 

.98971221*00 

.98972425*00 

.99017675*00 

.98861033*00- 

.98366716*00 

.98970984*00- 

^98970738*00- 

,98959948*00- 

.96641323*00 - 

.95733125*00 

.9237663S*00- 

.92024954*00- 

.93430029*00- 

.95BSOI28*00' 

.99357280*00- 

.10395717*01- 

.10958819*01- 


.11588161*01- 

.12229894*01- 


.12857385*01- 

.14072507*01 


.14076150*01- 

.12534653*01- 


.87358004*00- 

.40738975-01 


.11138361*01 

.12146721*01 


.11997396*01 

.11788786*01 


.11596560*01 

.11296806*01 

.10629126*01 

.10425292*01 

.10316951*01 

.10249073*01 

.10202670*01 

.10169132*01 


.10143871*01 

.10123975*01 


.10107809*01 

.10090960*01 


.10066237*01 

10047592*01 


.12037013*01 

.10031592*01 

•10033257*01 


.46257190*00 

.93567616*00 


.11236995*01 

.11773832*01 


.11517930*01 
. 10299242*01 


.99478371*00 
.98987041*00 
98971590*00 
.98971252*00 
.98974319*00 
.99078462*00 
.98932934*00- 
.9fl970097»a0- 
.98971011*00- 
.98970294*00- 
.98943573*00- 
.98361813*00 - 
.95899898*00- 
.92326570*00- 
.92250402*00- 
.93951050*00- 
.96548425*00- 
.1004 0089*01- 
. 10527922*01- 
.11111877*01- 


,11749613*01- 

-.12386766*01- 


.13029822*01- 

14317451*01- 


-.13818800*01- 

.11839759+01- 


-.71681361*00 

.25315965*00 


. 11760308*01 
.12131586*01 


.11944400*01 

.11739496*01 


^11547462*01 
.11048596*01 
.10562431*01 
.10392553«0 1 
,10297217*01 
. 10235901*01 
.10193301*01 
. 10162173*01 


. 10138490*01 
.10119528*01 


.101048,49*01 

.10085308*01 


.10360465*01 

10044375*01 


.10335207*01 

.10031 068*01 

^10036948*01 


.61509950*00 

.1002159^*31 


.11460566*01 

.11783253*01 


.11216049*01 

.10163234*01 


.99206452*00 

. 98977569*00 

98971342*00 

.98971365*00 

.98979010*00 

.-99206161*00 

.98956539*00 

.96970662*00 

,98970991*00 

.98969200*30 

.98903671*00 

.97955219*00 

.94729112+00 

.91876866*00 

.92579438*00 

.94532875*00 

.97402675*00 

.10151496*01 

.10666164*01 

.112e837&«0 


-.11910885*01 

■.12542202*01 


■,13236408*01 

-.14338209+31 


-.13477921*01 

.11022068*01 


.53239392*00 

.60299245*00 


.12014840*01 

.12095390*01 


.11891464*01 

.11691399*01 


.11493931*01 

.10829748*01 

.10508351*01 

.10364082*01 

,10279514*01 

-10223863*01 

.10184639*01 

.10155673*01 


.10133399*01 

.10115053*01 


.10100852*01 
-10079207* 


.10055537*01 

.10041568*01 


,10033696*01 

.10031011*01 

,10045893*01 


DATE 053177 





- 3SS- 


POTENtliL FLQV - EODF RDLCASE 1 D*TC C53177 


.lQQ6B'ia2*01 

_ .I3H31 *tD3*01~.23T95319*00 .17321I&9-01 .<i2DT9657-ai 
:5?rd7636-0I .63202156-01 .69368167-01 .72893977-01 
.76355895-01 .79053253-01 . Bl 190369-01 .82702577-01 
.83831595-01 .89602555-01 .85078239-01 .85309386-01 
.85367858-01 .85906938-01 .85739510-01 .80601826-01 
903-0 1' ";7 9832 797-01 ,73336930-01 .72602399-01 
.72098262-01 .71590380-01 .71358689-01 .71175370-01 
.71069550-01 .71012967-01 .70991205-01 .70983960-01 
.70981219-01 .70980156-01 .70983391-01 .70989585-31 
.Tlll0B379-01 .71057197-01 .71178509-01 .71983761-01 
.72236910-01 .79092351-01 .78685892-01 .90111777-01 
.11877 9 99* bo .19220799-00 .33818972»00 .18657961*01 
.39662996*00 .11889306*00 .889 8 0809-02-. 37833169 -01 
57392799-01-. 653901 62-ai-.686eS239-al-. 70031 183-01 
-. 705807 12-01-,708DS930-01-.7D89992S-D1-. 70939368-01 
-.70957 763-01-. 7D96S838-Ci-.709'702l 1-0 1-. 70972377-01 
709729SQ-0 1-.7Q9706I9-01-. 7096 1963-01-. 70990165-01 
’"-77088aS23-Ql-,7Q7fl5759-01-.7361Sai9-01-. 70367950-01 

7J[^0 39 1 20-C1 -. 69608571 -D1-.6 9D0 6 8 36 *01-. 688 0 6036-01 

-r669^8b2-Oi-.65S79 0a2-Ol-.'6&Ct530S7-01-.66020769-ai. 
66092S02-01-. 6629 3579-01-, 6696 1589-01-. 66735823-01 
' -;67QS9 6Z5-01-.67928603-Ql-. 6789 0a27-iTl-. 6829 1 626 -01 
68786 762-0 1-. 69323360 -DI-. 6993 9723-0 1-. 70533 182-^1 1 

— -.Ti^0Wfi5=6P7m7^re=5r-:t27rsy66-01-;>355^^^ 

-.79910695-01-. 75353E6S-0l-.76392957-ai-. 773 72095-01 
=;7B995Z28-0I-, 79=5961 7 -Q1-. 80710672*0 1-, 81899275-01 
-.831 07255-Dl-.89399715-0i-, 85609990-01-. 86883919-01 
B51 S 9XT8r=^ 1 -76^fSlTJ'9Ti 93 B 6 9 J3a -ll I - . 9 22 7 1 2 12 -3 1 
-.9376QD99-DI-.9S389O29-01-.97Z66313-Q1-, 99797162-01 
”'Tra’f9T(r9TrffB^;TSe28se9*eo'^Till97B96*iro-. 1 i375i59*oo 

-.1152593e*0C-.11652995*0a-, 117679 60*00-. lie79595*0D 

— 

-. 125 91 Z99*CC-. 12677357*00-. :277636?*3C-.l?90r62S*0C 
' -.12731 039*00-. 1 2529 92 1 *00- . 1293 9625*00-.; 297 1 196*00 
-.11335002*00-. 9 3799939-01-. 7773 1029-0 1-, 65501968-0 1 
-.SSBZrVtlV-Dl-. 9 7932322-01-. 4082075 0-0 1-. 3539 8036-0 1 
-.3DT569JB-Dl-.2 6e3S771-ni-,2350 2816-0I-. 20591787 -01 
-.15B91895-01-. 15791019-01-, 1379C869-Q1-. 12002580-01 
-. ia395580-Dl-.B 999 5002- 02 -. 76 292 269-D2-. 69279613-02 
-.S9SS371D-02-.99676363-02-.3087S895-D2-. 29729770 -02 
798 0020-02-, 12255739-02-.72DS9955-D3-.26995502-03 
'.13760977-03 .50929189-03 .85381160-03 .11671651-02 
,19619598-02 .17389756-02 .19989926-02 .22957987-02 
;29BD9999-02 .27058087-02 .29218355-02 .31301221-02 

.333167 15-02 . 35278 999-02 .3 7192591- 02 .39072796-02 

'.90918179-02 .92795592-02 .9“9557l66-02 .96359969-02 
.98160232-02 . 9 9958579-02 .51750690-02 ,53530966-32 
.55302697-02 .57038721-02 .56670379-02 .59768632-02 
.60220398-02 .61783260-02- .69369262-02 .67195296-02 
.70071556-02 .77966506-02 .77652056-02 .32883816-02 
895 IS 1 87- 02 .97 635 221-02 . 106899 56-01 ,3 1 719B76-DI 
;i28W9 15-01 .19199671-01 . 1S61B'983-D1 -17305175-31 

19263698-01 .21562170-01 .29295611-01 .27592679-01 

^31638557-03 .36710971-01 .93238176-01 .51930837-01 
.69C5S2C3-CI Blir92679*0D .17083317 *00 

, 29251 HOO-i^DO ■ ■ 




3sa 


POrENTIAL fLOV - EODF RELEASE 2 


-. 20 S 0303 B + 0 J- 
- » 155 DmB 7 *D 2 - 
-.Z 1962 S 39 *C 2 ' 
2 ‘•^ 1152 ^ 02 ; 

-.25s0eD72*02- 

2253 ;«l 77*02 


-. 20996611*02 
-. 20 670283 « 02 - 
20 6 50 7 95*0 2 - 
-. 20699 733 * 02 - 
‘ 9 . 2 a' 6909 C 7 * 02 - 
^03 053 67 * 02 - 
.■ 2626'6 974*02 
. 20759150*02 
. 20613605*02 
. 2065 C 35 S*C 2 
". 206992 I 9 + 02 " 
. 2061 T 3 D 7»02 
. 20326120*02 
. 19968092*02 


. 19168965*02 
-3 793 97178*02 
, 198 ' 62 116*02 
. 20539957*02 


. 21995012*0 

. 22595183*02 


. 23935060*02 

. 25900683*02 


. 27020782*02 

. 29855363*02 


. 33369199*02 

. 39732981*02 


. 38353959*02 


, 35683879*02 
. 18932657*02 


, 10930261*02 

. 70 B 21669«01 


. 97881797*01 
33107062*01 


. 22198996*01 
. 16801 1 S 9«01 


. 13559201*01 
. 1137229 9*01 
■7981991 66*00 
. 86717135*00 


. 78020991*00 

. 7192 SSC 8 *C 0 


.670 63399*00 
. 61756536*00 


- 55589068*00 
. 5 69 96061*0 0 
. 67527398*00 
.965893 09*00 


. 18290993*01 
. 92691995*01 


-. 59906795 * 01 - 
-.177163 21 * 02 - 
-. 22797399 * 02 “^ 
-.2999 5 996 * 02 - 
', 29333929 * 02 - 
-. 21871569 * 02 - 


-. 20850892 * 02 - 
- . 20658103 * 02 - 
-. 20650126 * 02 - 
r. 20699387 * 0 2 - 
-. 20627320 * 02 - 
-. 19820318 * 02 - 
. 22622157*02 
. 20692770*02 
. 20651789*02 
. 2065 0215*02 
. 20697897*02 
. 20581937*02 
■T 201 B 9873 *I ’2 
. 19252190*02 


. 19197938*02 
■ 19993999* 02 
, 20008111 * 02 " 
. 20739769+02 


. 21711717*02 

. 22919866+02 


. 29291699*02 

. 25789163*02 


. 27996951+02 

. 31292091*02 


. 33773559*02 

- 35372380*02 


9171*02 
. 38091199*02 


. 29992993*02 

. 15989636*02 


. 97979268*01 

. 69090727*01 


. 93571663*01 

. 30097376 * 01 - 


. 20503859*01 

. 15850556*01 


. 12931939*01 

. 10936186*01 

, 95036279*00 

. 89317977*00 


. 76190555*00 

. 70069829*00 


. 65895919*00 

. 6 D 391128 *'tJ 0 


. 55861375*00 
. 5855871 9 * 00 _ 
. 72532512^^0 
. 10952195*01 


. 23310531+01 


-. 96319298 * 01 - 
-. 19 999056 * 02 - 
■,23»3r96SV02^ 
-.295 5 8730 * 02 - 
-. 29328179 * 02 - 
21 187929 * 02 - 


-. 20755973 * 32 - 
. 20553 21 2 * 02 - 
■. 2 D 6999 e 0 »DZ- 
-. 2059 8 521 * 02 - 
-. 20593513 * 02 - 
-. 18737902 * 32 - 
'.213321 80*02 
^ 056831 ^^ 
. 20650969 * 02 “ 
.2365 0058*02 
- 20 ' 69'99 79 * 0 Z' 
. 20523297*02 
. 20310002*02 
. 19195690*02 


19297616*02 

. 19602931*02 

. 3 bl 69 SBll*D 2 ' 

. 20959929*02 


21993012*02 

. 23295539*02 


. 29655090*02 

. 26177826*02 


. 28095398*02 

. 32336896*02 


, 39152103*02 
.3585 69 99*02 


7996615*02 
. 38139797*02 


. 25128825*02 
. 1398 1370*02 


. 87325298*01 

. 58031106*01 


. 39582116*01 

. 26271959*31 


. 1909 6596*01 
. 15302969*01 


. 12369615 +OX 
. 105 39292*0 1 
, 92099906*00 
. 82075219*00 


. 79982760*00 

. 68896165*00 


, 69956809*30 
. 59010983*00 


.556 71297*00 
. 60788800*00 
.7873 2930*00 
. 12660931*31 


. 31598735*01 


-. 12809856*02 

-. 20 38857 1 *02 

-, 23900526*02 

-. 29579999 *02 

-.2339a'9:6*32 

-. 21209099*02 


-. 23698873*32 

:^ 0 ^ 1 292*0 2 
-. 20599883*02 
-. 2069639 8*02 
^ 20509890*02 
-. 16969520*32 
. 20910358*02 
, 20657856*32 
. 20650573*02 
. 20699796*02 
. 20636152*02 
. 20938697*02 
. 19786528*02 
. 19165597*02 


. 19319751*02 

. 1 9725088*02 

. 20395092*02 

. 21199853*02 


. 22287579*02 

. 23585959*32 


. 25029690*02 

. 26586903*02 


. 26751129*02 

. 32901119*02 


. 39531656*02 

. 35383812*02 


. 38319395*02 

. 38689957*02 


. 21996216*02 
.1232 2265*02 


78520719*01 

. 52675852*01 


36151013*01 

, 29133792*01 


. 17879365*01 
. 19291197*31 


. 1 1896892*01 
. 10162975*01 
. 89286271*00 
. 79979579*00 


. 72898193*00 

. 67870891*00 


. 63079096*00 

. 57700399*00 


. 56099593*00 

. 6377 0 936*00 

. 86579396*00 

, 19985939*01 


. 99703093*01 


DATE 053177 



OiTE: 0S3JT7 


POttNtl*L FLOW ~ EODF RElCASfe 2^ 

D'OUGLiS^ AIBCrVft’ ^ CO^HPANf ■- ’*“■*" ' 

LONE 3H*CH DIVISION 

TEST CiSF “RELEASE 2.0 ‘ 2-^0Dv“ “c*SE“m^ BFOCI PSF = 


OFF-BODY UNIFORH AXISYHt^TRy: FLOV 
TSaNSFoRMED CbOBOlNAtES 



X . 

r 

vx 

VY 

VT 

THET* 

PHI 

1 

-.5CCQOOO 

.0000000 

1.0336591 

.0000000 

1.0336591 

.0000030 

.0000000 

2 

-.SODODOb 

-7222222 

1 .0330983 

-.0120317 

1.0331683 

-.6672470 

.0000000 

3 

-.5DOOODO 

1 

1.0310823 

-.0253577 

1.0313941 

-1.4388063 

.0000003 

4 

-.5CC000D 

16&666& 

1.0264089 

-.0414884 

1.0272471 

-2.3146879 

.0000000 

S 

-.50Q0D00 

2 .6888889 

1.0161811 

-.3623453 

1.0180918 

-3.513 8408 

.OCDQDDQ 

& 

-.S'OdQObC 

3.5111111 

.9933906 

-.0900277 

.9974618 

-5.1783831 

.ODDOOOO 

7 

• -.5CQOODD 

>1.3333333 

,9399606 

-.1229830 

.9479799 

-7.4540875 

.ODCOOOO 

a 

-.SGcboda 

S.0S55SS5 

.8140050 

-.1256514 

.8236458 

-8.7750275 

.0000000 

9 

-.scbDbac 

S.77T7777 

.69Di083 

.0774861 

,6944447 

6.4064007 

.0000000 

To 

-.SQGbbDb 

6.9999999 

.8722401 

.1858291 

.8918156 

12.3259439 

.0000003 

11 

.Qcoooac 

.0000000 

1.0503445 

.DOGDOOO 

1.0503445 

.DObOOOO 

.0000000 * 

12 

•bbbGbbb 

.6111 in 

I.0S'a42S6 

-.3134217 

1.D5D4773 

-.5684384 

.0000000 

13 

.0000000 

1 .2222222 

1 .0505719 

-.0218462 

1.0507991 

-1.1913765 

.0000000 

i<t 

.bbobbb'o 

1.8333333 

1.0S044SO 

-.0354844 

1.3 510441 

-1,9347386 

.0000000 

15 

.oocoood 

2 .9<)9<l<ii|9 

1.0492753 

-.0530308 

1.0506146 

-2.8932928 

.OGODOOO 

l6 

.0000000 

3.LD5SS55 

1.0453252 

-.0772361 

1.0481747 

-4.2257433 

.DDOOOOO 

17 

.0000300 

3.6666666 

1.0342607 

-.1130684 

1.0404229 

-6.2389638 

.DOOGOOS 

IB" 

.QODODOO’ 

4.2777777 ~ 

1.0034192 

-.1702157 

1.0177541 

-9.6277568 

.0000000 

19 

.OOCEOOO 

•i.asBseas 

.9063254 

-.2663137 

.9446421 

-16.3748410 

.0000000 

20 

.OODCnOD 

5.4999999" " 

.4837141 

-.35r7357 

.5980780 

-36.0230098 

.0000000 

21 

.5000000 

.roDoooo 

1.3667746 

.3303000 

1.3667746 

.OOOODOO 

.0000000 

22 

■ 50000 00 

.5692158 

1.G67329Q 

-.0051477 

1.0673681 

, . -.4910484 

.0000000 

23 

.5003300 

1 .1384317 

1.0689968 

-.0191655 

1.0691686 

-1.0271143 

.0000000 

2V 

.50COODD' ' 

1.7C76475 

I.071794X 

-,031"ffe9r'" 

I707224Ti 

-1.6615290 

.□□00000 

25 

.5000000 

2.2768 634 

1 .0757540 

-.0463715 

1.0767S30 

-2.4682676 

.0000000 

26 

.5 000000 

2.8460792 

1.0839296 

-.3673610 

1.0B3d2&4 

-3.56S9Z5Z 

.OOOObuu 

27 

.5000000 

3.415295C 

1.0873748 

-.0984435 

1.0916219 

-5,1730664 

.0000000 

2 a 

.5GC03DD 

3.9845109 

1.0949692 

-.1491651 

1.105D8Z7 

-7.7575160 

.0000000 

29 

. .5000000 

4 .5537267 

1.1024600 

-.2445732 

1.1292627 

-12.5031081 

.□□ooooo 

‘3b 

.5000300 

5. 1229426 

1.1D7736B 

-.4696878 

1.2031988 

-22.9772716 

.0000000 

31 

l.OCGOOQO 

.CODOGOa 

1.C814959 

.DGDOOOD 

1.3814959 

.0330000 

.0000000 

32 

l.OCCOOCO 

.5472980 

1.0824505 

-.0074334 

]. 0824760 

-.3934539 

.0000000 

33 

1.01)00000 

1.G945963 

1.0353823 

-.3155676 

1.0854936 

-.8217344 

.OC00330 

3l 

i.QoboOob 

1 ,6418940 

1 .C905210 

-.0252099 

1.0908124 

-1.3242B71 

.0000000 

35 

l.OODCOOO 

2. 189192D 

1.C983595 

-.3374230 

1.0989969 

-1.95140B7 

.0000000 

35 ■ 

■ l.DOCOODO' ■ 

2.7364900 

l-lb9B9'28 

-.0537873 

1.1111953 

-2.7744786 

.0000000 

37 

i.acoDooo 

3 .2837879 

1 . 1272250 

-.0769320 

1,1298472 

-3.9043250 

.0000000 

38 

l.t'LDQOOO 

3 .8310859 

1.1552685 

-.Iil74zr 

1.16E663D 

-5.5246867 

.0000033 

39 

1.0000000 

4 .3703839 

1,2072065 

-.1684752 

1.2189059 

-7.9447651 

.0000000 

^0 

i.cBcoBOo 

4 .9256819 

1.3228879 

-.2712187 

1.3504044 

-11.5862353 

.0000000 

41 

1.5000000 

. COOOOOD 

1.C930679 

.ooooooa 

1.0930679 

.0000000 

.0000000 

92 

•1.5000000 

.5370722 

1.0943445 

-.3352192 

1.3943570 

-.2732558 

.coooooo 

93 

l.SOQODOD 

1.0741443 

1.C982732 

-.01 09 4 00 

1.0983277 

-.5707109 

.QDDOODQ 



553 ' 




POTENTItL flow - COOF RELEASE 3 



^ • 



DATE 053177 

OOUCIAS 

LC-NS 

AIRCRAFT COFFAHT 
BEACH DIVISIOH 







TEST CASE RELEASE 2.0 


2-BODT 

CASE HO* 

BFOCl 

?SF = 



OFr-BODT OSIFQRH I^YS^HKETRIC FLOW 


transformed cooroihates 






• 

K r 

?x 

VT 

WT 

theta 

PKI 



A*t 

I*5DG0QDD 

1.6112165 

1.1051833 

-.0177010 

1.1053270 

-.9175864 

.OCOGDDD 


'TTS 

i.ibonoOo 

2.1482886 

1.1157653 

-.0261169 

1.1160709 

-1.3408843 

.0000000 


AS 

1.5GDODOO 

2.6853608 

1.1313244 

-.0369116 

1.1319264 

-1*8687215 

.□OCOOOO 


A7 

1.5QDDDD0 

3.222A329 

1.1S4AC4A 

-.0508766 

1.1555250 

-2.5234589 

.□ODODOO 


AS 

i.5Doooao 

3.7S95051 

1.190191T 

-.0684415 

1.1921579 

-5.2911446 

.0000000 


*19 

l*SC0u33O 

4.2965772 

1.2SD1SD9 

-.0874109 

1.2532031 

-3*9996257 

.0000000 


50 

l.SaQDO.DD 

A .8336493 

1.3645391 

-.0916974 

1.3676167 

-3*5445136 

.0000000 


51 

1. 6980000 

.0030003 

1 .0764999 

•3000000 

1.0964997 

.0000000 

*□000000 


52 

1.69EQ00Q 

.5354972 

I. D97B8I2 

-.0042163 

1.0978893 

-.2200387 

.0000000 


53 

1.69600QC 

1.07099AA 

1.1021280 

-.0088535 

1.1 02 1635 

-.4602424 

.CQOQDOO 


sn 

1.69eQQD0 

1.606A915 

1.1095825 

-.3143419 

1.1096752 

-.7435337 

.0000009 


55 

1.6980Q0O 

2. J419BS7 

1.1205418 

-.0211240 

1.12114Q9 

-1.0796047 

.0000000 


5& 

1.6980000 

2.6774859 

1.1375048 

-.3296134 

1.1378902 

-1.4912788 

.0000000 


■ TT-“ 

l.69800CP^ 

3.2129831 

i. 1616735 

-.0400007 

1.16Z362S 

-1.9721260 

.0000000 


SO 

1.69803DO 

3.7484833 

1.1979654 

-.3514842 

1.1950711 

-2.4508490 

.0000000 


¥? 

1.6980000 

4 . 23 3 9 77A 

1. 254 9 434 

-.0592342 

1*2563405 

-2.7023945 

.0000003 


6C 

1.69800Q0 

4.8194746 

1.3476230 

-.0398122 

1.3482107 

-1.6921703 ' 

.0000000 


Si 



1.1014600 

.0003000 

I.10146DO 

.0900000 

.0000003 


62 

2.6980000 

.5304882 

1.1031130 

.0016475 

1.1031142 

.0655697 

. ,0000009 



2.6930000 

1 .0639764 

1.1381263 

.0332144 

1.10B1339 

.1661983 

.0030000 


6A 

2.6980000 

1.5914646 

I. 1166773 

.0047012 

1.1166872 

.2412119 

.0000000 


65 

2.6980000 

2.1219528 

1.1291025 

.0062877 

1.12912D0 

.3190653 

.□OOODOD 


66 

2.6980000 

2.6524410 

1.IA59281 

.0084766 

1.145';S94 

.4238167 

.0000003 


61 

2.6980000 

3.1829292 

I. 1678213 

.0123254 

1.16738S3 

.5046879 

.0000003 


6S 

2.6980000 

3.713417A 

1.1952677 

.3197832 

1.1954314 

*9482328 

.0003300 



2.6980000 

4.2439057 

1-2275540 

.0338500 

1.2280206 

1.5795395 

.0000300 


7C 

2.69BOO0D 

4.7743939 

1.263996S 

.3571151 

1.2622596 

2.5933624 

.0000000 


71 

5.69BG0QD 

.0000000 

1 .0832642 

.DOOOOGO 

1.0B32642 

.0000003 

.0000000 


72 

3.6980000 

.S39’4769 

i.oasDsoi 

,3081546 

1.0850507 

.4305925 

.0000000 


?i 

3.69BU00D 

1 .0789537 

1.0903412 

.0162325 

1.0904620 

.8529328 

.0000000 


7 A 

3.6980000 

I .6184306 

1.0989587 

.0242936 

1.0992272 

1.2663762 

.0000000 


T5~ 

3.698005(3" 

2.1579075 

1.1106556 

.3325398 

1.1111351 

1.6533176 

.0000000 


76 

3.6980000 

2.69T38AA 

1.I2S1373 

.0418740 

1.1259162 

2.1313790 

.DOOCiDOD 


Tt~ 

3.6980000 

• 3.2368612 

1.1420099 

.3528982 

1. 1 43234 4 

2.6520613 

.DCCCIOOO 


TB 

3.69B0D0D 

3.7763381 

1.160643S 

.0668136 

1.1625654 

3,2947502 

.ooooooo 


t? 

3.6980000 

4,3158153 

1.1 BOO 432 

.3846714 

1.1S30T7D 

4.1040994 

.0000000 


SO 

3. (.930000 

4 .855 2918 

1.1989687 

.1073368 

1.2037485 

5.1035713 



SI 

11.6000000 

2.6458126 

1.0779491 

,0378474 

1.C7B6133 

2.0108632 

.0000000 


62 

11.6000000 

2.9904785 

1.05033S1 


1.0 516425 

2.8540101 

.DDOOOOQ 


63 

1 1.6000000 

3. 3351 44 A 

I. 0288601 

. .0558500 

1.0303745 

3.1071604 

.0000000 


BA 

11.6000Q0D 

3.6798103 

1.0116830 

.3546139 

1.0131560 

3.0900119 



8S 

11.6000000 

4.024 4761 

.9975126 

.0510617 

,9985157 

2.9303558 

.0000000 


S6 

11.6Q0D0QD 

A .3691423 

,9854253 



KmrrnTH 







POfENTIftt F^LOW - EODF~Rf LEASE 2 


DOUGLAS aircraft COHPANT 
L_OMB_ BEA CH DIVISIOH 


TEST CASE RELEASE 2,6' " 2-BOOT CASE NO. 


OFF-BOOT UHTFDRn AAISYHMETRIC FLOW 
T R Ah'S F'ORH E D~"C OOROINATES 


)t -- - y TT ' Tf 



07 M.SCOOOOa >1.7130079 .97M7L86 .0903706 .9755893 

■ 6T“ llVGCCOaffD *■ S .05a'473'S .9S99790 ‘ .0335968 .9655569 

89 11.6000000 5.9031397 .9556886 .0252990 .956023* 

90 ji. 6000000 5.7978055 “ ' *.99 69892 ~ .0199163 .9965990 





PoTENTIVl Flow - EODF'RELCASE 2 

- . ^ ^ oDUGIsS ’ AIRCRAFT COHPANt’ 

LONG BFACK _ DiyiSZOH 


□ATE 0S3177 


TEST Ca'sE REt'EASE ' ?.□ 


. 2-80 DT CASE NO. BFOCl PSF - 


OFF-SODT STRIP VOBTES Ft OR _ _ 

■ fRAMSFORHEn'tOORDl 

“■ T ■ wx yy ' ~ Vf " "Thet a ' PHI 


1 

2 

3 

q ■■ 

5 

6 
? 

' B ■ 

9 

IC'" 

11 

-.5000000 

.□000030 

.0563280 


.0563286 

.0300000 

»GCDCDOO 

-.BCCODOff'’’ 
-.5CODDOO 
* -.BOODDbO 
-.5000000 
-.50CDD0Q 
-, 5C0G0Q0 

-.socboo'c 

-.5CG3DQO 

-.50000 no 

.ODCDOOO 

.722222? 
1.9999499 
2. 16' 6 66 6 
2 .66^889 
'3.6111li» 
■I. 333 3 33 3 
s.osss'ssV 

5.7777771 

.0564151 
.0566649 
. 05 f 09 02" 
„aS7424: 

-.0039583 
-,3371937 
-.□I 19909 
-.3166579 

.0565209 
.3571193 
.0581763 
.0597919 ~ 

-3.5079299 
-7.2321088 
- 1 : .3916313 
-16.1767C13 

.0000000 
.0000333 
.ODDGITOO 
. 0000000 

.057945" 
.0538125 
■ ".'09 '73481 
.0170399 
-^0327083 
*□609865 

-.0236127 

-.33373J5 

-.0939096 

-.0576301 

*■-,3337595 

.0000000 

.0621096 
.0652139 
.0680734 
.0600999 
.0338679 
. .0609865 

-2'2. 3997911 
.-31 .1976219 
-95.9293792 
-73.5332689 

.0000000 

.□OQGODO 

•DCDODOO 

.□COOOOO 

6.^1999999 

} .tcooooo 

-99-5862069 
.000 0000 

.OEOOOOO 

.OCOODOO 

' 12 

.Eorcooc 

,611 lUl 

0611229 

-.3327956 

.0611891 

-2.572 0113 

.0030000 

13 

.0000000 

1 . 2222222 

.0615379 

-.3056761 

.0617991 

-5.2699091 

.ooncooo 

1*. 

.0000000 

I.S 733333 

.0622570 

-.0088970 

.0628895 

-8.1329192 

.0000000 

IS 

.0000000 

2.9999999 

.0633237 

-.0126967 

.0695792 

:-ll .2992163 

.0000000 

16 

.0000000 

3.CS5SS55 

.0693092 

-.0173097 

,0673799 

-29.9509091 

.0000000 

17 

.DOOQDOO 

3.6666666 

.0667750 

-.3235769 

.3708150 

-19.9970792 

.0000003 * 

18 

.000000 o' 

9.2777777 

.0692123 

-.0330063 

.0766796 

-25.9957387 

.0000000 

19 

.OCOODOO 

9.8BS8BBS . 

.071253: 

-,0997586 

.3869076 

-39,9279699 

.0030000 

20 

.0000000 

5.9999999 

.0516581 

-.0905523 

,1095511 

-55.7986119 

.COOOOOG 

21 

. .5OC0Q00 

.0030033 

.0652635 

.0003000 

.0652835 

.DOOOOOO 

.0000000 

22 

.5000000 

.56921SS 

.0659597 

-.0022890 

,0659997 

-2.33?6990 

.0CDD3O3 

23 

.5COOGOO 

1.I3B931T 

,0660022 

-.3097216 

,0661708 

-9.0:;1799D 

.0000000 

Zk 

.5CC00Q0 

1.7076975 

.D6695T0 

-.3373906 

.0673582 

-6.2569017 

.0000000 

2S 

.5D0C0DC 

2.2766639 

.0689169 

-.0102998 

,0691366 

-B. 5572321 

.0000000 

2* 

.5000000 

2.8960792' 

.37_9Sa7 

-.3137958 

,0718869 

-11. 369287*; 

.0000000 

27 

.5000000 

3.9152950 

.0736838 

-.0182019 

.0758987 

-13.87589C7 

.0000000 

26 

.5000000 

3.9^95109 

.0789813 

-.0292080 

,0821300 

-17.1926907 

.0000000 

29 

.5CC0000 

9.5537267 

.0865196 

-.0333760 

,0927293 

-21.3958283 

.0000300 

30 

.5000000 

5.1229926 

.1028286 

-.0999769 

,1191126 

-25.699 9556 

.0000000 

31 

l.OCOOOOD 

.0000000 

.0693438 

,3333D30 

.0690938 

.3030000 ' 

.0000000 

TT2 ' 

l.OUOOOSTi 

.5972nBD' 

.0692979 

-.0018573 

.0692728 

-1.5363955 

.0000000 

33 

l.OOOQQDQ 

1 .D9959o2 

.0698756 

-.3336233 

.0699831 

-3.1318929 

.0000000 

39 

’ l.OCCOOOfl 

1.6418990 

.0709799 

-,0058913 

.0712239 

-9.79 9 62'9 8 

.0000000 

35 

1.0C0D300 

2.1B91923 

.3726650 

-.0081372 

.0731192 

-6.3899880 

.0000000 

36 ■ 

1.0000000 

2.736990D 

.0751207 

-.0106953 

.0756713 

-6.3656165 

.0000003 

37 

I.QQOQOOO 

3,2B37B79 

.0786977 

-.0135162 

.0798999 

-9.T4S3919 

.0000030 

36 

l.OCOOOOD 

, 3.8310859 

.0840852 

-.0168575 

.0857589 

-11.3369567 

.0D003DD 

39 

l.OOGDOOO 

9.37B3B39 

.0927631 

-.0207159 

.0950981 

-1245887682 

.DODCODO 

90 

I.DOCOCGO 

4 ,9256819 

.1380207 

-.02''?629 

.1108226 

-12.911291C 

.□DDOOOC 

91 

t.5000000 

.0000000 

.0721325 

.0032000 

.0721325 

.0000000 

.ooooooa 

92 

1.5CC0CDD 

’ .5370722 

,0725520 

-.0019293 

.0723661 

M-131699D 

.0000000 

93 

___’j^5oogpoo 

1.0791493 

.0730253 

-,0029359 

.0730893 

-2.3C227S7 






POTENTIiV fLOU - FODF RELtlSE Z " ^ 

* ' OOUPLAS ' »IRCR(lFf iotipANT ^ - - 

_LqNB_ aCACH^ DIVISION 

test CA^ PEL EASE ZVj 2^DV““ CASE" 


off-bodt strip vortex flow 



TRANSFORHEO 

cdORoi nates 





r 

T 

vx 

vr 

VT 

,««** 

1.50 coo 00 

1 .5112165 

.0742008 

-.0044720 

.0743355 

■ ;^-5 ■ 

-- T.smsost 

2.1982886 

.0759719 

-.3363574 

.D7"62i3D 

46 

1.5OCO0OC 

2.6853608 

.0784988 

-.0075304 

.0788737 

AT 

1.5000300 

3.222A329 

.3320524 

-.3392717 

.0625’\5 

N8 

!. 5000000 

3 .7595051 

.0870933 

-.0106064 

.0877367 

49 

; "1.5000000 

9 .'2965772' 

.394 4205 

-.oiioiils 

.0950613 

50 

I.SOQOOOD 

<1 .8336493 

.1356746 

-.0084258 

.1060101 

Si 

£;69800D0 

.Dcoacoti 

.0731504 

.0000000 

.0731534 

52 

i. 5980000 

.5354972 

.0733728 

-.3312611 

.0733837 

53 

I.&9Si}ddO 

1.0709944 

.□740543 

-.0025878 

.0740995 

5A 

1.69B000P 

1 .6064915 

.3752394 

-.3339204 

.0753415 

S'S' I,69ETTir£fO 

'2. 14*19887 

.0770122 

-.Q'fiS2595 

.0 771915 

56 

1.5980300 

2.5774859 

.0795138 

-.0365658 

.0797844 

'57 

... 

3'.212983T 

" ~.082969i3' 

■ -.0377268 

.0833280 

se 

1.6980000 

3.7484803 

.0877243 

-.0084535 

.0881306 

s«- 

r.rffioebir 

4.2839774 

.094 26‘4 9 

-.0379966 

.0946034 

50 

1.698000C 

4.8194745 

.1030136 

-.0040918 

.1030949 

51" 


■ ” ■■■*.003W33 ■■■ 

■ V0T6'4Si4 ' ■ 

.336'33B5' 

.3 764334 

62 

2. 6980000 

.5304882 

• Q766«i68 

-.0004275 

.0766480 

— sr 

~^~ZT6 9huDnO'^ 

' ;il053'976ir 

.0772754 

-.ODoeesg 

.0772815 

6H 

■ 2.6980000 

I .5914546 

.0783400 

-.0012738 

.0783503 

65 

276T9ai3!)ljQ 

2.1219528 

.0798580 

-.■ddlS46I 

.0798730 

56 

2.6980000 

2 .6524410 

.0818542 

-.3316137 

-0 818731 

67 

2* 69Q0UUU 

371 62 9? 

.*634 3375 

-.0013341 

.0843480 

68 

2.6980000 

3.713 4 174 

.0872572 

-.0334941 

.0872587 

*69 " 

2 . oWGirtio 

~ 4.243 9057 

.0904048 

.01311678 

.0904123 

. 70 

2.698030C 

4.7743939 

.0932856 

.3337818 

.0933622 

“*^I 

" 3.5 9 8130 01) 

.OOOOOOQ 

.0767916 

.nOQCOOb 

.0767916 

72 

3.698C0Q0 

.5394769 

.0769769 

.□00305B 

.0769776 

73 * 

T759800Q0 

I .0789537 

.5775254 

.3035762 

.0 775276 

7A 

3.5980000 

1.6184 3C6 

.0784161 

.3009115 

.0734214 

■ - 

" ” ■'3.'59TCItit5*' 

2.1579075 

.37961^2 

.3313533 

.0796267 

76 

3.5980000 

2 .6973844 

.0810753 

.0019612 

.0810990 

*77 

3.6980000 

3.2368612 

.0827264 

.302830- 

-0827748 

78 

3.698GD0C 

3 .7763381 

.0844663 

.0040456 

,0845632 

79* 

3.69goODO 

4. 315 8150' ' 

. 0861559 

■ -nCS6614 

586341T 

80 

3.598CDOO 

4.6552918 

.0876471 

.3376667 

1879818 

8' I 

13.6000000 

2.0458126 

-0764527 

-.CD1D90D 

.0764605 

32 

11.6000030 

2.9934785 

.0751585 

.3022892 

.0751933 

83 

11.6CQQ000 

3.335144 4 

.0738162 

.0031368 

.0736828 

89 

11.6EPQD0Q 

3.6798133 

.0726633 

.3333238 

.0727390 

85 

11.6000000 

4 .0244761 

.0716851 

.0032238 

.0717576 

86 

11.6000000 

4.3691423 

.070844 1 

.0029749 

.0709066 




DdTE CS317T 




POTENTIAL FLOU- EODF RELEASE 2 


POUOLAS AIRCRAFT COKPANT 
LONS BE ACH DIVISION 


TEST CASE RELEASE 2.0 2-B^Ot CASE NO. [jFOCI PSF = 


OFF-BODY STRIP VORTEX FLOW 

TI^NSFORMEO COOHOIfftTES 



X 

Y 

vr 

VY 


theta 

PHI 

87 

lliSDOGOOO 

t .7138079 

.070d939 

.0026251 

.0701931 

2.1998225 

.0000000 


1 i~* fiDCcdDo 

S.Q?aT73B 

.0699036 

.0021738 

.0699376 

1.799Q177 

•OGOCQOO 

89 

n.6000000 

5.9031397 

.0687593 

.0015820 

. 0687725 

1.3181229 

.0000000 

9D 

1 i.bODoaoa 

S.7q7'aOS5 

.0681509 

.0006926 

.0681599 

.5822360 

.DOOCCOO 









poTENTrin: Ftotr - eoof rTlexsE " 2 


date CS3177 

T3iiir6L*S STSICSUFT Eokpant 

CONG BEACH OIVISrON 





TEST CASE RELEASE 2.D 2-80DT CASE NO. BFQCl PSF = 


OFF-BDDT STRIP VORTEX FLOW 

" TIR JnS'FoRkFD tOORDi MATES ^ * - 

75 77 VT theta phT 


- .5000000 .0000000 -1 5.939777 6 .0000000 15.9 3 97776 163.0000019 .0000000 

-.5000000 .7222222 -1S.966I9R7 1. 0917019 16.0001911 {76.2670796 .0000000 

-.SDCOOOO 1.99999911 -16.3930660 2.15332S0 16.1868927 172.3569053 .0000003 


''« S300000 

2 • 6 6s S 

-16.1601150 

3.9219583 

16.5183992 

153.0957363 

.0000000 

oSCCQOOO 

2-5BB8889 

-16.2899598 

9.9799677 

17.3292399 

162.9978905 

.OODCOOD 

-.5660000“ 

3.6111111 

-16.3129623 

7,0586319 

17.7796170 

156.6018276 

.0000000 

-.5000000 

9 .3333 333 

-15.8715270 

10,0998677 

ie*8098836 

197.5921581 

.0000000 

-.s'CBBboo 

5.0SSS555 

-13.9399192 

19.7078792 

19.9203D69 132.9101910 

.OQDQDDO 

-.5000000 

5.777777T 

-9 .3383911 

17.60S6B9S 

18.1323902 

103.8930233 

.□OOOODO 

-.5000000 

6.9999999 

1.9258882 

13.9536399 

10.5295586 

79.5613661 

.aocoooo 

.0000000 

.0000000 

-17.3319838 

,0000000 

17.3319838 

IBO.O0D0019 

.OQOQOQD 

' .Dowficroo"*'' 

' .‘6iilili 

■■-17 ".372'9G9i 

.8296130 

■ if. 3922067 

177.2559397 

.0000000 

.OODQOOO 

1.2222222 

-17.9976199 

1 .6996953 

17.5799785 

179.9517727 

.0000000 

.CCOD'OOD 

1.833 3 333 

-17.7198299 

"2.6588781 

17.9132535 

171.9690026 

.0000000 

.0000000 

2.9999999 

-18.0382125 

3.7755076 

18.9290955 

163.1783066 

.0000003 

.ffOOQODO ■ 

J.CSSSlSS' “■ 

-18.9899008 

S;i6T0599 *■ 

19.196(69i5 

169.9090692 

.0000000 

.0000000 

3 .6666666 

-19.0980160 

7.3296552 

20.3989590 

159,8053818 

.0000000 

• OffCODOd'' ' 

■'9;277777f 

-19.8702292" "'9.B292776 

"22^1662955 

153.691 1983 

.0000000 

.0000030 

9 .8888888 

-23.5989369 

19.8365265 

25,3663152 

199,2919650 

.0000000 

.OECODOO “ = 

5.'9999T99" “ 

"-18, 177ST2I 

2T.ll7r918’ 

32.6960972 ~ 

123.3353453 

.0000000 

.5000000 

.0030003 

-I8.61959B3 

.0000000 

18.6195983 

180.0000019 

.0000000 

.5000000 

.5692158 

-18.5672852 

.6935838 

1 8.6 801658 

177.8721523 

.0000000 

.5000000 

1 . 13B93I7 

-18.829S013 

1.9I9I063 

Ic.e 826263 

175.7051911 

.0000000 

.sdcon’oo' 

i. 707 6975 

-1‘9. 1155095 ' 

2,192aJ92'' 

■19.2 408659 

173.9559999 

.0000000 ' 

.5000000 

2.2768639 

-19.5529211 

3.0705532 

19,7925699 

171.0799836 

.0000000 

.5C0C030 

2.H96D79Z 

-23.1935219 

9 ,1388999 

20.6079011 

168.9988823 

.0000000 

.5000000 

3 .915 2950 

-21.1359713 

S.911DD2S 

21.817612 9- 

165.6901711 

.0000000 

.5060003 

3.9895139 

-22.5829165 

7.1T75009 

23.6956122 

162.3678818 

.coooooo 

.5000000 

9.5537267 

-25.0122857 

9.8538397 

26.8833325 

158.9979961 

.CDDDDDO 

.50CDOO0 

5.1229926 

-29.9518511 

' 1*1 •4866191 

33.2802939 

159.1961396 

.0000000 

I. 0000000 

.0000 000 

-19.7372229 

,.3303300 

19,7372229 

160.0000019 

.0000000 

i.Gccoddo 

.5972980 

-19,7979388 

.5652609 

19.3060057 

178.369 5668 

.0030000 

l.DCOQOOD 

I .0995963 

-19.9898979 

1 .1953922 

2C.0 177475 

176.7170868 

.OOOODOQ 

l.QEOOOOO 

1.5918990 

-20.3138201 ' 

1^7609292 

20.3399577 

175.0970928 

.0000000 

1.QOCC300 

2.1891923 

-23 .8153100 

2.9269279 

2E.9S68107 

17,5.3998769 

.0000000 

l.oOCCDOO ■ 

2.7369900’ 

-21.5979291 

3ri’6fl97S9 

21.7792127 

171 .6335011 * 

.0000000 

l.OCCOOOD 

3.2837879 

-2Z.612B6C9 

9.0139026 

22.9663929 

169.9345379 

.0000000 

l.OOCOODd 

3 .8310859 ■ 

-29.2158706 

9 .98 93 1 '76 

29.7299551 

168,3586559 

.coooooo 

l.OCOOOOD 

9 .37B3B39 

-25.7909815 

6.0966231 

27.9 759075 

167.1799469 

.0000000 

1.0CCD30C 

9 .925681? 

-31.2911239 

7.2382872 

32.1106996 

167.0275364 

.0000000 

1.50G0000 

.coooooo 

-20.6598568 

.0000000 

20.6598568 

180.0000019 

.0000000 

1.5 C 00 D 3 D 

.5370722' 

-23.7299629 

.4380825 

2C.729S9Z3 

178.7890682 

.0000000 

1.5GDQ000 

1.D79199’3 

-2D. 9797360 

.3829707 

20.9933360 

177.5850639 

.0000003 






p6te;nT1»L flow FODF RELEASC 2 ’ DATE DS3177 


DOUCLAS aircraft COMPANY 
LONG BEACH DIVISION 


TEST CASE RELEASE ?.3 . 2-BOOY CASE NO. ‘ BFOCl PSF = 


OFF-BOOY STRIP VORTEY FLOW 



transformed 

COORDINATES 







X 

Y 

vx 

VY 

vf 

THETA 

PHI 

■IR 

l.SCGEOaO 

1 .6112165 

-21.2735207 

- 1.3386143 

21.3155944 

176.3994694 

.QOOCDOO 

R5 

■ 1.5CC00CD 

2. 1462586 

-21.7988141 

1-8398984 

21.8737378 

175.256 3801 

.COOC003 

46 

l.SOECODD 

2 .6853608 

-22,5478852 

2.2836245 

22.6637359 

174,2042923 

.0000000 

47 

' i.SCCOOOD 

3 .2224329 

-23.6331308 

2.7554439 

23'.76C4427 

- 173.3405571 

.0000000 

>ta 

I.5CCQ0QD 

3. 7595051 

-25.0995865 

3.14D6216 

25.2853SB2' 

172.8650379 

.DODGDCO 

49 

i.SGDQDO'D 

4 .2965772 

-27.2461581 

3.24' 7-J4B 

27.4 366837 

173.2086735 

.□□□OOCtO 

5Q 

I.5GOOOQG 

4 .8336493 

-30.5331926 

2. 4^28118 

3C.632Q355 

- .175.3959560 

.0000003 

Si 

1.698000G 

.0000000 

-20 .'954 2792 

,00000 oa 

20.9642792 

180.0000019 

.0000000 

52 

1.6980000 

. 5354972 

-21.0302198 

. 3881726 

21.0338018 

178.9425640 

.0000000 

S3 

1.6 98000 0 

1 . 070994 4 

-21.2321658 

' .779'3B3l 

21.2464657 

177.8977509 

.0000000 

54 

1.69BCD3C 

1'. 6064915 

-21.5832729 

1.1751655 

2I.61S241B 

176.8834438 

.COOO'IOD 

SS 

I.69RODOD 

2.1419 887 

-22.1083345 

1.5725034 

22.1641879 

175.9315662 

.0000000 

56* 

1.698000D 

2. §774859 
3.2129831 

-22.8436583 

1 .9586615 

22.9324S5B 

175.1003971 

.DOD'JOOO 

57 

1.6980000. 

-23.8698945 

2.298943S 

23.98C3462 

174.4987297 

.CEDDOOD 

58' 

1.698C0Q0 

3.7484803 

-25.2722116 

2.5063293 

25.3961378 

174.3363075 

.ao'30000 

S9 

“1.6980000 

4.2839774 

-27.1935530 

2.3587983 

27.2956636 

175.3425110 

.Or.COQOD , 

6Q 

1.5980000 

4 .8194746 

-29.7508673 

1 .1962757 

29.7749090 

177.6973915 

,0000000 

61 

?T69sboon 

.CC3Q03D 

-21.9534793 

.a3333Q0 

21.9534793 

ie3.33DD019 

.GCDCOQO 

6 2 

2.6980000 

.5304882 

' -22.0149283 

.1418401 

22.0153852 

179.6308556 

'.CCOOOOO 

6 3 

■ ' ■■ 2”.69805'D“0 

1 .C609764 ■ 

-22.2034950 

,2762915 

22.2022142 

179.2869759 

.Doooonc 

64 

2.6980000 

1.5914646 

-22.5138636 

.3932535 

22.5172977 

178.9993076 

.COnCDOD 

65 

! 2.6980000 

2.1219528 

-22.9608846 

.4762702 

22.9658234 

178,3117027 

.OOCDOOD 

6b 

2.6980000 

2,6524410 

-23.5480556 

.4985130 

23.5533316 

178.7872295 

.0000000 

67 

2.6980000 

3.1329292 

-24.2773681 

.4175536 

24.2809584 

179.0146503 

.0000000 

6 8 

2.698D300 

3.7134174 

-25. 13 28752 

.1736744 

25.1 334560 

179.6134622 

.GOOOOQO 

69 

'2.6980000 

4 .2439057 

-26,0516722 

-.3175174 

26.0536070 

-179.3017159 

.0000000 

70 

2.6980000 

4 .7743939 

-25.8879397 

-1 .D33B7D5 

26.9 097769 

-177.6916199 

.ODODOCllJ 

71 

3.69a0bSp 

.COD DODD 

-22.0774684 

.nOOPDOO 

22.0774684 

IBD, 0000019 

.0000033 

72 

3. 6980000 

.5394769 

-22-1318054 

-.0736205 

22.1319237 

-179.9094101 

.0000000 

73 

3.6980000 

1 .0789537 

-22.2926903 

-.1535164 

22.2932189 

-179.6354440 

.□DOCDOO 

74 

3.698G0Q0 

1 .6184306 

-22,5539379 

-.2488500 

22.5353107 

-179-3678513 

.OOOGOOO 

75 

3.6980DDQ 

2.1579075 

-22.93S62C6 

-.3741975 

32.9036769 

-179 .064 0717 

.0000000 

76 

3.6980000 

2.6973844 

-23.3334734 

-.5501703 

23.3399SB4 

-178.6492977 

.0000300 

77 

3.S9BQ0Q0 

3-2368612 

-23.8167233 

-.8020090 

23.8302228 

-178.0713406 

■OQOOOOO 

78 

3.6980000 

3.7763381 

-24.3248320 

-1 .1548215 

24.3522291 

-177.2819233 

.0000030 

79 

3.6980000 

4.3158 150 

-24.8165889 

-1,6243846 

24,869694 5 

-176.2550125 

.CCOOOOO 

80 

3.69SD0QD 

4 ^855291 a 

-25.2483821 

-2,2366857 

25.3446298 

-175,03 5(2^5 

.0000000 

81 

1 1.6000000 

' 2.6458126 

-^2-*4a8«4 156 

-.7891934 

22.5022571 

-177.9901257 

.0000000 

8Z 

1 1.6QC00QD 

2.9934785 

-21.9125426 

-1.0915B34 

21.9397144 

-177.1481419 

.OOOOOOD 

83 

J1.6CECD00 

3.035144 4 

-21.464 6664 

-1.1640083 

21.4962046 

-176.8959465 

.0000033 


n. 6000000 

3.6798103 

-21.1065302 

-1.1379564 

21.1371841 

-176.9138927 

.ooocooo 

85 

■] 1.6CDDobb 

4.0244761 

-20.8111172 

-1.3636110 

20.8382788 

-177.3742836 

.0000003 

86 

. 1J.6OCOC0O 

4.3691420 

-20.559-.562 

-.961B282_ 

2C.5816426 

-177-3214607 

.ooooonn 



0*TE D53I77 




POTENffeLTUOU EOOF SELEiSE'2 ■ 

■ ' ' " DOUGLAS AJBCPAET 'COMPAhT 

_ _ LOHG BEACH DIVISIOM _ 


TES7 'CVSE” BELEASC y.C ■ " ' ' ' ' 2 -BOO'y' CASC' NO. BFOCl PSF = 


OFF-BODY STRIP VORTEY FLOW _ 

TRAMSFORKEO CbORbiKAIEs'' - - . 

X " ' Y ' VX ' VY ■ VT ' THETA PHl’ 


37 Il.tccoaaci B.7l3sn79 -23.33S6J48 -.8399565 BC.3S39536 -177. 634B7 B2 

iffa il.eccodao' S.OSSBYSB -2Q.1328881 -.6969736 PD.lRBbB'BT -178.2172749 

B9 11.6E00aQ0 5.BG31397 -19.9396069 -.5236151 I9.9*l6‘*803 -17S. 99 57561 

90 11.6000000 5.7978055 -19.7991326 -.2925893 ■t9»75i2995 -379.1512291 


.ODODDOD 

.0000000 

,0000000 

.OODODOD 



D»TE D53177 


POTESTTA'L FLOW - FOOF RELtftS'E 2 

THE F0LL5if'lNG NUMEE^S "Apf ThaGES^HAT GET PUNCHED WHEN THERE IS PUNCHED OUTPUT 


SDObbCCO-* DG-T5D0Q bDDD'*DC- .SOaOObOD+’bb-. SODDGDOa ••od’ 
-.SaODODOD* DO-. SDOOO OOC*CG-. 500 SGOOO*00-. 50000000*00 

-.sbooScoa * 00 -. 50000000*00 .ca'jooooo ,00000000 

.□OOMOCD .DO DDDOOD • __.000pqpQD_ .OD OOOOOO 

.□DDODDOd .OGDOaClOO' .00300300 ' .DOGDOOOO 

.50PDDDC0* DC . 50000 000*00 . 500000 00*00 ,50000000*00 
,5bobdoc’b*co .50006000*00 .50000000*00 ,50000000*00 
.SOOOOOCC*CO .50000000*00 .13330000*01 .10000003*01 
.■10060003*01 .10000000*01 .100DCDC0*Q1 .10000000*01 
. 10003000*01 . 10030030*01 .1330 0300*31 ,10000033*31 
.■iSbbOOG6*Dl .15000000*01 .1500CDDO*01 .15QCOCOD*01 
,150aOOCO*OJ^ .15 030 0aD*01 .15000000*0 1 .15000000*01 
Vl5CDDCDD*6r .ISOOOOOb^bl, .16983000*01 .16980000*01 
.16980000*01 .16980000*01 .1698Ca00«01 .16980000*01 


.16980000*01 

.26980000*01 

.16980000*01 

.26980000*01 

. 16980000*01 
. 26980000*01 

.16980003*01 

.26980000*01 

* 

.26980000*01 

.26980000*01 

.26980030*01 

.26980000*01 

. 26980300*01 
.36980000*01 

.26980003*01 

.36980000*01 


.36983DCD«01 

.36980aCC»'0! 

.36980000*01 

.36980000*01 

.3698 0000*01 
.36980000*01 

.36980000*01 

,36980000*01 



.11600000*02 .1160000u*OZ .11600000*02 .11600000*02 
. 1 1600000*02 .11630000*02 .3^63 C00 0*D2 .11630035*32 
■*.11600000*02 .11600000*02 ' 

. 00003000 .72222222*00 . 1 5^9 .21666666*01 

.28886889*01 .36111111*01 .*'‘1333 33 33* 01 .50555555*01 
,57777777 *0 1 .64999999*01 . GODOCOOO .61111110*00 
.12222222*01 .18333333*01 ,2i»<l W *tV94«01 .30555555*01 
,36^6 666* 01 .<12777777*01 .6688 8888 * 01 . S»l999959*a 1 
TODDDObca .5692158'I»C0 .11385317*31 .17076575*01 
.227686 35* 01 .28560792*0 1 . 35152950*01 .39e5S109*01 
.55537267*01 .51229526*01 ■.00300000 .55729799*00 

.10955960*01 .16516950*01 .21891920*01 .27365900*01 
.32837879*01 .38310859*01 .53783839*01 .59256819*01 
DODD OO DO .53707215*00 .10751553*01 .16112165*01 
^21582886*01 .26853608*01 .32225329*01 .37595051*01 
.52965772*01 .58336593*01 .C03DC300 .53S0971B*DD 

.10709955*01 .16D65915*01^ .21519887*01 .26775859*01 
.32129831*01 .37585833*01 ,52839775*01 .58195756*01 
.OOODOODO .53058821*00 .10609765*01 .15915656*01 
^ 21gl 9S23*01 .26525510*01 .3 1 829292*01 .37135175*01 
.52539057*01 . 57753939*01 ^.03300000 .53957667*00 

•J 0789537*01 .16185306*01 .21579075*01 .26973855*01 
'.32368512*01 .37753361*01 .53158150*01 .58552918*01 
*2 6558126*01 .29905785*01 .33351555*01 .36798103*01 
,50255761*01 .43691520*01 .57138079*01 .50585738*01 

.5503139 7*01 .57578055*01 

,103365*91*01 .10330983*01 .10310823*01 .10265089*01 
.101 61 811 *01 .993395 65*00 . 93996863*00 .81500 505* 0*7 
;69olQa2S*06 .87225'00S*D0 .10503555*01 .10505256*01 
. 10505719*01 .10535550*01 .13592753*01 . 1D453252<!11 
'TiD3526C7*Q1 .10035192*01 .90532537*00 .58371509*00 
1 0667756*01 .10 67 3290*01 .106899 68 *01 .10717953*01 
.10757550*01 .10809296*01 .10873758*01 ,10959692*01 


r 



- 


POTENflAL FI.OV - rOOF RELEASE 2 


DATE 053177 


.lia2t!6CD»01 .11077368 + 0) . 10 B 1 ‘1959+D 1 .10829505+01 
. 10853820*01 . ia9aS 2I0*Dl .109 83595* 01 ,11098928*01 
.11272250*01 . 11552683*01 .12072065*01 .13226879*01 
.109306 79* 01 . 109‘t39 «l5*01 .10982732* 01 . 11051853*01 
.11157653+01 .1131 329 9 *01 .11599099*01 .11901917*01 
.12501509*01 .13695391*01 .10969999*01 .10978812*01 
.‘n02i2EQ*Ol ^11095825*01 .11209918*01 .11375098*01 
.11616 7J5 *^ , 1 1^9 ^1*0 1 .12 599939 *31 . 13976233*31 
.ilpX9'6Cti*Dl .11031130 *0i .11081263*01 ^11166773*01 
.112910^*01 .y 95928^0^1 .11 6782 13* 01 .11 95267 7*01 
. 12275590*01 *.'12"60996B*DI , 1083 Z69 2'+01 .10850501*01 
.109Q3^12;^1 . 109895 8 7*01 .11106556*0 1 .11251373*01 
. 11920099*01 .1 1636938*01 '^11 8009 32*3 1 .11989687+31 
.10779991*01 .10503381*01 .10288601*01 .1011 6830*01 
.99751261*00 .98592532+CD' .97979863*00 796997396*00 

.95568 861*00 .9969_a9ia'^0C 

,56328 593-QT . 569 19951-01 .5666 9800-01 . S‘709'Q299 -01 
.5792907 3-0 1 .5799 5993-01 .55812987-01 .9739ail2-0 >i 
.170799 23-0I-t270aO92D-D2 .60986967-01 .61122936-01 
.61537895-01 .62256981-01 .63323712-01 .69809232-01 
. 66 7 79 9 72- 0 1 . 69 2 12'32 1 -01 . 7 i 2 S 3 1 a 2-0 1 . 6 1 65 a 11 0 -0 1 
,65283 9 81-0 l_.6_S9^698-Di .66007169-01 .66957009-01 
.68916361-01 .70550669-01 .73683783-01 .78981251-31 
,86519603-01 .10282869*00 .6904389^01 .6 9247 869-01 
.6 9 8 7 5 5 69 -01' .■7a979a78-D'l '^XalaSO^l-jj l ", 75120797-01 ' 
.78697700-01 . 8908^20^-01 .92763089-01 ,10802069*00 
, 1Z 132 999-0 1 ■ . 7 235 1966 -01 X?33 2'527S-Q 1 , 74 2b0835-0r 
.75971860-01 .78998898-01 .32052925-01.87093268-01 
.999 20539-01 .10567975'*Cb .7315 0396-01 .73372826-01 
.74059308-01 .75239382-01 .77312159^1 jjySlS^SS-Ql 
.8Z9&898e-0i '.87724257-01 ■X99"25'9'a"69-0’l , IDSljfse'S+dCt' 
,76438375-01 .76696835-01 .7727^33-31 .78339972-01 
, 798 SB C C9- 01 .8 1 8 5 *( 1 5 3 -Ql . 84 3374 62-01 . 8725728 5-0 1 
.90409801-01 .93285620-01 .76791570-01 .76976997-01 
.77525422-01 .78916072-OI .796ls2l3-01 .81075266-01 
.32726393-01 .84466331-01 ^86155884-01 .87647106-01 
.76952 687-01 .7 51S'B992'-bi ' . 73B16i9503f '.'7266 3 002-01 
.71685193-01 .70844125-01 .70093930-01 .69903555-01 

. 63754312-01 . 68150389-01 

-.159397 78 *02 -yi 5966 195*02-, 16a_9 3aM+02-:.15 1_6J 1 1 5j^0 2 
16289 960*02-. 1631 2962 + 02-* 1587 1527*02-. i39 34'914*02’ 
-.93383 911*01 .1 925883 2+Cl-j. 1733 19 39*32-, 17372909*02 
17997 617*02-^1 7'71 9 825* 02-. 18033213^02-71 8989901 *02' 
-.190 96016*02-. 19870229*02-. 2359 89 86*02-. 18177612*02 
-. ia619 5 9Bi02-'. i36672B5*02-'. i8'a296di*b2-. 19115505*02 
-. 1 9 5 52 9 21 * 02-. 2 0 19 362 1 * 02- . 21 1 3 597 1* 02-. 225829 17 * 02_ 
-.250 122 86* 02-. 29961851 *02-. I97'37222*32-. 19797939*3 2 
19984897*02-. 2031 3320*02-. 203158 10*02-. 2154 7429*02 
-.226i2'66l*0'2-.29'215'a71 *C2-^ 2679G982'*3 2- 73129 1124*02 
-.206S9S57*C2*.2aT24963 *02-. 2092 4736*02-. 2 12 735 21*02 
-.21798 814 *0 2-. 22 59 7885*02-. 236 001 31* □2-.'250895S5*02' 
-.27296 158*02-. 3053 31 93*02-. 2096 9279*02-. 21030220* 02 
-.21232 166*02-. 2158 3273*02-. ?2i 08335*02-. 2289 8658^02 
-.23869 845*02-. 2 5272212 *02-. 2719 3553 *02-. 29750864* 02 
-. 21953 9 79* Q2-.2ZD19 92a~*02-.222£)'C4 95*02-. 22513869*02 
-,22962 8 85*02-. 2359 8056 *02-. 242773 68*^2-. 251 32875*02 
-. 26051 672*02-. H6a8799C*02-.22b7746a»02-. 22 13 1806*02 


-36>S- - 


POTENfiftLFLQU -rcOF RELEASE Z 

■“ -. 2229?b«D* b¥^. 2Z55'393eicZ- .iZSESS? l-»22- . 23333*1 7y»i2 
-.23^16J 23* C2-. 2 9 32*1 E32+02-.24E 16589*02-. 252*1 83S2*a2 
-. 22*1 86414 +02^. 21 91 25*1 3 *02-. 21 *16 4666*3 2-. 2 110 6533*32 
-.20811 1 17+02-,20559IS6*r2-.2C336615+Q2-.20132B88*D2 
-. 19939606 *62-. 1974 9133 *02 
.OOOOODOO_ -.1203 1652-01^. 25357682-01-. 4 1408390-01 
-.623 4S29Q-C1-. 9002 774 6-Cl-i 122 9 8302*02-. 12565 137i00 
.77486JCS-DI .10582910*00 .00330000 -.10421743-01 

-. 21 6<iFi'56-01-.35'4B44 4 9-01-.5303E84 8-Ql-. 77236103-01 
II 306 837 *00-. 1702 1571 *CD-. 2663 1367*30-. 351 73574 +00 
.OaDOCGOD -.9147675C-C2-. 19165454-01-. 31389839-01 
-. 4 6371 524-C 1-. 67J60 95 6-C1- . 984 4 349 0-01-. 1491 6506*00 
-.244 57 3 19* DC-. 4 6968785 *00 .ODOODGOO 74333752-02' 

-. 155 67S64-01-. 2520688 8-01-. 374 22956^01 -.53737250 *01 
-.76931 979- of-; 11 17 421 0 + 00-. 163*1 7520*33-. 2712 1873+33' 
.00000003 -.52192C21-C2-.10940024-01-.177009SG-31 

■ 26 116 a S2-b i-.3691 1624-0 i-. 5387 655 3-31-. 60441459-01 ‘ 
-.874 1C862-D1-. 91697444-01 .00000000 -.42163229-02 

-. 88S33 037-02-. 1 4 34 1877-Cl- . 21 1 24023-0 f- .2961 33Sd-di 
-. 40000746-0 1-. 51 484175 -01-. 5923 41 91-0 1-. 398 12196-31 

■ .COQDODOO .r6474'7G2-^02 . 32 14 3592-02 ' . 4 7G 11748-02 

^628_77436-C2 .84765812-02 .12325404-01 . 1 97yi229-01_ 
. 3y8499S7-Cl .S7il5145-'bl . ODOODDOO . 8 154 58'29'-02 

. 1 623254 8 -01 .24293619-01 .32639824-01 .41873952 -01 
" TS28 98 2 2**- Cl “T681 5600-01 ' .?** 67 14 1 4-or' :To7C'B676*00 ' 
.37847439-01 .52362622*01 .55850028-01 .5461 3913-GJ_ 

■ ,Sia6f722-bl 4 6~i959S5-Ci' '.403 71:822-31 .3354 6808-01 
•25298998-01 .14416318-01 

, COO GO DOQ ■ -734583234 -02- . 71 907034-02-7 11 4 4 08 72-O'r' 

166579 lB -01*. 2361 2719 -01-. 3373 IS 4S-3 1- . 4 890 9 613-31 
-.57630107-01-. 337S945'5-'Di . OOQOCOOO” -.27456346-02- 
S6760972-C 2-. 88969721-02-. 1264.6679-0 1-.J.730 4745-0 1 
23 5 76 B 70- 0 1 -73 300 6265 -01- • 497 5 6"6 37-0 1 - . 9055 2 3*(7-C 1 

_ .COOD3_CCO -.2^889846-02-. 471^1598^-02-. 73405555-02 

-; 10294 77'l-0i-.13745B29-Bf-.lB20 l9Z4-Ol-.242Oa‘0fO-6l ‘ 
-. 33 375 970- 01-. 4 947693 I -01 .00300000 -.1857277 2-02 

-;'382 33357-02-75897268 l-D2-. 8’i37 1889-02- 710645276-01*' 
-. 13SJ6150-lI-:iJ^65752a-01r_;2DTJ 59 15-0 1-. 24 7624 44-01 
70Cao'3CC0" "-.14292728*72-. 293‘5'9331-32-. 44719689-32" 

-. 60573677-02^. 76S0408J -02*. 927 174 4 6-CZ-.106C6 369 -qi_ 
-.11018835-01-704 258374-0? . 0530 3000 ' -712611393-02 

“• 6 SS -D2-.39 204 434-02-. 52595427-02- . 65657664 -02 _ 

772 6b"4 07-02-. 84535 J 82-32-. 7^^ 5573-02-1 4 09 17825-02 
,0M0D1DD_ 4 274 5 704-05-. BBS79394-33-. 12738093-32 

- .1 54 6 1 2 77- 02-'.'i 6 i3'66 1 6 -32- . i 33 4 C972-C2-. 4 94 J 3SS 4 -03 
.11678338-02 .3.781 B_14 1-C2 .POOOCOjaO . 335764B4-D5_ 
.S762'4 9 32-03 .9 1145001-03 . 135034 8i9-02 .19612201-02 
.28306749-C2_ .4045648^02 .56614168-02 i^7G666791_-Q2 
-.1089*9827-02 722892267-52 .31368434-02 .33236295-02 
,32238215^02 .29748902-02 .26251376-02 .217384100^ 
.15820I16-02 769256372-03* 

.OQOOOOCO ^10417019*01 -21530280*01 .34214583*01 
.49794677*01 .70586314' *01 713394868*32 .14707879*02 
. 17605685*02 _.1CI4S3634 *02 .ODOOCOCO .8296^296*0^ 
7 16996 953701 .265e87'2l.Gl .37755076*01' . 516 1 0'5'94 *0* 
.7024j652*01 .98242776*01 .14806527*02 .27urf92*0? 
.COdOObdo ' .69358384*66 .14141063*01 ,21928092*01 
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POTENtiAL flow - Fo6f~ RELEASE 2 " 

\3Dfd6532«iri '.‘riQ8BA9i(*arV5ill narS^Ql 
_.9e53Sa97»Dl ^1<I986619»_Q2 .OOODOOOO 
• .119639?7*01 .1760‘iZ‘i2«bl' ,E‘(26937901 
.9DL39Q26*01 ,^9890176»D1 .6096623H-01 
'.OODCdOGO' ^;93e38253*0d .W29.7071*aD 
.rSDeS9&‘i*01 ,228a62tlS + Dl .2755M*(39tQl 
.32'44729B*Dr .285Bail8«01 ‘.CODOCOdD 
.7793e3D6«Q0 ,11751635»01 .15725a3«n0i 
. 229 89 *1 38*0 1 .2 5063293 ♦ □ T ' . 235 'b 79 8 3* □ 1 
.00000000 .14189007*00 . 27629148*00 

.476270211 DO .49851297*00 .41755357*00 
-. 31751 7 37 *0C-. 108^8735 *01 .03730000 
-. 15351643*SQ-^.24eB50DlilDD-.37ill97Sa*0Q- 
-.80203 8 96+00-. 1154 821 5+D1-.1 6243846*01- 
-.789l9335*0C-.I0915B34*01-.7l64 0083*01- 
106361 lQ*0l-.96182a23*QG-.8399S651+DC- 
1.523 6 i 5 10 » 0C-. 2 92 58# 2 6 *00 ' 


.'71775C04+01 
.56526037*00 
.31689754*31 
i72QB2^72*Dl 
.i33B6i43lDl 
.31406216*01 
^ 38817257^00 
. 19586615+01 
.1 1962757*01 
.39325351*00 
.17087439*00 
.73620513-31 
.55017027*00 
.22066857*01 
.11379564*01 
.69697861*00 



DATE Q53J77 


POtENflAl FLOW ” EQOF HELEASE 2 

' ” QOUgUaS i'lBiCBAFT cdHPANT 

_ . LON?. BEACH PIVI 5I0M 



TEST CASF RELEASE 2.3 ‘ - - 2-BODT CASE NO. BFOCl PSF = 


ON-BCDT UNIFORH CROSS FLOU^ 
TRAMSFOKHEO CdORdlNATES 



X 

t 

T2 

T3 

SIN A 

cos A 

SlEltA 

N 

PHI 

1 

a.DlICDDD 

• CG0QC7OO 

• 







2 

2.0152385 

B.327SIR9 

.1151029 

.2296225 

. 119Q95Z 

.1157871 

.99792 

.07179 

.0009309 

.0000000 

-.1017751 

5 

3.!:<iB2578 
8. "769252 

.3992699 

.9571968 

,1083069 

.1199066 

.77723 

.21217 

.0027213 

-.GDODOOl 

-.3098832 

R 

8.1128790 

3,1558563 

.566S563 

.6739595 

.0985509 

.1120928 

.93969 

.39216 

.0092526 

-.OOPOQQD 

-.5033157 

5 

8.2057551 

0.261ER8? 

.7786680 

.3801982 

.0852680 

.1090259 

.88992 

.95709 

.0059206 

.0000002 

-.6937730 

a 

a.32'Hi92''i 

e.3916S85 

.9789353 
1 .0791090 

.0708398 

.1353331 

.33099 

.55629 

.006229? 

.3000005 

-.8756208 

T 

8.9695996 

8.5920380 

1,1662226 

1.2595890 

.0567095 

.1012605 

.76826 

.69013 

.0067116 

.0000001 

-1-D981309 

3 

8.6291032 

8.7099922 

1.339738S 

1.9210927 

.0936620 

.0969623 

.70919 

.71006 

.0069300 

-.0000002 

-1.209839* 

9 

B.7967980 

B.SB6S939 

1.99571:89 

1.5683038 

.0323666 

.3927197 

.69198 

.76719 


.0000009 

-1.3S79920 

IQ 

S.98CZ898 

9.D769732 

1 .6383992 
I.7C93962 

.QZ2B993 

.0885998 

.58112 

.8138Z 

.0068998 

.0000009 

-l.a93JcS* 

11 

9,175^9719 

9.277S62S 

1 .7676933 
1.3275751 

*0198269 

.3896339 

,52235 

.35273 

.0066631 

.0000009 

-1.5181396 

12 

9.3819519 
* 9.98SD913 

1.8896013 

1,9382993 

.0081655 

.0807998 

,96598 

.88506 

.0069289 

.0000009 

-1.7323351 

13 

9.S9658C9 

9.7065265 

1 .9890973 
2.C356619 

.0026667 

.0771800 

.91060 

.91182 

.0061712 

.0000006 

-1,6355789 

IR 

9.8iS935C 

9.9315963 

2^0813177 

2.122.8321 

-.0018873 

.0738036 

as 762 

.93387 

.0059065 

-.OOOOOOi 

-1.92770SC 

15 

1C. 0962868 
10.1620110 

2.1619 998 
2.1970111 

-.0056866 

.0706319 

.30639 

.95191 

.0056929 

-.0000005 

-2.C0B7836 

16 

10.2790791 

10.3969290 

10.5158712 

10.63S935C 

2 .229693? 
2.2S99QI3 

-.0388992 

.3676801 

,25669 

.96699 

.0053630 

.0DDDD02 

-2.0787919; 

17 

2.2862603 
^ 2.3101971 

-.0116095 

.0699019 

.20830 

,97807 

.0051290 

-.0000002 

-2.1378769 

18 

10.7556620 

10.8767570 

2.3313097 

2.3995523 

-.0139003 

.0623091 

.16095 

.98696 

.0098788 

-.0000006 

-2.185097* 

19 

10-9983197 
J 1.1201990 

2.369 9S8B 
2.3775911 

-.0157652 

.0596836 

.11992 

.99393 

.0096327 

-.0000002 

-2.2233697 

20 

11.2925621 

11,3651180 

2.3B73996 

2.3993955 

-.0171307 

.0576231 

.36895 

.99765 

.0093998 

.0000007 

-2.2498303 

21 

1 1.9380365 
11.5109999 

2.398 1811 
2.9000000 

-.0179366 

.3555637 

.02279 

,99979 

.0092005 

.0000005 

-2.2649292 

2? 

11.7385959 

11.3660920 

2.9000003 
^ 2 ,90DDOgp 

-.□180606 

.0536363 

.30000 

1.00000 

.0091096 

-.0000003 

-2.2712730 


12.0191979 

2.9QOOOOD 

-.0178361 

-0S15909 

.00000 

l.OOQQO 

.0039881 

.0000021 

-2.2763019 
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DATE 053177 


t 

DOUGLAS 

AIRCRAFT COHPANT 








LQMC 

BEACH DIVISION 








- 

TEST cast RELEASE 2.0 


2 -BOOT 

C#.S£ H&. 

BFOCl 

PSF - 




OM-BODY UNTFQRH CROSS FLOW 








• 

TRSNSFOBHEP CDOBDINATES 



X 


12 

T3 

Sir; A 

COS A 

SIGHA 

K - 

PHI 

2S 

12.17220^6 

2 .4000003 








2R 

12.3558694 

12.5395360 

2.4000000 
. 2.4C30C03 

-.0174912 

.0490578 

.00000 

1.00000 

.0037967 

-.0000012 

-2.2822613 

2E 

12.7599355 

12.98D33S0 

2. *000000 
2,4000000 

-.0157487 

.0461714 

.33000 

1.00033 

.0035524 

.0000001 

-2.28918B6 

26 

1I.244BIR5 

13.SD929RC 

2.4ooacD3 

2.4COOOOO 

-.0154594 

,3429099 

.00000 

1. 00003 

.0032691 

-.0000002 

-2.2970165 

27 

13.8266695 

14.1940450 

2,4030033 

2.4000000 

-.0135062 

.0393924 

.03000 

1.00000 

.0029649 

-.0000002 

-2.3054565 

2B 

14*5248954 

14.9CS746C 

2.4DOOODO 

2.4000003 

-.OlbSllR 

.3356487 

.00000 

1.00000 

.0026649 

-. 0000006 

-2.5139632 

2? 

TS. 3627670“ 
15.8197880 

. 2.4'aoffGoo 
2.4030C03 

-.0073880 

.0326669 

.ooooc 

1.00000 

.0024037 

-.0000006 

-2.321S99S 

3B 

16.1245929 
16,828798 I 
n'.3jS3D35 
17.8378091 

2 . 40110000 
2.4000CDO 

-,00l4143 

.0305061 

.33000 

1.00000 

.0022297 

-.ODDOOlO 

-2.3267853 

3: 

2.4000003 

2.40D0D00 

.0337648 

.3299485 

.30000 

1.00003 

.0021812 

.0000003 

-2.32B124C 

5E 

18.3423140 

18.8468189 

. 2.4000003 
2.4000000 

.3050832 

.0311693 

.00000 

l.DOOOO 

.0022667 

.0000000 

-2.3251936 

33 

19,351334 j 
19.8558300 

. 2.4B(JBETl£r 
2.4030003 

.OH9T440 

.bj4?6B9 

.00000 

1.00000 

.0024907 

-.0000005 

-2.317754? 

3R 

?C. 1603354 
20.8648410 

2.4000300 

2.4030033 

.0150111 

.0394451 

.03000 

l.DOOOO 

.0028665 

-.0000002 

-2,3053516 

3S 

21.3693456 

2I.B73B511 

2.4000000 

To7119S4 

' . 

• 

o 

* 

w 

o 

M 

« 

O 

.33030 

1.00033 

.0034164 

-.0000004 

-2.287166- 

36 

22,3703565 

22.8828621 

2.4DDD03D 

2.4000000 

.0286663 

•0S7439S 

^0000 

1.00003 

.0041741 

-.0000021! 

-2.2621444 

37 

23,3373670 

23,8916719 

2.4C3DD03 

2.4G0C0Q0 

.0178778 

.0713528 

.00000 

l.OOOOO 

.0051855 

-.0000017 

-2 ,228 7532 

36 

24.3963773 

24-9008830 

2.4bOaDoo 

2.4C30003 

.0493851 

.3895970 

J3000D 

l.OOOCO 

.0065119 

-.0000014 

-2.1849671 

39 

25,4053879 

25.9C9893C 

2.4000C0D 

2.4030003 

.0636757 

.1132774 

.00000 

i.bdooo 

.D0BZ34& 

-.0000011 

»2. 1281342 

NO 

26.4 14396* 
26.9189041 

2 .4000000 
2.4000800 

.0822027 

.1438206 

.33000 

1.0DD03 

.0 1C4S86 

-.Dcooeas 

-2.3548306 

41 

27.4234090 

27.9279139 

2.4030G33 

2.4000000 

. 1354062 

.1333505 

.03000 

1.CDQD3 

.0133213 

-.0000012 

-1.9606789 

>t2 

28.4324193 

28.9369249 

2.4030033 

2.4000000 

. 1347C67 

.2332659 

.□□□00 

1.00000 

.0170005 

-.0000017 

-1.S40161S 


29.4414299 

29.9459350 

2.46OGOO0 

2.4000003 

.1713968 

•29T3D3I 

.30000 

1.00000 

.0217313 

-.0000013 

-1.686472G 

46 

5C.4S0440H 

3C.9S4946D 

2.4000000 

2.4030003 

.2164361 

.3784908 

.OQDCO 

l.COOOD 

.0278280 

-.0000016 

-1. 4916220 


31.4594514 

2.40DC33D 

,2693010 

.4 803131 

.30000 

1.0-3000 

,0357203 

-.0000021 

-i. 2472486 




- - 


POTENTliL FLOU - FODF BELEftSE 2 

* "noucLas aircpaft coiiPANr 

LONG BEACH DIVISION 


TEST CASE PCLEASE 2.3 


ON-Bopy uNiroBH cross feou 

IRANSrORHED COORDlHaTES 



X 

Y 

T2 

T3 

<15 

31.963957; 

2.4CC3''QC 




32.6689620 

2.4000303 

.3249609 

.63 52461 

<t6 

32.9729671 

2.4030000 




33.4774718 

2 .4030003 

.3666666 

.7515673 

«17 

33.9819770 

2 .4033000 




34,4864821 

2.4003200 

.3501757 

.9055276 

*16 

54.99C987S 

2 .4000000 




35.4954939 

2.4300G03 

.1286936 

1 .0195507 


36vOOpo:i3D 

_ r.acaDOQa 


' .. . 

so' 

36.5ccc66c ' 

£ • "'uDDuDO 


■— ^ - 


35.4954939 

6.0330003 

-1.4737899 

.6619967 

sr 

34.99C9879 

6.COOOPOS 




34.4664821 

6.CC3DC03 

-.8956349 

.4916277 

52 

33.9819770 

6.0000000 




33.4774718 

6.CODOCOO 

-.6019819 

.3707557 

53 

32.9729671 

6.CD33003 




32.465462C 

6.3000000 

-.4591908 

.2851543 

5A 

31.9639571 

6.0030003 




31.4594514 

6.0000 300 

-.3321297 

.2212719 

SE 

30.9549460 

6.0CD0r0D 




30.4504404 

6.CQDDr03 

-.2553711 

.1724547 

56 

29.94S935P 

6 • uCOO 




29.4414299 

6.0030003 

-.1973966 

.1347312 

57 

28.9369249 

6.0030000 




28.4324193 

6.cpooroo 

-.1530553 

.1354304 

BE 

27.9279139 

6.C0G0E3D 




27.4234090 

6.C0C03CC 

-.1197779 

.3825253 

59 

06.918934 1 

6.0C30C03 




26.4143984 

6. WO 0000 

-.C931686 

-□648758 

6G 

25.9C9893C 

6.0300000 




25.4053879 

6.CC3D033 

-.0723023 

.3513812 

6] 

2M.9CDBB3C 

6.CCOOPOD 




24.3963773 

6.0C30DD3 

-.0558645 

.0433963 

62 

23.b'918719 

6.CQ0’2:ntl3 




23.3873670 

6.rDOOCDO 

-.C42S299 

. .0321686 

63 

22.8826621 

6.0030033 




22.3783565 

6 . cqoocuo 

-.0324086 

,3258943 

6^ 

21.0738511 

6.C03CEB3 




21.3693459 

6.0000000 

-.0239545 

.0211936 

65 

2C. 86484 10 

6.0000003 




20.3603354 

6.1i)30r03 

-.316957“ 

.3*77824 

66 

19.8SSB300 

6.CD00CC3 


- 


DATE C53177 


2-Dony CASE NO. “foci psf = 







5IM A 

COS A 

5IGHA 

N 

PHl 

.33CCC 

1.23303'' 

Jb 460 31 ’4 

-.□bbob'fi ” 

-.9474094 

.00000 

jrC0D3D~ 

Id^44'42 

"-JbcbdoGa 

-.5962392 

.300CC 

1.05300 

.0768696 

-.0000004 

-.2267338 

.□□occ 

3.COCOO 

.0994204 

-.CC0GGQ9 

.0469216 

• 





•330DC 

-1.C333D 

-.9C4C679 

.OOODCai 

-1.9080197 

.30000 

-1,00000 

-1.2708815 

-.0000007 

-3.0502338 

.00 COD 

-1 .C030D 

-1.SD14176 

.DDPOOD5 

-3.7754660 

.30300 

-1 . C0CD3 

-1.6638459 

.0000006 

-4.2890745 

.33CDO 

-1.00333 

-1.785DB79 

-.30DGDC1 

-4.6723685 

.33000 

-1.33053 

-1.8782487 

-.0000005 

-4.9652718 

.30000 

-l.COCOO 

-1.9509993 

:^QPPQCy5 

-5.1916127 

.00000 

-I.C0DD3 

-2.C0S3576 

35.00004 

-5,3674178 . 

.30000 

-l.CPD23_ 

. -2.0538343 

.ppo.iiaai . . 

-5 ,5 04 24,85 

.33000 

-l.CDQOp 

-2 5.0599865 

_.-.DDQC313 . 

- 5 . 6 IO 7455 

•33GC0 

-1 .03333 

. -2. 1181265 -- 

-.ecccolz 

-5.6935128 

•QOOCO 

-1 .CDOCD 

-2.1414976 

- *00.01! 021 

-5*7576220 

.30000 

-1..CQD55 

. -if. 1.5941119 „ 

__.-..0D0QO0 9. . 

-5.8059883 . 

.030CO 

-1.0C0D3,. 

. . -2.1I32Z5S...._ 

.. -.OOOQDG.'U 

-5.8446343 

.33003 

-1.03033 

-2.1837513 

_ -.OJtEfiDO.T . 

-5,8728384 

.3 3 DOC 

-1.03003 

_ -2.X9J5957. .. 

._-,5pQSD12. 

-5.8933053 



POTENTIAL FLOW - FODF 

RELEASE 2 





DATE 0S3J77 

■" : T9.35i3Zf3 

STEEbCDOD 

-.□139063 

rsisosii 

joDQG -i.obaao 

-2.1962932 

-.QDDODb? -5.9C7Z9Da 



D*TE 053177 


“ 57 /- 


POTENT14L 7L0U - FOOF RELFASE 2 

DOOM, as" aircraft COHRAliT' 
LnN_C BE ACH 01 VIS ION 


test case release ?-3 ” 2-BODY CASE HO. HFQCJ = 


ON-BOP Y UKl FORK CROSS FLOV 

T R ANSF ORKED CO OR 0 INA T ES 



K 

t 

T2 

T3 

SIN A 

COS A 

SI ETTA 

K 

PMI 


&7 

18. £<168189 

6.2000000 

* 








6B 

lS.3a23i<iQ 

17.8378091 

6.CaOOCQD 

6.0000000 

-.0056721 

.0190622 

.□aaC'O 

-l.DOOOD 

-2.1988129 

-.0000032 

-5.91S626S 


69 

17.3333C35 

16,3287981 

6,0000000 

6.CD3QG03 

-.0306856 

.0135305 

.00000 

-i..--OODD 

-2.1991208 

-.0000026 

-S.91B81T2 


TC 

1&,32<S292 9 
'5.819788P 

6,0002^00 

s.CGooros 

.0093232 

.0138311 

.00000 

-l.OOOtln 

-2.1971897 

-.0000025 

-5.9170152 


71 

15,3fi2767P 

l<t.9357<i60 

6.rODOQOO 

6. coo 0000 

.0099691 

.0199233 

.00000 

-l.vDOOO 

-2.1931915 . 

-,(3000025 

-5.91D9SD3 


72 

ic.Ba^aRgR 

i«),i*i9Ci(Sn 

6.C030033 

6.0CDOOOQ 

.0196339 

.0165702 

-ooopo 

-1.330Q3 

-2.1876562 

-.0000019 

-5.9009589 


73 

13,8266695 

13.5092990 

6.CC3OC03 

6.DC00CC0 

,0198777 

.0155821 

.3C0OQ 

-1.00000 

-2.1619923 

-.0000013 

-5.886i»065 


74 

1 3.2<f«819S 
12.93C33S0 

6.0000(100 

6.0030033 

.02595*89 

-0227699 

.00000 

-1.00000 

-2.1758509 

-.0000007 

-S.87S913S 


75 

12,7599355 

12.539536D 

6.OCOOC00 

6.Cj30CD3 

.0317079 

.0230585 

.Qoocd 

-1 .00000 

-2.J5’8396 

-.OOCC^> 

-5.6616988 


76 

12,3S5B69<r 

12.1722029 

6.0uQOOOD 

6.0000000 

.0391239 

.0259299 

.30000 

-1.32533 

-2.16*0626 

-.0000009 

-5.8979205 


77 

12,0191979 

11.8660920 

6."D00QO3 

6.COOOODO 

* 0^ BO 356 

.0278856 

.000(10 

-l.ODOOn 

-2.1589859 

-.oQoaao' 

-S.832668S 


7 6 

U.7'3659S"9 

H.6IC9999 

6.CC30O33 

b.nOODQOO 

.3795332 

.0306512 

.00000 

-1.D0D03 

-2.1566217 

-.0000022 ■ 

-g. 6160926 


79 

i 1.9 899260 
11.3588570 

5.999 3708 
5-9980799 

.0796253 

.0392063 

-.00763 

-.99997 

-2.1S2Ti96 

-.0000015 

-5.7991593 


oa 

S 1.2336916 
11.1089960 

5.9957297 

5.9929832 

.0901999 

.0367103 

-.02232 

-.99975 

-2.1333258 

-.0000017 

-5.7V56200 


SI 

1Q.9B90175 

8596190 

5.9ES9 013 
5. 9839 879 

.0295126 

,0381591 

-.33613 

-.99935 

-2,0969065 

-.0000026 

-5.7596892 


az 

10.7359x10 

10.6122910 

5 .97779“2 
5.9713367 

.0212698 

.0391790 

-.39 906 

-.99883 

-2.0969995 

-.0D(/DP16 

-S-793S95r 


83 

it,og919D6 

io.3£-;:89o 

5.9691599 

5.9S6263T 

,0159693 

.0399236 

-.06119 

-.99813 

-1.9878207 

-.0000018 

-5.7260985 


3<( 

10. 2 '■’.'339 
lO.T 233320 

5,9977100 
5 .9389915 

.0126279 

.0905073 

-.07239 

-.99738 

-1.9215511 

-.0(!0' 37 

-5.7067896 


S5 

9.9999266 

9.8775721 

5.9286683 

5.9182321 

.01(37955 

.□909950 

-.05283 

-.99656 

-1.8505693 

-.0CjC.,e5 

-S.A.11S622T 


86 

9,7561605 

9.6398D13 

5.9G7291B 
: .S9568BS 

.0101707 

.0919989 

-.09296 

-.99572 

-i.7769659 

-.0000029 

-5.6623929 


87 

9.5138397 

9.3929205 

5 .8856297 
£.8710566 

.0105756 

.0919112 

-.10131 

-.99985 

-1.7029917 

-.3000028 

-5.6370900 


88 

9.2723523 

9.1518356 

5,8580235 

5.8995236 

.0118738 

.0929335 

-.10990 

-.99900 

-1.6285269 

-.0000013 

-S. 60 99 9 70 



9,0316215 

5.8306CBP 

.0139817 

.0930592 

-.11673 

-,99316 

-1.5561182 

-.0000017 

-5.579575B 




0*TE 053177 


- 37 ^- 


POtENTItL FLOW - rOOF PeLeaSE 2 " ' 

dou'glas^ a/pcraft ~c6mpa^^ 
LONG BEA^H Piyi.SlCN_ 



TFSt CASE 

RELEASE 2iD 


2 

-BOOT CASE 

NO. BFOCl PSF = 



ON- 

BODY UMJFORH CROSS FLOW 







- 


transformed coordinates 









X 

r 

72 

T3 

SIN A 

COS A 

SIGHA 

N 

PHI 

69 

a. 9119566 

5.8162723 








90 

6.7915591 
0.67 169BD 

5.8015628 
5.7864 783 

.0168250 

.0138021 

-.12332 

-.99237 

-1.1860305 

-.ooaooii 

-5.5474406 

91 

B.552C65S 

6.932*1759 

5.7710621 

5.7553119 

.0201027 

.0117135 

-.12918 

-.99162 

-1.4187810 

-.0000015 

-5.5130176 

92 

E.3i3i373 6 
8. 19371D2 

5.7392761 

5.7229196 

.0216621 

.3458135 

*.13432 

-.99091 

-1.3546928 

0000021 

-5.4765396 

93 

a.'CTNtSPl 

7.9553225 

5.7063711 

5.6895175 

.0296279 

.0471160 

-.13876 

-.99033 

-1,2939359 

-.OCOOD2D 

-5.4373384 

9N 

7.8362698 

7.7172366 

5.67251D1 

5.6552731 

•0353211 

.0187317 

-.14 250 

-.98979 

-1.2365653 

-.0000020 

■5.3960625 

95 

y,59829<f9 

7.9793769 

S;637aS1B 

5.6232781 

.Ol"lY633 

.0506183 

-.14 555 

-.98935 

-1.1825506 

-.0000013 

-S. 3524764 

96 

9.36051116 

7.2616701 

S. 6025631 
5.5847288 

.0189981 

.0528389 

-.11791 

-.98900 

-1.1318028 

-.0000016 

-5.3D65299 

97 

7.12285D7 

7.0C*lDM29 

5.5667928 

S.54S7T92 

.3571015 

.3551320 

-.11958 

-.98875 

-1.0841899 

-.0000011 

-S. 25 82145 

90 

6.8 85230*1 
6.766*1229 

S.53D6991 
S. 5125853 

.£/6'61051 

.0581132 

-.15053 

-.98860 

-1.D39S181 

-.0000013 

-5.2074671 

99 

6.66 75802 
6.5 28737 5 

S.49*i4lil 
‘ 5.4763D3D 

.0761582 

,0619291 

-.15090 

-.98855 

-.9977133 

-.0000003 

-5.1541784 

IOC 

6. Mb 990 09 
6.291C579 

5.45S1SB1 

5.4131098 

.OP7r053 

,0659338 

-.15054 

-.93860 

-.9585101 

-.0000002 

-5.0983088 

idt 

6.17225M6 

6.053*139*1 

5.1221 0S3 
5.1C418G9 

.0996211 

.0705093 

-.14950 

-.98876 

-.9217732 

-.0000001 

-5.0397966 

102 

E,“53<)6336 

5.8158097 

5.3863657 

5.3686723 

.1132867 

.3757351 

-.11779 

-.98932 

-.8873269 

-.0000000 

-4.9784287 

103 

5*69696M8 

S-57.e396D 

5.3511215 
5 .3337001 

.1281313 

.0816735 

-.11539 


-.8549844 

.0000001 

-4.914D794 

IC<I 

S.M 59175 s' 
3.3*102255 

'5.31653B5 
5 -2995 11 7 

.1152102 

.0831048 

-.11231 

-.98982 

-.6245690 

.0000005 

-4.8455307 

105 

5.2211922 

5.1021211 

5-2827651 
5. 2662359 

- 1636902 

.0960281 

-.13853 

-.99036 

-.7959083 

.0000005 

-4 .7754716 

106 

M.98291C6 

1.8637178 

5.2199650 

5.2339833 

.1845993 

.1016375 

-.13136 

-.99097 

-.7688101 

.0000009 

-4.7006218 

107 

1.7*113152 

1.6219295 

5.2182993 

5.2029175 

.2076370 

.1113171 

-.12889 

-.99166 

-.7432088 

-.0000000 

-4.6Z 16019 

106 

1.5E53288 

1.3856617 

5.1879333 

5.1732915 

.2352813 

.1252869 

-.12300 

-.99211 

-.7188636 

.OqODOOl 

-4,5379530 

109 

'J.2fa5Bl26 

a*i<t5a9q2 

5.1590313 

5.1451915 

.2618087 

.1376003 

-.11639 

-.99320 

-.6956623 

.0000003 

-4.4491496 

110 

1.0257118 
3.905181 3 

5. 131 7750 
5. 1188215 

.2938510 

.1511162 

-.10905 

-.99101 

-.6731690 

.0000001 

-4.3545872 


3.7819513 

5 .1063 317 

.3296501 

.1670139 

-.10095 

-.99189 

-.6521513 

.0000003 

-4.2535031 



- 373 - 


POTENTISL flow - FODF RELF*SE 2 TATE D53I77 

DOUGLAS AIRCRAFT COKPANT 
LOMG BEACH DIVISION 


TEST CASE RELEASE 2 .' *2-P0DT CASE NO. PFDCl PSF - 


0N~60DT UNIFORM CROSS FLOW 

transformed coordinates 



% 

Y 

T2 

T3 

SIM A 

COS A 

STCMA 

N 

PHI 

m 

3.66i|3663 

3.5'I3U3‘(6 

5 .T9ft 'i5*<5 
5-Cfl2S563 

. 3696562 

.1345374 

-.39210 

-.99575 

-.6315992 

-.DCCDC07 

-4.1450563 

112 

3.4224512 

3.3L10736 

5.0719786 
5 .F616266 

.4151837 

.2041695 

-.38248 

-.99659 

-.6116913 

.OCODD52 

-4.02E196B 

113 

3.1796457 

3.0577727 

5 .0518844 
5.0427473 

.4663316 

.2262841 

- .07 2C6 

' -.99743 

-.5923225 

.0DQDDC2 

-3.9016539 

IIW 

2.7358320 

2.8134310 

5.034 2705 
S. 5264 507 

.5250779 

.2511753 

-.06 384 

-. 99815 

-.5733Sfi2 

.0000002 

-5.7639318 

115 

2.6909667 

2.5679423 

5.0193437 
5,. 012 94 a 6 

.5924533 

,2792463 

-.34880 

-.99881 

-.5546447 

-.CDDCOGl 

-3.6131025' 

116 

2.444SBOS 

2.3211935 

5.0073202 
' 5.0024623 

.6739852 

.3139871 

-.33592 

-.99935 

-.5358060 

'-.0000005 

-3.4467607 

in 

2. 1 974770 
2.2730640 

4.9984267 
■ 4 .9952242 

.7658052 

.3470451 

-.02219 

-.99975 

-.5161494 

•DCODOOl 

-3.2616563 

ns 

1.9486315 

1.E233214 

4 .99295211 
4 .9912016 

.8816608 

.3862354 

-.00759 

-.99997 

-.4929606 

.3.000031 

-3.0534405 

117 

1.6980000 
1.612244 7 

4 .9910003 
4 .9923773' .. 

1.0249070 

.4282709 

.02 530 

--.9996S 

-.4660549 

.0G00DG2 

-2.8542874 

12D 

1.5265295 

l'.44S1099 

4.99S34DD 

S.GD04653 

1.1700337 

,9 641756 

.07516 

-.99717 

-.4452452 

.■000033 

-2,6793715 

121 

1.363B42C 
i.2067'34 7 

5.0076025 
5 .016 2761 

1,2983373 

.5316849 

.12396 

-.99229 

-.4294235 

.0000002 

-2.4996859 

322 

1.2C98634 
1.1 37D124 

5 .0268365 
5 .C3S6738 

1.4302784 

.5402189 

.17254 

-.98520 

-.4154549 

.CC0C0G4 

-2.3166354 

123 

1.0644770 

.9958170 

5.C523C51 

5.0669929 

1.5683420 

.5795383 

.22 163 

-.97513 

-.4024929 

-.DOCCOiiO 

-2.1304765 

126 

.9275536 

.3630218 

S.C8343SB 

5.1607380 

1.7147315 

.619481S 

.27196 

-.96231 

-.3898260 

.0200002 

-1,9409239 

12S 

.7989744 

.7385202 

5,1197639 
5, 1395319 

1.8717134 

,6599396 

-32423 

-.94598 

-.3770077 

.3000002 

- 1 .7477513 

126 

.6786504 
.622244 2 

5.1610051 
5. 1831 179" 

2.0417148 

,7308558 

.37 921 

-.92531 

-.3635982 

.0000003 

-I .5504997 

127 

.5 665420 
.5141859 

5 .2069486 
• 5,2313513 

2.2276461 

•7422115 

,4 3766 

-.89914 

-.3491249 

nODOCDu? 

-1.348SB20 

128 

.4626816 
.4 154019 

5.2575035 

5.2636321 

2.4291756 

.7836078 

.4 9976 

-.86617 

-.3330522 

.0CD0C37 

-1.1433369 

129 

.3691185 

.3262277 

5.-3114 873 
5.3396325 

2.6479151 


.56589 

-.£2448 

-.'siscoia" ” 

.0DCD0C4 

-.935CC88 

13D. 

.2845438 

.2462610 

S. 3695363 
5.’399639S 

2.8B6156C 

.3665548 

.6?6S'a 

-.77121 

-.2940277 

.noocDc I 

-.7216359 

IS I 

.2C9F480 

.176,.D83 

5.4315221 

5.4634883 

3. 1421092 

.9379318 

.71 141 

-.70277 

-.2691003 

-.dodo 001 

-.5030138 

l-S? ' 

.1445518 
n 17681 5 

3,4972162 

5.5294433 

3.3997217 

. .9456308 

.73 674 

-.61728 

-.2397985 

.OCCDOqi 

-.2840430 

.. J.. 

..... 

..... .... ,. ... 

. . . , 



... . . 










POTENTiHL FLQli T- rqOF RfLE/SSE 2 

DDUf;i.»S A7RCBAFT CDMP«NY 
UOHG BEACH DIVISION 


TEST CASE RELEASE' Z.D ;■ ' ~2 


6N-H0DT UNIFOBM CROSS FLOU 

TRANSFORHtO coordinates 



K ' 

Y 

T2 

T3 

133 

.0927733 

5-5632098 




‘^.i37Vb89 3 

S. 596 9337 

3.6998350 

.9883181 

139 

.0517239 

5.6320962 




.0356628 

5.6669990 

3.33D1 607 

lnD27B199 

135 

.0222693 

5.7029500 




-0122C57 

5.7389667 

9.C779329 

1.0669069 

136 

.0050333 

5.7796781 




.0010398 

5.607229 9 

9.3086671 

1.1091358 

137 

.0000000 

5 .890,0000 




.0027027 

5,370.1638 

9.5953121 

1.1923935 

133 

.01C296S 

S. 9079932 




•C 232597 

5.937 3530 

- 9.9573578 

1.1820509 

13 9 

.0903651 

S .9695276 




.0596503 

5,9879199 

3.9178016 

1.2160127 

190 

.0612386 

6.CC92719 




.1021562 

6.0271011 

3.9101917 

1.2932111 

191 

.1291169 

6.C936297 




.1991352 

6 .0603R99 

2.5971899 

1.2667705 

192 

.17S01DC 

6.0762820 




.2038299 

6 .0922922 

2.6966960 

1 .2893538 


1A3 .2332091 0.1C72R99 

.2655795 6,122B563 2.3532172 1.3109792 

19A .2983796 6.136722Q 

.3392397 6-1512396 2.ID65C7D 1.3317613 

195 .37C9379 6,1699073 

.9C98953 6.17BE353 1.6969609 1.3518226 

196 .9995205 6,1919833 

.9925903 6-3GS3987 1.715S610 1.3712362 

197 -.5356801 6.2180963 

.5827839 6.2310933 1. 5631.903 1.3932961 

198 .6298728 6.2933105 

.6608255 6.7538919 I.922297C 1.9037999 

19 9 .7319366 6.2677103 

.7371896 6.2753309 1.2996996 1.9270050 

150 .6925309 6.2913G91 

.9C291S9 6.3030237 1.1B961D1 1.9999396 

151 .9623779 6.3190796 

I. 0271180 6.3253913 1.C9E9362 1.9626393 

152 1.0919661 6.3359632 

J. 1619567 6.3967551 1.0200787 1.9B0I509 

153 1.2320995 6.2566R18 

1.3C76663 6.3671392 .9172553 1.9975363 

159 1.3 633770 6.3767'‘59 

1.9650959 6,3663122 


B9D"532 


1.5198353 


OATE 053177 







IDY CASE 

NO. BFQCl 

psf' = 

— 


SIN A 

COS A 

SIGHaT 

. . . 

PHI 

.85888 

-.51218“ 

“-.'2062078 

' .nODODOl 

-.0653630 

.92399 

-.36363 

-.1677189 

~ o“ODDdoi 

.1576255 

.97232 

-.23365 

-.1269691 

' -.DO'OOOOl 

.3839902 

.99709 

-.07683 

-'.5879579 

"-.ODD 0001 

,6397903 

.98389 

,19901 

-.0157325 

'“'.dbb'ODDZ 

.8361775 

.83 255 

,97022 

iT9S981 

"“‘.DCDbobz” 

1.0809003 

.73852 

,67995 ■ 

" '.^iOTl 72 

'■“■.bDCOD'oT 

1.2939657 

.62532 

.78037 

.2605693' 

“,0000002 

1 .9658577 

.59CDC 

.89167 

.2896805' ■■ 

.00CCCC2 

1.6167796 

.9 6979 

,83261 

.3099068 

.obobooB 

1.7628278 

.91206 

.91115 

. 52325 1'Q 

.00000u9 

1.9039567 

.36925 

.93130 

.3333956 

""'^obbobDi 

2.0907928 

.32392 

.94&D9 

.5912129 

" .DC01d009 

2.1738538 

.28 933 

.95723 

.3975727 

.ODOCOD3 

2.30397S7 

.25919 

.96563 

.3530973 

.0000005 

2.9316530 

.23251 

,97259 

.3580310 

.0000009 

2.5573392 

.20855 

.97801 

.3626086 ' 

.aoaot]a9 

2.6815259 

.18673 


.3676096 

.□cbao::9 

2.8099268 

.16659 

.98603 

.3726003 

.0000007 

2.9263179 

.19 773 

.98903 

.3779572 

.0000006 

3.0979001 

.12982 

.99159 

.3638293 

-QOoaoaT 

3.J67BS03 

.11259 

.99365 

.3903452 

.0000009 

3.2876990 
















POTENTieL FLOW - FOOF 

fiCLXaSE 2 







DATE 053177 





DOL"'LftS 

rriNC 

AIRCRAFT CQHPAMY 
BtACH DIVISION 


















TEST CSSt 

RELFASE 7.0 



2- 

BOOT CASE 

NO, BFOCl 

PSF = 



ON- 

■BODY uniform cross FL0« 










tRANSFOBMEh COORD.tWATES 










X 

Y 


T2 

T3 

SIN * 

COS * 

SICK* 

N 

PHI 

JS5 

1.5467935 

6.3952146 


■ 







156 

■ n6'549S7'ir— 

1.7Z3193B 

6. 40405BD 
6.4:21473 


.7702754 

1.5320995 

.09555 

.99542 

.3976713 

.0000007 

3.4075960 

1ST 

1.6183392 

1.913S5DO 

' "^6. 4205526' 
6.4271276 


.7044356 

1.5493998 

.07846 

.99692 

• 

.4059772 

.0000008 

3.5271754 

ise 

2.0162014 

2.1189107 

S. 4338492 
6.4396189 


.6427977 

1 .5668233 

.06071 

.99816 

.4154992 

.0000009 

3.6466553 

159 

2.2296323 

2.3404030 

6.4447989 

6.4487910 


.5876447 

1.5845188 

.04138 

,99914 

.4255348 

.0000012 

3.767ID60 

160 

2.4 6X5907 
2,5610000 . 

6.451SI17 

6.4530000 


.5308812 

1.6028419 

.01749 

.99985 

.442US7 

.0000011 

3.889241S 

161 

2.7100000 

Z.839000D 

6.4530003 

6.4530000 


.4646285 

1.6216712 

.00000 

1.00000 

.4657537 

.0000013 

4.0116441 

152 

^ 2.9683500 

• 3.C9703DD 

6. 453 GOOD 
6.4530033 


.4209578 

1.6393375 

.00000 

l.OOOOO 

.4863063 

.0000012 

4.1256456 

165 

3.2260000 

j.TSSOOOC 

6.4530500 

6.4530000 


.3833988 

1,6553823 

■03 ODD 

1.00003 

.5055309 

.0000016 

4.2291821 

Ifeif 

3. *18399'^ 
3.61299K9 

6.453OC00 
6.45 3 0 000 


•351S475 

1.6700600 

.00000 

1,00003 

.5248081 

.0000012 

4.3238972 

155 

3.7519‘999 

3.8707999 

6.453D033 

6.4530000 


.3245450 

1.6835666 

.00000 

1.00000 

.5446340 

.0000014 

4.4110553 

166 

3.9999999 
4.1 269999 

c. 4530000 
6.4530003 


.3005757 

1.5960512 

.00000 

1.00000 

.5653073 

.0000013 

4.49161S5 

167 

4,2579998 

4.3069998 

6.4530000 

6.4S3QC03 


.2793110 

1.7075337 

.□OQDC 

1.00000 

.5870554 

.0000016 

4,5663603 

166 

4.5159998 

4.6449996 

6.4530000 

6.4530000 


.2602861 

1.7184123 

.30000 

1.D0033 

.6100757 

,0000017 

4.6359144 

169 

4.773V99S 

4.9029998 

6,4530000 

6.453D500 


-2431485 

1.7284693 

.ODQOO 

l.ODDOO 

.6345528 

.0000016 

4.7008124 

17C 

5.C31999"b 

5.16C9997 

6.4530033 

6,4533000 


.2276211 

1.7378732 

.00000 

l.QOOOG 

.6606683 

.0000019 

4.7614955 

ITl 

5.2899997 

5.4189997 

6.4533000 

6.4530003 


.2134812 

1 .7465854 

.00000 

1.00000 

.6886053 

.0000017 

4.8183610 

!7? 

5,5479996 

5.6769996 

6.453OC0D 

6.453QDQ3 


.2005498 

1.7549554 

.00000 

i.OOODQ 

.7185516 

.0000016 

4.8717334 

i7 3 

5,8059996 

5.9349996 

S.CSBDODD 

6.4530000 


. 1886753 

1.7627323 

.33000 

1.00033 

.7507011 

.ObQDOlS 

4.9219118 

17» 

6,0639995 

6.1929995 

6,4530003 

6.4530000 


.1777342 

1-7703524 

.00000 

1.00003 

.7852543 

.0000020 

4.9691485 

175 

6.3ZI999S 

6.4SC9995 

6.4530093 

6.453DODO 


,1676201 

1.7769511 

.00000 

i.OGOOO 

.0224179 

.0000028 

5.0136656 

176 

6,5799995 

6.7089995 

6.4530003 

6.4530003 


.1582432 

1.7834615 

.00000 

1.00000 

.8624024 

,0000023 

5.0556768 


6,:.i'fS?95 

6.4530000 


.1495243 

1.7896105 

4)0000 

l.OOOOO 

.9054189 

.0000020 

5.0953566 
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POTCHTIftL Ft-OU - EDOF 

RELEASE 2 






DATE 053177 

. . 



DOUGLAS 

LONG 

AIRCRAFT COKPANT 
8CACH DIVISION 

















7EST C«SE 

RELEASE 2,0 


2 

-BOOT CASE 

NO. BFOCl 

PSF = 



ON- 

BOOY UNIFORM CROSS FLOU 







- 


tfirNSFCBMEO COORDINATES 









X 

T 

72 

73 

SIN * 

COS A 

SIGMA 

N 

PHI 

177 

6.9669994 

6.4530003 








17 B 

"7.39 £9994 
7.2249994 

6.4530000 

6.4530003 

.1413979 

1 .7954225 

4)0000 

1.03003 

.9516726 

.0000021 

5.1328614 

179 

7-3S39994 

7,4829993 

6.4530033 

6.453COO0 

.1338082 

1. 8339205 

.33000 

1.00053 

1.D0135S9 

.0000028 

5.16S34D2 

130 

7*6119993 

7.7409993 

6.453QDD0 

6.4530000 

. 1266973 

1.8061261 

410000 

1.00000 

} .0546345 

.0000026 

S. 2019314 

131 

7.8699992 

7.9989992 

6.4530000 

6.4530033 

•12DQ237 

l.Bl 10560 

.00000 

1.00 000 

1.1116320 

.0000032 

5.2337441 

132 

6.1279991 

8.2569991 

6.4530000 

6.4530003 

,1137393 

1.8157279 

.00000 

1.00000 

1.1724082 

.0000029 

5.2638920 

18 3 

6.3889991 

8.5149990 

5.4550000' 

6.4530000 

.IflfsTes 

I.820IS7S 

4130QD 

1.00003 

1,2369296 

.0000039 

5.2924765 

184 

8.6439990 

8.7729989 

6.4530003 

6.453O000 

.1322191 

1.8243578 

.30000 

1.03000 

1.3050357 

.0000038 

5.3195808 

IBS 

8-9019989 

9.0309988 

6.4530003 

6.4530000 

.0959126 

1.8283421 

.00000 

1.00000 

1.3763937 

^OODOOAS 

5.3452916 

186 

9.1599988 

9.2889987 

6.4530000 

6.4533003 

.091^771 

E. 832122? 

410000 

1.00000 

1.4504493 

.0000038 

5.3696877 

1B7 

9-4 179987 
9.5469986 

. 6.4530C00 

6.4530003 

.0870900 

1.33576^* 

.03000 

l.OOOOD 

1.5263722 

.0000039 

5.3928340 

188 

9.67'-9986 

9.8049985 

6.4530000 

6.4530DD3 

.0825310 

1.3391132’ 

43OO"0 

1.00033 

1.6030035 

.0000041 

5.4147977 

189 

9.9339962 

10.0629981 

6.4S500d'3 

6.4530D0Q 

.3781887 

1.8423423 

.oonbo 

i.OonCG 

1.6788126 

.0000038 

5.4356328 

19 D 

10.1919980 

10.32C9980 

6.45300QQ 

6.4530000 

.0740681 

1 . 845464? 

4jE4?D0 

l.COOOO 

1 ,7518789 

.0000043 

S.455396S 

191 

10.4499979 
IC. 5789980 

6.4530000 

6.4530Q33 

.0701486 

1.8483093 


l.OOOOD 

1.8199112 

.0000048 

5.4741402 

192 

1C.7C79979 
1C. 8369980 

6.4530000 

6.4530033 

.0664554 

1.SS10635 

.00000 

1.00003 

1.8803348 

.0000039 

5.4919129 

193 

IC,76^9979 
; 1.09M998C 

6.4530000 

6.4530000 

.0630423 

1’.8536724 

.30000 

1.00003 

1.9304726 

.0000053 

5.5087*81 

194 

1 1.223998 0 
11.3529900 

6.4530033 

6.4530000 

.3632608 

1.B561448 

.33000 

1.03003 

1 .9679354 

.0000050 

S. 5247027 

195 

11.4019989 

ll.6i.9997 

6.453D0Q3 

t.4S303C0 

.0581722 

1-8584901 

.00 ODD ' 

l.OOOOD 

1.9917539 

.0000046 

5.5398366 

196 

11.T359999 

11.869COOD 

6. 4 530 "00 
6.4S300a3 

.0553378 

1.6607115 

.03000 

I.GDOOO 

2.0044218 

.0000069 

5.5541716 

197 

12.0237999 
12.17 8 60 0 0 

6.4530000 

6.4530003 

-0514572 

1 ,8630157 

.00000 

l.OOOOD 

2.0116857 

.0000058 

5.5690400 

198 

12.3643600 

12.5501200 

6,4530000 

6.453000Q 

.C47Q793 

1.865SB87 

.30000 

1.00DD3 

2.0174501 

.0000062 

5.5856442 


12.7730319 

6.4S30CD3 

.0426506 

1 .P684198 

-33000 

1,03303 

2.0230547 

.0000053 

5.6039127 



DATC CS3177 


POTENT! «L flow - EODF RELEASE 2 

DOUHLAS AIRCRAFT COMPANY 
LONG BEACH DIVISION 


TEST CASE RELEASE 2.3 * 2-BOOY CASE NO. BFOCl PSF = 


on-body UNiroRH CROSS flew 

TPARSFORHED COORDINATES 



X 

y 

T2 

T3 

& 

COS 

SI6HA 

K 

19 9 

12.9959990 

6 .9S3QCDD 








l3.2o393B0 

6.953DDD0 

. 0378091 

1.8719706 

.00000 

1.20000 

2.0287588 

.□OODDbO 

200 

13.53D9319 

6 .953DC0a 





* 



13.8519255 

6.9S30CD3 

. C323628 

1 .8795695 

.OQCOO 

l.t.0000 

2.0399959 

.0000095 

2D1 

19. 1729150 

6.9530033 




J 




l9.55flniD 

B. 9530000 

.0262690 

1,8778693 

.30000 

l.nOQDO 

2.0900133 

.0000039 

20 2 

19.9933030 

6.9530033 




•- 




15.90S533D 

6.9530000 

.0199257 

1.BBDES92 

.33300 

1.03033 

2.0999665 

.3QDG02C 

203 

1 5.8677630 

6.9530003 








1 6.3710690 

6.9530033 

.2120898 

1 ,8832316 

.JOCPO 

I.D0353 

2.D986J1S 

.DC0C036 

20 9 

16.8793751 

6’.953CC00 





■ 

■ 


17,3776810 

6.9530L03 

.2097657 

1.8895120 

.00000 

1.00 000 

2.0503102 

.0300030 

205 

1 7.8809869 

6.9530000 








18.3892928 

6.953OC00 

-.0029293 

1 .8896999 

.30CC0 

l.COOQO 

2.0999390 

.0000030 - 

206' 

18.8875990 

6. ‘530003 








19.3909099 

6.9530300 

-.0096805 

1.8937565 

.30000 

1.00000 

2,0979599 

.0200027 

207 

19.8992111 

6.9S33CC3 








20.3975165 

6.9530000 

-.0171903 

1 .8816706 

.33000 

1.03QS3 

2.0927760 

.000002“ 

20 8 

20.9008219 

6.9530000 ' 








21.9091278 

6.953actl3 

-.0251813 

1 .8783837 

.330C0 

1.00003 

2.3356762 

.0000021 

2D 9 

21,9079390 

6.9530000 








22.91C7399 

6.953C'-'33 

-.0338870 

1.8738019 

.03000 

1 .COODO 

2.025S979 

.□0C0016 

210 

22.919C960 

6.9S3DPQ0 








23.9 173520 

6.953000D 

-.□>136099 

1.3677913 

^00000 

I .CGOOO 

2.0128599 

.0000021 

211 

23.92C65E1 
29'.9 23'969f!" 

6.9530003 

6.9530000 

-.0596882 

T.S6dl7C3 

«QQ dOO 

l.CDOlo'" 

1.9961080 

.odddOTi 

212 

29.9272699 

6.9530003 








25.9 3C5758 

6 .9530000 

-.0676191 

I .8506905 

.33000 

1.00003 

1.9798285 

,30DCD1 6 

213 

25.9338820 

6.9530000 








2t. 9371879 

6.953D0D3 

-,0329999 

1.8392226 

.23000 

1.30303 

1.9979929 

.00000244 

21 9 

26.99C993I 

6 .9 530000 








27.9937990 

6.9,-.i3003 

-.1016938 

1.9297230 

.30000 

1 .00000 

1.9192579 

.0000011 

21 5 

27.9971099 

6.9530000 








28.9509108 

6.9530000 

-.12>i9591 

1.B071B9Z 

.30000 

1 .00003 

1.8718507 

. 0000032 

216 

28.9537170 

6. 9530003 








29.9570229 

6.9530003 

-.1596363 

1,7855825' 

.00000 

1 .00000 

1.8183978 

.0000023 

2*7 

29.96C3291 

6.-9S30PD3 







30.9636350 

6.9S3Q3D0 

-.1937183 

1.75B706D 

•33000 

1.CDC33 

1.7506929 

,0000016 

218, 

30.966991 1 

6.9530000 







31.9702966 

6.9530003 

-.2973039 

1 .7297629 

.00000 

1.00003 

1 .6639279 

.ODCD019 

219 

31.9735520 

6.9S3D0Q0 








32.9768577 

6 . >4530003 

-.32520C2 

i .6808923 

.OQDOO 

i.roDoo 

1.5511266 

.0000021 

220 

. 32.9BC169] 

6.9530000 







33.9639700 

6.9530000 

-..499603' 

1..6220351 

«OOQCO 

1.00000 

1.9000598 

.0000009 


PHI 

5.623S999 

5.6RR21D3 

5.SS>ieS82 
5.6SR1524 
S.S993002 
5^7077500 
S.7d89327 
5.70288D9 
5.68914266 
5.66B2101' 
5.6386937 
5.5998579 
5.5SC67S8 
5,9895056 
'5.9192128 
S-32T9379 
5.2QB7917 
5.D69J690 
9,8959297 
9.676E92D 
9-3937982 
9, 0139922 





POTCNTiai. Fifiu -'EODF RELC*SE H ‘ - DiTE 053177 

„ - yj^c'pAFT* COHpSnT ■ “ — ^ - - -- 

LONG BE#CH O^^VISIOM 


TEST C»SE fl'ELF&SE ■ 2.D - - - - - 2-B0Dt“ CASE NO. '3F0C1 PSF = 


0N-H0D7 UNIFORM CROSS FLOW 
■ tRANSroRNEn COORDINATES 



X 

t 

TZ 

T3 

SIN A 

' COS a' 

SIGMA 

""n 

PHI 

2Z1 

33.9867759 

6.453000 3 








222 

36.fi9cCai8~ 

34.9933882 

6.453GQ00 

6.453GDD3 

-*6889676 

1.3374299 

.00000 

1.00000 

1.1656893 

.0000013 

3.468034S 

223 

35.496694 1 
3 6.QOOCOQC 

6.453QDQC 

6.4539CQD 

-J . i?93895 

1.39813C4 

.03000 

1.00003 

.8453332 

.0000007 

2^5691355 








• 




ADDED MISS r 6573.6681641 VOLUME = 1335.C665936 



379 


POIENTIdL TLOW - CQDF RELEASE 2 


DATE 053177 


THE FCLLOWJKG HUHBERS ABE THE EABtl IMAGES THAT CET PUNCMtb WHEN THEBE IS PUNCHED OUTPUT 


.imC951B«CC .lCBBC690*rG 
.73e8479»-CI .Sfe7G9!i9E-31 
..23 B<i93C6-l, 1 . I AB?6<f3 9-CI 
18877«33-JE-.56B65923-ri:- 
139 Gr 309-01-. I 576529 0-01- 
1B06D S76-C1-. 1783 6119 -Dl- 
--lS9S935a-tn-.135D615X-01- 
-.39193236-02 .769B30S6-C3 
- IBOil 1 ia-Ci .21195997-01 
.99365082-01 .63875736-01 
, 1397c 670400 .17139681400 
.32996093*00 .366666564QQ 
-, ]9737B99*C1-.B9S639874CD‘- 
-.33212972*C0-.255371104C0- 
-.11977 7E64LC-.9316&6I7-C1- 
-. 928 298 99-C1-. 3290 e 69 0-01- 
10788273-dl-.56720?ia-02- 
,99691063-02 .19633909-01 
.31707938-01 .39123923-01 
.79625253-01 .90199337-01 
. 159693'3S-01 .12627993-01 
.10575697-01 .11873811-rl 
.20902696-01 .29652370-01 
,91763309-01 .98998263-01 
.76158157-01 .87305283-01 
. 12893928*60 .19529r25+0G 
.20763705*00 .23328133*00 
.32965009*00 .36985331*00 
.52507 7 90*00 .5929 5339*00 
.88166076*00 . 10299070*01 
. 19lC2789*01 .15’6B 3920*01 
.20917198*01 .22276961*01 
. 28861 S6‘>*01 '.31921092*01* 
.38801607*01 .90779329*01 
.99573578*01 .39 17 601 6 *01 
.269 6 6 9 60 * 01 .2 3 5321 72 * 01. 

. i716E61D~*01 .15601903*01 
. 11698101*01 .10909862*01 
,89095 319*00 .7 702759D*r3 
.5a7699&7_*DD .53088120*00 
. 3a 3 39 8 82 i DC . 3 5 1 8 9 79 7 * CO' 
.27931109*00 .26028606*00 
.2I39612C*CC''.20059‘979*eb 
,1676?Dl?*tlC .15829318*00 
.133B(:ei5*0C .12669739+00 
.10781699*00 .10221913*00 
.07089966-01 .82S3D973-QI 
.73198650-01 .66955353-01 
.58172173-01 .55337759-01 
,92650692-01 .37809105-01 
.19925675-01 .12CB9S20-'*! 
-.9G8C>i blI-C2-.1719Q2a3-Dl- 
-.9 3SC9 9 35-C1-.S968 8239-CI- 


.98550399-31 .85267998-31 
.93662039-01 .32366559-01 
.81659829-32 .26667036-02 
..9899 1716-C2-.1 1609591-01 
. 171 3 C731-01-. 1 7936612-0 i 
.17991231-31-. 16798723-31 
. iDB17926-01-.73Se 0056-02 
.50832191-32 .97995281-02 
.28666263-01 .37877786-01 
.32202705-01 .•1059 0622*00 
.21693607*00 .26910103*00 
.35017522*00 .12869359*00 
.60198188+03-. 93919P77*00 ' 
.1978 9669*00-. 15388533*30 
.7233 2099-3 1--5S669S39-5 i 
. 23959506-01-. 169 5 7998-01 
.68569666-03 . 9 32320'82-Q2 
.19877739-01 .25958357-01 
.98035622-01 .79533237-01 
.29512589-31 .^1269789^1 
.10795977-01 . 10170737-01 ' 
.13981679-31 .16829976-01 
.29627923-01 . 3532 1913-Or 
.57131519-01 .66105111-01 
.99621359-01 .1132ef,66»30 
.16389017*00 .18959929*00 
, 26 1 8 837 1* lJ 0 .293850 97 *0 0 
.91518370*00 .96653169*0^ 
.670? 8509*00' .76580523*00 
.11730337*01 .12980373*01 
.17197315*01 .18717139*31 
.29291258*01 .26979151*01, 
,33997237*01 , 369 9B350*0'l 
.93386671*31 .95953121*01 
^39101917*01 .29971899*01* 
.21065070*01 .18969809*01 
,39222970*01 '.12996996*01 
.10000787*01 .91725580100. 
,70998565*00 .69279766*30 
.96962852*00 .92095782*00 
i 12959509*30 .30DS756B*0 o' 
.?9319859*DD .22762110*00 
. 18867530*00 .17773919*00 
.199529 3 0*00 .19139788+00 
. 1200 2372*00*^ 11373929^00' 
.96912592-0 1 ,91877108-31^ 
.78138669-01 .79068068-01' 
.63392279-31 .60260782-01 
.51957158-01 .97079398-01 
.32362899-01 .26269rOB-01 
.976571 13-02-.29292S32-0’2" 
.25181259-01-. 33887018-01 
.6761 9375-3 1-.S2999933-01 





PbTENflftL FLOW EODF RELEASE Z 

idl693F3“ CC- ■ 1 299 S <ia9f cb~, 1 59 & -a39 »□ P-1 1 9371 b'zS ♦OD 
-. 2<I73C 3 35 *Cr~. 52SgCC21 *CD-. 91199 6339 *33-. 66595759 -i-jg 

11995695*01 ■■ ' 

, 115787 1C*CC .1^9^&6Q*rC > ll?293e9+aC . la902587*3D 
.105333C6*SP TlG126C45*Sa .96962258-31 .92718602-01 
,86598328-01 .88603391-01 .30798761-31 .77179953-01 
,'73 BUI 559-0 1" 7 063"i 8 00-01 676 8 Cl 3 S-Of .68901881-01 

,62309186-01 .59333639-01 .57623083-0 1_. 5556 37^ -^1 _ 

.53636253-01 .5lS8oPl-Ol'. 89357811-31 .86171827-01 

-82909890-01 .^392332-01 .3568 3662-01 .32666892-01 
.305e6ll9-Ol .29988339-01 - 31 1 69266-iJl .38268856-01 
.39885387-£,I .87013993-01 .57879308-01 .71352810-01 
,'S 9^97^51 -01 .li32778Z*dD'ri83e2d6O*0a .18305085*00 ’ 
.23326592+G0_ .297JQ 533;^1^ .37889088*00 .83531338 *00 
.6 c 52861C!*0C i 7515 673"1*0QT9035 2761*00 .10195507*01 
.68199672*60 .89:6^771*00^ . 37375567*00 ._2 ^51 ^825-^0 
.22127i92*CO .17285870*00 .1387 3i22*bo' ‘.1058 3036+Od 
.32625255-01 .68875752-01 ,51081195-01 .80396333-01 
.32160612-bi .2‘!698 28‘8-bl .21193598-01 .17782853-01 ~ 

-15851670-01 .1806228j^qi .13533863-01 .1 33311 39 -01 
.18923239-01 .16590178-01 . 165e2288-3r .207688 10-01 
.23058538-01 .25829919-01 .27383581-01 .30651 282-01 
.38206386-01 ,36710277-01 .38159102-01 .39178982-01 
,39923633-01 .8J5072S7-D1 .80998972-01 .81888936-31 
. ■.8T8'?35B6-01 '.8lOS'8'SO^a-0 1 . 8'3e02366-^l"'*' 

,88713527-;** .75813M1-C1 .^18 6322-31 ^88738665-01 
,SO6l0J6I-in .S?a3BS92-Br .5583i9?7-0i .5‘8‘88“3 288-01 
.61929062-01 .65933838-01 .70509270^01 .75735092-01 
,3l6J35l8-Cl .36808889-01 .96026060-01 10863'789*00 

.11938710*00 .12523689*00 -13760029*00 ,15188613*00 
.167dl3'935cc ;'i 885D73'7*rt ,23816953+00 .2262880f*3Q "" 
*25117St3*'C ,27928605*00 .31098718*00 . 38 7_T8 50^6*011 
.38S2S^39-< ' .8'?6t7ij-^l+0O .86817557*00 .5Oi68'895*0D " 
,5802189 ,57953830*00 .61993176*00 ,65993950*00 

,70065579* CO .78221158*00 .78360776*00 .82889267+00 
,ei8358a3+i,C .90793176*00 ,98 5 63382 *30 ,98831939*30 
.10576189 + 1,1 ';if66 9a58 *5!i .'3138 i358*0l’".''ll82383S*0I ' ' 
.11323509*01 -1^1601^7^’^l .12832111*01 .12657705*01 
.12893538*01 .11109792*01 .13337612*01 .1351B225+0I 

.13712862*01 .1 3902831*01 .1^838 7998*01 .18Z7CE60+Q1 

,18 889 386*01 .18626380101 . 1880 1509*0 r •1897'5?63*bl 
.15183353*01 .15320955*01 .15893993*01 ' 15668233 *01 _ 
,15885 133*01 .16028819*01'. f621&'712*bl.l639'3376*31 “ 

,;655IS23*D1 ,1670G60r*m .16335666*01 .16960512*01 _ 
. 17376237*^1: ,ltlB8i22 iCl .17p8e.93*3i ,1737S732*0-i' 

. 178 66 B'-'R *01 .1758 9568*01 .1762?323*01 .17700528*01 
»177695ri*(U ,17838615^01 ,17396105*01 ,17958225<bl 
.laQD92tS*0j *18061761+01 .18110560*01 .18157279*01 
• ieJCJ 5l5*bl .1828 357 a *01 ,18283821*01% 18321227*01 
.1B3570V6+C1 .18391132*01 .18823820*31 .18858087*31 
.13833093*01 .13510635*01 . :B536728*bi .iaS51888*01 ' 
.19588901*01 .13637115-Pl .18650157*01 .18655887+31 
,ie6E81S3*Cl .18718736*01 .13786685*01 .18778^3*01 
.13828582*01 .18832016*01 .18315120*01 . 1838 1.988 *01 
.18837565 >01 .18Bl'67C6*bl .1873 38 37*01 .13738019^01 " 

,186779'3*Dl .18601703+01 .18506905*01 .18390226*01 
.18287230*01 .18071f.92*rj ,17855825*01 ,17587060+31 


DATE 053177 






POTCNTIftt FLOV - EODF RELCftSC 2 ' D»TE 

• 172R762<rJcr7T^0e92l*0i ri&22C3"Sl*Dl ' .IsSTRifR^^oT ' 

,139B13C<(-Cil 


053177 



- - 


POTENriiX'FCtfU“ tODF RELFASE 2' 

- ■ ‘ '“”0Wr4r*S"~»lR CRAFT XOHPtNT~ 

_ _ ' LONG BEACH DIVISION 


date 055177 


TTST case rEEEASE 2.5 2-BOOT ” ' CASE NO. BFQCl PSF = 


OFF-BOOY UNIFORM CROSS FLOW 

TftANSfORMEnCdORDIHATES ■ '' 

X ■■ r ' wx ”vY V2 ' * 


1 

-iSOOOOOO 

.0000000 

.COOOOOO 

.8068886 


.3000000 

2 

-.5000300 

.7222222 

-.0851839 

.8119302 

.3083989 

-.1383815 

3 

-.5DCDD00 

1 

-. 1735806 

.8300357 

.8191312 

-.2688771 

4 

-.SCCDOOD 

2.1G6666& 

-.-2687938 

.8688395 

.3296205 

-.3799889 

5 

-.SCODODD 

Z.8S88889 

-.3789115 

.9282969 

.3913818 

-.8582318 

b 

-.scCqqoo 

3’,6iiiiii 

,8988252 

l.D2997'2b ” 

.8678898 

-.8785107 

7 

-.50C.0DDO 

8.3333333 

-.6188982 

1 .2305369 

.9093888 

-.3926502 

8 

-.sffcoaoD 

5 .0555555 

-.6826P61 

1 .6807097 

.9811263 

-.0958171 

9 

-.5QC0CC0 

5.7777777 

.0003217 

2.1056865 

1-0988997 

.5691096 

10 

-.50'D'COOO 

6.8999999 

.5999859 

i. 51327^5 

1.1818931 

1.1820128 

11 

.0000000 

.ooraooo 

.ooooooo 

.7886029 

.7996028 

.0000000 

12 

.occooco 

.6111 111 

-.0797065 

.7878982 

.7956981 

-.1558397 

13 

.0000000 

1.2222222 

-.1628112 

.7570235 

.7886919 

-.3071583 

ll ~ 

■ .GCftiirod" 

1.8133333 

"-.ISiGRSB 

-7788160 

.7581201 

-.8507797 

is 

.OOOOQQC 


-.3521733 

.8023913 

.7624695 

-.5036301 

16 

.OOOQOOO 

3.C5SS555 

-.8712822 

.8888665 

.7787822 

-.6B8165S 

17 

.0000000 

3.6666665 

-.6213967 

.9268291 

.7929910 

-.7590332 

IB 

.QCCOOOD " 

8.27T7777 " 

-.825928 6' ' 

1.07l3ffQ'lI " 

,8212179' 

-.7687899 

19 

.GCEDOOG 

4 «P6Bdaes 

-1.1311668 

1.8312888 

.8698560 

--636259S 

ZD 

.0000000 ' 

5.8999999 

-1,8856172 

2-5755538 

.9776317 ■ 

-.■1230258 

21 

iSCCCOOO 

- .rcQoooo 

.0000000 

.6775187 

.6775197 

.3000000 

22 

• SCCDOOO ■ 

.5692158 

-.0789960 

.6787838 

.6 781696 

. -.1831910 

23 

.5000000 

1 .1388317 

-.1609200 

,6833721 

,6799832 

-.3688865 

21i 

.SOCOOOD 

1 .7C76875 

-.2892287 

.6913695 

,6820196 ' 

— -.5829988 

?5 

.SCEOOOD 

2.2768638 

-.3886085 

.7037899 

.6857923 

-.7158079 

28 

.SCOOOdO 

2.8860 792 

-.8663101 

.7221957 

.6911097 

-.8791268 

27 

.5000000 

3.8152953 

-.6150781 

-7896771 

.6989272 

-1.3289601 

28 

.5000000 

3.9885109 

-.8206532 

.7918878 

.7085355 

-1.1613836 

29 

,5DC00Q0 

4 .5537267 

-1.18558D9 

.8593385 

.7228339 

-1.2621586 

30 

.5C0D0C0 

5.1229826 

-1.7923689 

.9523883 

.7832091 

-1.3155508 

31 

1.0000000 

.0030003 

.0330000 

.6375380 

.6075080 

.0000000 

32 

1.0000000 

.5872980 

-.0777250 

.6078562 

.6076269 

-.2187839 

33 

i.CDrcooo 

1.0985960 

-. 1581 107 

.6079956 

.6077136 

-,8293952 

38 

i.oooooOb 

1.681B980 

-.2882069 

.6383758 

.6076731 

-.6838358 

35 

l.CQOOQOO 

2,1691920 

-.5831505 

.6032587 

,6079995 

-.3581685 

36 

1.00C03DO' 

2.7368933 

-.8516888 

.6368665 

.6079217 

-1.3729188 

37 

l.OuOCOOO 

3.2637879 

-.5882986 

.6001762 

.6072959 

-1 .2397212 

38 

1.0CCG30D 

3.8310959 

-.7665580 

.5820171 

.6051595 

-1,5126660 

39 

l.OOCOOOO 

8 .3783939 

-1.0179502 

.5306718 

.5996130 

-1.753C879 

80 

i.ococooo 

8.9256819 

-1 .3995792 

.3786589 

.5350365 

-2.0839780 

41 

1.5CCOOCO 

.0030033 

.0330000 

.5371677 

.5371677 

.333COOO 

82 

i.sccBooo 

.5370722 

-.0751903 

.5359891 

.5369580 

-.2886870 

83 

1.50ECODD 

1-0781883 

-.1525986 

.5331378 

.5358799 

-.8985373 



OHJE 353I7T 


POreHTI^L FLOl' - EODF PE LEASE 3 

sdufLAs' 'sipcpaft"^ COkpaffT 

L’^KD PEACH OlVlSrOH 


TEST CASE RELEASE 3.3 2-B00» CASE «0. BFOCl PSF = 


OFF-BODlf UNIFORM CROSS FLOP 
TPA'HSFOBHED COORDINATES 



X 


vx 

Vt 

V? 

PMl 

^4 

l.EECGOQO 

1.6112165 

'-.234-7021 

.5272873 

.5340785 

-.7507004 


J-SLOSSjC 

3.1652886 

-.3245164 

.5173539 

.5312518 

-1.007DC65 

46 

l.SCPCPOD 

3.6853608 

-.4259542 

.5006494 

.5269465 

-1.2733192 

M7 

l.SCCODOD 

3.7229329 

''.5442644 

.4719621 

.E«e393B 

-a .545 4989 

^3 

I.3r,G0Dti0 

3.7595D51 

-.6861697 

.4204634 

.5101697 

-1.8415S94 

^9 

i.SCCCUQO 

9.3965 772 

-.8579109 

.3223797 

.9 935126 

-2,1761620 

5C 

l,5CrC3D3 

6,8336693 

-1.0551419 

.1212812 

.464 7340 

-2.58728S0 

51 

!*698C0OP 

.CCQOCQO 

.C330000 

-5097785 

,5097735 

.3COCOCO 

53 

!.693ccar 

. 5356972 

-.0738221 

,5382492 

.5093995 

-.2627152 

S3 

1,6980000 

J .07IJ996A 

-.1496486 

.5341540 

.5079699 

-.5269515 

5A 

:,b9PLDDD 

1 .6066915 

-.2296856 

.4962719 

.505519x1 

-.7943795 

SS' 

1,698C3CC 

3.1419887 

-.3164961 

,4831598 

.5017024 

i. 3673479 

St> 

i.afscaao 

Z .6774859 

^.4151970 

.4619001 

.4960394 

-1,3493473 

37 

J. 6930300 

3. 3729831 

-.5234776 

.4270271 

.9876872 

5460523 

58 

1.6VPCO0O 

Z.7484P0S 

-.6503522 

.367970? 

.4751845 

-1.9672607 

39' 

1.6980000 

4,283 9 774 

-.7947421 


.4559309 

-2.3308739 

63 

2.69Rcaca 

4.8194 745 

-.9330656 

.0718866 

.4250309 

-2.7710515 ' 

bi 

3.69HCCC0 

« ctdCOiiDn 

.0000000 

.3811340 

.3311340 

.3000000 

63 

3,6 98C3UD 

.5324882 

-.0627459 

.3783852 

.3803447 

-.3287198 

6 ^ 

?, 6980,000 

1, 0609764 

-.1262553 

,3704314 

.3 776408 

-.6603084 

64 

3.6980330 

i .5914646 

-.1912237 

.3561386 

,3730523 

-.9977550 

ss 

3.6 98000C 

2.1319528 

-.2581045 

.3341005 

.3662514 

-1.3447846 

66 

3.698C0OO 

?.6S24«10 

-.3268149 

.3023507 

.3568003 

-1.7063280 

67 

3, 6 98 00 do 

3.1829292 

-.^jei'.'O" 

,2567404 

-3441202 

-2,0876190 

63 

Z. 6980230 

3,7134174 

-.4624'>:^ 

,1941317 

.3275923 

-2.4976714 

64 

3. 69^0000 

4.2459057 

-»51S7^-^J; 

.110'-115 

.3057 396 

-2.9463758 

7a 

3,6980030 

4.7743939 

-.5533929 

.0074036 

.2784758 

-3.4448409 

71 

1,6980000 

.OCCDOOO 

.PDOOPOO 

.7761263 

.2761263 

.3330000 

73 

1,6983000 

.5394 769 

-.0493820 

-2730163 

.7752379 

-.3939924 

n 

3,698CDC0 

1 ."739537 

-.3995992 

.2640426 

.2721550 

-.7853002 

r*i 

J,698CQC0 

: .6184^06 

-.1473479 

,2484905 

.2670593 

-1.1862136 

73 

3.6980000 

2.1579075 

1949812 

,2256420 

.2597278 

-1.5974390 

76 

3.&9PCOOD 

2.697 3 844 

-.2432891 

.1946515 

,2499528 

-2.0231656 

77 

3.6980000 * 

3.2368617 

-.2812508 

.1546612 

.2575320 

-2.4690032 

7B 

3.69SC0C0 

3-7763381 

-.3148427 

.1353257 

.2222794 

-2.9365360 

79 

3.6980000 

4.3158150 

-.3371736 

.04 75444 

.2041264 

-3.4348430 

80 

J.698E00D 

4.8552918 

-.3443050 

-.3158324 

,1832377 

‘^S*9656l91 

81 

ii.5ofipacp 

7,6458126 

-.0179944 

.0048421 

.3498203 

-2,5139974 

B3 

1I.6LC033C 

2.9934785 

-.0186302 

.0399980 

.0449523 

-2.8560497 

83 

11.60CQDCP 

3.3351444 

-.0199347 

.0135945 

.0415385 

-3.1966074 

39 

11.6000000 

3,6798103 

-.0216325 

.0161984 

.3390529 

-3.S36103D 

as 

11.6CGODOC 

4.024 4 761 

-.0236707 

.0131962 

.3371824 

-3.8748364 

8 6 

1 J.6L0C0QP 

4 .3691420 

-.0262490 

.0198772 

.0357510 

-4,2129410 



_ 

POTiUTI^t fLQU - EOOF StLEASE: 2 " - 

bOUnLAS' AIRCRAFT” “cOHPii Nr " 

tUNG BFACH niVISION _ . 

" T£5T Cist FELrASt "?.D ' '2^‘OOr' CASE'NO^ 


OFf-pFOT UNIFaRN CROSS FLOU 
rt,jifjirF(>K»<|rp cbbRblNATE' 



I* 

r 

vs 

77 

»2 

6? 

ii.&oocDcr 

R.7138Q79 

-.CZ95959 

.0219593 

.0346972 

es 

3 l.FCaODE.', 

5.D5BR735 

-.0592771 

.0231871 

.0338119 

B9 

1 !.tcrD3C'> 

5 .RCSIS^T 

-.3917557 

.0252877 

.0331977 


! i.Facoocn 

S.TRTeaSE 

-.C5&fii75 

.02817 3,'? 

.0326045 


DATE 053177 


BFOCl PSF = 






P«I 

-4.5SD4S79 


-i». 8874375 

-5,2237579 


-5.5592518 




'35S- 


POTE^jTrl^L 'FLOTJ - £vOF BFLEASC Z DATE 

■ ^ tHg“FOLLOwiKG NIiKhERS ABC TIIF CARD IMAGES THAT GET PUNCHED VHEN THERE IS PUKCKES OUTPUT^ " ^ 


. DuDCDQGQ -.85 1*1 39Z6-D 1- . ITSSBCGil-GC-. 24879331 *GC 
-,37*I91J *IB» DC-. 9 914 32523 ♦Oa-.Gl 3 8 9*t22*00-. 6426061 2 *03 
.32l6767i-E3 ".599945E7+CD .E333C3D3 -.7973 6472-31 

-. 162411 J8*G0-. 25 15 457 7*00-. 3521 7328*00-. 4 712e22S-*aD 
■-.‘621 39 667*fb-. 825924 6C*LC,-. 113 11666*01-. 14 356172*01 
.DO^raq^DO -.7S996035-D1-. 16392GOO*00-.24922»66*3Q 
-.34BbC846-*aD-.4653iaDS*bb-'.61S07411*0C-, 82065324 *00 
-..11455SC9*J11-. 17923649*01 .00300000 -.7772 4 960-31 

- . is S n 073 ♦ CO- .24424695* 00- . 34 01 5046*00-. 45168877*00 
-.58829^4 57 *GC-.76655432*C0-. 13 179522*31-. 1399 5792*31 
.OQoSbCbO -.75190304-01-. 152S946C*00-.2347C213*20 
-.324 516*42*00-. 42595424*90-. 5442 64 4 4*00-. 6861 6968*30 
-• B 579 i C9 r* Db-. i 055 1419*01 . 0000 COCO - . 7 332 2 05 1 -D 1 

-. 14964 8^1*00-. 22968557*CC-. 3164 9607*00-. 4 1319702*03 
-~.S23‘f77f.4i0n-;§'0BS217»0Q-. 794 74214*30-. 93306563 *22 
.□QDODOOQ _ -.62745922::0l-. 12525535*00-. 19122373*30 
■^. 25aia4 5i*0D-r326B14 93*CC- . 396 12300*30-. 4624 6718*00 
-.51822978*00^^3089286^0 .00000000 -.4 9381966-01 

-. 98599 222 -Cl-.14 734 79r-*00-. 194981 16*00-. 24028906*00 
-.28125 078*00-. 31484273 *00-. 337 17358*00-. 344 32499*30 
-.1^994 3ee-bl-.rfi6B02r5-bl-.1993 470f-01-.216C2513-ai 
-.23670 y9-0J -^.2624 6994 -01- . 29595892-3 1-. 34277149-3 1 
-.4i7SS33i-Cl-. 56947480-01 ■ 

.53644 4 6 2*00 .11193022*00 . 83003S66*OC_ .86443947*00 
.924i9692*00 .10299726*01 . 123‘a5389*Ql . i'64!]7Q97*Q 1 
.ZljQS646S*01 .15132775 + 01 .74460284*00 . 7474 9»24 *00 
75702 353 *00 '177441630 »Cd ^ 8'028 9131*0 D . 84 83 6651 ♦3'0 
.926429 14* 00 .lQ7!30q0*01 .14012444*01 .25755534*01 
.6r7“E1466*0b .67878343+CD . 6833 721 f*S3 ' . 69136949'*3C 
.70374985*00 ._71219574*00 .74967706*00 .79184739*00 
■.859 338 46*00 ■.9S23r426ioo .6075 0799*00 .6074 5621*00 
. 60799558 *00 *1083 75^* 00^ .60B15417 + D0 .6064‘6647*00 
.6D017616*DcT.5820i7lf*bQ .53067178*b0 '^3786548S'i00 
.53716770*00 .5 3594914*00 _. 5331 074 1*^0 .51728729*30 
r5X73‘5392*t]0 .5006 493 8 iOO' .471 9 621 1*00 .42046335*00 
j^3^1T961^00_._l 2128124 *00 -.5097 78M+00 .53824921*30 
.50415395*00 .4 9627ie'9*00 ’.4B3i'5975*b0 .4619n014*d'b 
.427027C9*DC_.36797D2D*00 .26382460*00 .71886644-01 
.'iai i3403*0b r37S3'8519*bb . ST04il39io’o .35613865*00 
.33410048*00 .3q2G5O68*0D_. 2567 404 I+OQ .19410168*00 
.11061159*00 ■.7403E52‘5-C2 .2761 2627*30 .27301627*00 
.26404262*00 .24849054*00 .22564198*00 .19465X48*00 
.iS4'66 122*00 ■.1C5'32521*CC . 4754 4363-3 1-. 15832365-3 1 
.48421472-02 _^998 0086-02 .13594506-01 .16198426-01 
.18 i'96 i 9S"- 0 1 .19877240-01 . 214 5902" J-b 1 . 23 1 8 7 1 31-0 1 

.252878^2^^01 .2817 3923-01 

80644 462+'bb .80839491 *00 . 8141 312'i*0C 24 62053 *00 

.aM3B145^uQ .6674£935*P0 .9093884 *3-3 ^98112629*00 
' .i0984 997»'oi .1 i3'iB4Sl*Cl' .744 602a'4»0C' .74564411*00 
,74869193*00 .75412014*00 . 762Ji 69S0 + 0D . 77_478221*00 
■ .79299095*00 ^82121794*00 . 8698 560 i*00“^ 97763 175**ab 
, 6775-1466*00 .67816959*00 .67948319*00 .68201961*00 
.68579234*00 ■.69110966*00 .69842723*03 .70S5354B*0p 


053*77 



POTEHfl*L flow - foDF 

" T722B3 C 6C .Yi 32 ER d? rQ'o“7607 S D799*6b' 
.60771 35G*0G .6CT -VCOl-^^Q .637999*t6*30 
' . 60729 588 ‘CC ‘.6051 599 8 *00 ' .5996 13q3i 00 
.53716770*00 .53695798*00 .53587995*00 

;S3I2Sa76*0C ■.5269*1651 »CD ',52039377iDD 

,99352265*JDJ . *1 6^7 3*1 03*00 .M977ay*0D 
■ . 5d796993*OO~l5O55i502*00“ .Sal7C238*0'b 

. *I 87 68 7^2 ♦ D0_ . 9 7^ 8*t<l6*D0 .<1559 0892*0 0 
.■38n3*(C3*0D ■.3BD3'i97D«bo ;3776*OHO*aC' 
.36625191+00 .35680830*00 .399 12017*00 
‘ ;3Tj573957*CD ■.27897578*00 . 2761 2627 *"30 
.27216505*00 .26705939*00 .25972776*00 
12TT53l9f*lD .■2?22799d*00 ~.209i r'693*00' 
.99820309-01 ,99952273-01 .91538537*01 
■" .37Tff2'9C6-dr73S'7'5d'9SS"-*0l 739^9'7iS2-01 
.33197201-01 .^8399S9*Cl 


7'607628a7»Oo' 

.60792169*30 

.58503655*00 

.53907899*30 

.51016979*QD‘ 

.50939952*00 

,99603999*00 

.92503038*00 

.37335239*00 

.32739276*00 

.27523795*30 

.2999S2B1»Q0 

,18323773*00' 

,39052889-01 

.3381 1 852-0 r 



- - 3 <? 7 ” 
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(b) VTOL ENGINE INLET. 


Figure 1. - Inlet geometry and flow conditions for combined solution: 
inlet mass flow rate, W; free stream velocity, Voo] and inlet incidence 
angle, a. 
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(a) CONVENTIONAL INLET. 
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• INPUT POINTS 
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APPROXIMATION 



(a) LOWER ORDER METHOD; FLAT (LINEAR) ELEMENT. CONSTANT 
SOURCE STRENGTH. 



AXIAL COORDINATE SURFACE DISTANCE, S 


(b) HIGHER-ORDER METHOD; CURVED (PARABOLIC) ELEMENT, LINEAR 
SOURCE STRENGTH. 

Figure 3. - Methods of approximating body surface contours and element 
source variation for basic solutions. 






(a) CLOSED-DUCI METHOD. (b) SHROUD-VORTICITY METHOD. 


Figure 4. - Types of basic solutions considered. 
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Figure 5. - Combined Holution, V. 




5 - I/O Unit No. 

B - ilewind 
W - Write 
R - Read 


Calcomp Jioutines Itefereneed: 
CL) - Line 

(P) - Plot 

CS) - Symbol 

(SC) - Scale 

(N) - Number 


Figure 6 - CALL SEQUENCES 








c) COMBYN. 

Figure 6 - Cconcluded} 










O SGguiQnt endpoints 

O Slope line endpoints (lengtJi of slope line is arbitrary) 
A Optional superollipse point 

V Optional bisuperellipse point 

Cb Optional bisuperellipse inflection point 




a) Superellipsa optional point 
CX3, Y3I specified. Exponent 
N calculated. 


b) SuperellipSG exponent N or 
or bisuperellipse exponents 
p and Q specified. 


c) Optional point (X3, Yq) and 
exponent P or Q specified. 
Exponent Q or P respeotively 
calculated. 


d) Optional points fXq, Yq) 
and (Xj., Yfj 3 specified. 
Exponents P and Q calculated. 


e) Optional point (X3, Y3) and 
slope Exponents 

P and Q calculated. 


Figure 7 . - Sketches for SCfRCL input, Bisuperellipse options . 
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f) ] 3 i 5 uparcllipse with inflcotioii 
point. Axial location X 3 and 
«lope Ctty/dx)^ of inflection 
pointR specified. Xote that 
the slope line nequirements for 
tliis option ore different from 
nil other options. One slope 
lino must he perpendicular to 
curve fii.d one must be isuffcnt, 
tJius there are two possibilitieF 
as sliovm. Both lines must lie 
away from and outside tlie ’box' 
surrounding the desired curve. 
Also, shown are the exponents 
that wi3.1 I'csult in eacli case. 


Sj Curvature at either point 2 
or point i| specified. 


h) Curvature at endpoint 2 
nmtohed to internally cal- 
culated curvature at endpoint 
h pt> of previous segment, 


Figure 7. >- Concluded. 
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a] Straight line 



b) Straight line for closed body 



c) Leraniscate 



d) Cubic 


Figure 8. - Sketches for SCIRCL input options except bisuperellipse 
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Figure 9, - SCIRCL input layout- 
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